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Warranty Statement 

Hewlett-Packard products are warranted against defects in materials and workmanship. For Hewlett-Packard computer sys- 
tem products sold in the U.S.A. and Canada, this warranty applies for ninety (90) days from the date of shipment.* Hewlett- 
Packard will, at its option, repair or replace equipment which proves to be defective during the warranty pericd. This warranty 
includes labor, parts, and surface travel costs, if any. Equipment returned to Hewlett-Packard for repair must be shipped 
freight prepaid Repairs necessitated by misuse of the equipment, or by hardware, software, or interfacing not provided by 
Hewlett-Packard are not covered by this warranty. 

HP warrants that its software and firmware designated by HP for use with a CPU will execute its programming instructions 
when properly installed on that CPU. HP does not warrant that the operation of the CPU, software, or firmware will be uninter- 
rupted or error free. 

NO OTHER WARRANTY IS EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO, THE IMPLIED i/VARRANTY OF 
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. HEWLETT-PACKARD SHALL NOT BE LIABLE FOR 
CONSEQUENTIAL DAMAGES. 

HP 9000 Series 200 

For the HP 9000 Series 200 family, the following special requirements apply. The Model 21 6 computer comes with a 90-day, 
Return-to-HP warranty during which time HP will repair your Model 216, however, the computer must be shipped to an HP 
Repair Center. 

All other Series 200 computers come with a 90-Day On-Site warranty during which time HP will travel to your site and repair 
any defects. The following minimum configuration of equipment is necessary to run the appropriate HP diagnostic 
programs: 1 ) Vz Mbyte RAM; 2) HP-compatible V/z or 5 1 /V' disc drive for loading system functional tests, or a system install 
device for HP-UX installations; 3) system console consisting of a keyboard and video display to allow interact on with the CPU 
and to report the results of the diagnostics. 

To order or to obtain additional information on HP support services and service contracts, call the HP Suppo 1 Services Tele- 
marketing Center at (800) 835-4747 or your local HP Sales and Support office. 

• For other countries, contact your local Sales and Support Office to determine warranty terms. 
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ALLOCATE 



Description 

ALLOCATE contains code to allocate a user-specifiable number of bytes off the stack. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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28 
29 
30 
31 
32 
33 
34 
3S 
36 
37 
38 
PfiSS 1 
PASS 2 



1 [3.0) 12/26/84 22: 
COMPLETE. ERRORS: 



• 2:20 ASSEMBLE OF ALLOCATE . TEXT 



» FUNCTION ASM_ALLOCATE(SIZE: INTEGER): ANYPTR; 



File name: ALLOCATE »* 



DE C 
REFR 



FFI-F FFF2 HEAPPOINTER 



ASH ALLOCATE 
SYSCLOBfiLS, STACK FUDGE 



SYSGLOBALS-14 



00000000 
00000002 
00000004 

00000006 
00000008 

oooooooc 

0000000E 



o:u'C 

OOOO 
OODO 

oooo 
oooo 

205 F 
20 IF 
584 F 

521)0 
0830 
44W0 
6EI4 



OOOO 

00 01 
00 02 

OOOO 

OOOO 



RETURN EQU AO 
ADDRESS EQU Al 
TEMP EQU A2 

SIZE EQU DO 

nsr; ALLOCATE 

MOVEA.L 

L10VE.L 

ADDQ 



00000010 431-7 0800 



00000014 
00000018 
0000001C 

0000001E 
00000020 
00000022 

00000024 
00000026 



ERRORS: 
ERRORS: 



451.9 
B5FD 
6FD6 

2E49 
4S0 1 
4ED0 

42R7 
4EliO 



ocoo 

FFF? 



ADDQ.L 
BCLR 
NEG.L 
BGT.S 

LEA 

LEA 

CMPA.L 

BLE.S 

MOVEA.L 
PEA 

JMP 



EQU * 

(SP)*, RETURN 
SPW.SIZE 
#4,SP 

#1,SIZE 
#0,SIZE 
SIZE 
OVERFLOU 



POP SPACE FOR RETURNED VALUE 
ROUND UP TO EVEN NUMBER 



DISALLOW NEGATIVE SIZES 

O(SP.SIZE.L) .ADDRESS 

-STACKFUDGE (ADDRESS), TEMP 
HEAPP0INTER(A5) ,TEMP 
OVERFLOU 



OVERFLOU CLR. 
JMP 



NOSVMS 
END 



ADDRESS, SP 

(ADDRESS) 

(RETURN) 

-(SP) 
(RETURN) 
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ALPHALIST 



Description 

ALPHALIST alphabetizes a list of symbols. 



Usage 

ALPHALIST is used by the linking loader. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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puss i 
1 



9 

10 

li 

12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 



1 [3.0] 12/22/54 21:00:31 ASSEMBLY OF ALPHALIST . TEXT 
COMPLETE. ERRORS: 



File name: RLPHflL 1ST »* 



procedure alphalist 

var symtable: 
var list : 



array[0 . 
array [0 . 
0. .65535 



65535] of char; {symbol table} 
IM-1] of 0. .65535; 



The N elements of the list are offsets into the symbol table, 
where strings are found. The object is to rearrange the list 
so that the strings are alphabetized. 



def 

0000 0000 symtab;.e equ 

0000 0001 I equ 

0000 0002 J equ 

0000 0003 Istr equ 

0000 0004 Jstr equ 

0000 0000 Ioffset equ 



0000 0001 Joffset 

0000 0002 Icount 

0000 0003 Jcount 

0000 0004 N 

0000 0006 len 

0000 0006 comp 



equ 
equ 
equ 
equ 
equ 
equ 



alphalist 

aO 
al 
32 
a3 

34 

dO 
dl 
<J2 
d3 
d4 
d5 
d6 



0000 0000 alphalist equ 



00000000 245F 
00000002 381 F 
0000C004 225F 
00000006 205F 
00000008 2F0A 



movea .1 (sp) + , J 
move.w (sp)*,N 
movea .1 sp) +, I 
movea. 1 (sp) + , symt able 
move. 1 J, - (sp) 



OOOOOOOA 
0OO00OOC 
00O00OOE 
00000010 
00000012 
00000014 
00000016 
00000018 

ooooooin 

0OO00O1C 
0000001E 



5 544 

e;52 

5i89 
4380 
4281 
4242 
2449 
3c02 
3 2 19 
5 242 
5. .22 



J^loop 



subq.w 
bcs .s 
addq. 1 
clr.l 
clr.l 
clr 



addq.w 



OOOOC020 49F0 1800 
00000024 47F0 0800 
00000028 7C00 
0OO00O2A 1C1B 
0000002C 3A06 
0000002E 4845 
00000030 3R06 
00000032 1C1C 
00000034 BA06 
00000036 6302 
00000038 3A06 



#2,N 

done 

#2,1 

Ioffset 

Joffset 

Icount 
movea .1 I , J 
move.w Icount , Jcount 
move.w (I)+, Ioffset 

#1 . Icount 

-(J), Joffset 

lea (symtable , Joffset . 11 

lea (symtable , Ioffset . 1) 

MOVEQ #0,C0MP 

MOVE.B (ISTR)+,C0MP 

MOVE.U COMP, LEN 

SUPIP LEN 

MOVE.U COMP, LEN 

MOVE.B (JST&l+.COMP 

cmp.b COMP, len 

bis. s str comp 

MOVE.U COMP, LEN 



base of symbol table containing strings 
index into list 
index into list 
address of string 
address of string 

offset into symbol table 
offset into symbol table 
number of elements processed 
inner loop counter 
size of list 
length of string 
condition codes 



return address 
size of list 
address of list 
address of symbol table 
replace return address 

list must have least two elements 

start with second list element 
sign ext^ J to long 
sign extend to long 
initialize tally of el 
for J := I 

downto 
ioffset := list [I] 

I :• I + 1 
J :- J - 1; joffset := list[J] 



ements processed 



Jstr 
Istr 



standard string comparison: 



( rdq ) 

rdq) 

rdq) 

rdq 1 

DUPLICBTE LENGTH FOR LPITER USE rdq 

I rdq) 
compare lengths (rdq) 

get minimum of two string lengths(rdq) 



2 [3.0] 12/26/84 21:00:31 ftSSEt18LY OF ALPHALIST . TEXT 



59 


0OO00O3R 


5305 




St r.corr 


p subq . b 


H.len 


60 


0000003C 


6 2 08 






bcs . s 


crnp end 


61 


0000003E 


B70C 




cmp_lp 


cmpm. b 


[Jstr)+, (Istr)* 


62 


00000040 


52C.D 


FFFC 




dbne 


len, crnp lp 


63 


00000044 


62 0', 






bne ,s 


cmp 


64 


00000046 


4246 




cmp_enc 


SUSP 


LEN 


65 


00000048 


Bf.06 






CMP.B 


COMP, LEN 


66 
67 
68 


0000004PI 


640C 




crnp 


bcc .s 


found 


0000004C 


3241 


0002 




move.w 


Joffset 2(J) 
Jcount, J loop 


' • 


00000050 


2.iC5? 


FFCC 




dbra 


70 


00000054 


34 SC 






move.w 


Ioffset, TJ) 


71 
72 
73 


00000056 


6C04 






bra . s 


next_I 


00000058 


3240 


0002 


found 


move.w 


Ioffset, 2[J) 


74 
75 
76 
77 
78 


0000005C 


51CC 


FFB8 


next_I 


dbra 


N, I_loop 


00000060 


HP 75 




done 


rts 












end 




PASS 1 


ERRORS: 












PASS 2 


ERRORS: 













*** File name: 

loop if at least one character 

compare string bodies 

loop till not equal or end of string 

if string bodies are equal, 

then compare lengths (rdq) 
(rdq) 
if string(I) >= string(J), J loop done 

list [J + l] := joffset 

loop until J = 

if J = then list [0] := ioffset 



list [J+l] := ioffset 
loop until N = 



wasn' t that easy? 
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page 3 [3.0] i;:/z6/;.i a:oo::-i assembly of a.Phalis'.te^t 

»»« 68000 ASSEMBLER SYMBOL TABLE DUMP **« 

EXTERNAL SYMBOLS 
*** NO EXTERNAL SYMBOLS «*» 

INTERNAL SYMBOLS 



File name: ALPHALIST 



SYMBOL 


T YPE 


DEF EQU SYM VALUE 


AO 


PkF.5 





oooooooc 


A! 


HREG 





00000001 


-. 


AREG 





00000002 


A3 


AREG 





0O000OC3 


A4 


AREG 





00000004 


as 


AREG 





0O0000C5 


A 6 


RREG 





000000C6 


A7 


r.REG 





00000007 


ALPHALIST 


REL 


28 


ooooooco 


CCR 


STREG 





oooooor- 


CMP 


REL 


36 


0000004ft 


CMP ENO 


REL 


64 


00000046 


CMP LP 


REL 


61 


0000003E 


COMP" 


DREG 


26 


00000006 


DO 


DREG 





ooooooco 


01 


DREG 





o: )ooooi 


D," 


DREG 





00000002 


D3 


L REC- 





00000003 


04 


DREG 




00000004 


DE 


DREG 


b 


000OO0C5 


D6 


DREG 





00000006 


D7 


DREC- 





00000007 


DFC 


STREC- 





00000008 


DONE 


REL 


76 


00000060 


FOUND 


REL 


73 


C0000058 


I 


RREG 


15 


OOOOOOCl 


ICOUNT 


DREG 


22 


00000002 


IOFFSET 


DREG 


2: 


00000000 


ISTR 


AREG 


17 


00000003 


I LOOP 


REL 


42 


00000016 


J ' 


AREG 


16 


00000002 


JCOUNT 


DREG 


23 


00000003 


JOFFSET 


DREG 


21 


OOOOOOOl 


JSTR 


AREG 


18 


OO000OC4 


J LOOP 


REL 


48 


OOOOOOIE 


LFN 


DREG 


26 


OO0OOOC5 


N 


DREG 


24 


00000004 


NEXT I 


REL 


74 


0000005C 


SFC 


STREG 





00000009 


SP 


AREG 





00000007 


SR 


STREG 





00000006 


STR COMP 


REL 


59 


0O000O3P 


SYMTABLE 


HREG 


14 


oooooooo 


USP 


STREG 





00000007 


VBR 


STREG 





OOOOOOCA 
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ASM 



Description 

ASM provides the Pascal declarations for a number of routines which are in assembly. ASM also 
contains initialization and utilities used during the boot-up process. 



Usage 

ASM is part of SYSTEM.P. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
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of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
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PAGE 1 [3.C] 12/.:6/:4 
PBSS 1 COMPLETE. E<R0RS: 



1 
Z 
3 
4 
5 
6 
7 
8 
8 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
SO 
51 
52 
63 
54 
55 
56 
57 
58 



:1C ASSEMBLY OF PSM.TEXT 



CHANGES MADE FOR REV 3.0 HUG 83 rdq 



** File name: ASM 



MNAME BSM 
SPRINT 



-jr.:: 
OLE 
DEE 



ASM ASM, ASM POUERUP, ASM ERRMSG,G_OOLLRR,STRCKFUDGE 
ASM USERPPOSRAM.RSM CI_S"UITCH,RSM_FINDROMS,RSM_CPYMSG 
H68i<TYPE,MSYSFLAGS 



SRC MODULE ASM; 

SRC IMPORT SYSGLOBRLS; 

SRC EXPORT 

SRC T Y PE 

SRC STRINGMAX = STRING[25S]; 



S,D 



RNYPTR; 



INTEGER; 
INTEGER; 



INTEGER; 
INTEGER; 
RNYPTR; 



Z: INTEGER] 
Z: INTEGER 
Z: INTEGER; 
Z: INTEGER! 



ANYVAR BUFFER: 
ANYVAR BUFFER: 



SRC PROCEDURE MOVELEFT (ANYVAR S,D 

SRC PROCEDURE MOVERIGHT (ANYVAR S,D 

SRC PROCEDURE FPSTMOVE ( " " 

SRC PROCEDURE NEUBYTES ( VAR 

SRC PROCEDURE POUERUP; 

SRC PROCEDURE ERRMSG; 

SRC PROCEDURE FINOROMS; 

SRC PROCEDURE F PUR ON; 

SRC PROCEDURE FlPYREPD (SECTOR 

SRC PROCEDURE FLPY URT (SECTOR . ..,.„.„.,., .,.., 

SRC PROCEDURE FLPYRREAD (SECTOR COUNT, SECTOR: INTEGER; 

SRC PROCEDURE FL PYMURI TE ( SECTOR" COUNT , SECTOR: INTEGER; 

SRC PROCEDURE FLPYINI T (PTR : ANYpTR; I: SHORTINT); 

SRC PROCEDURE SETINTLEVEL(LEVEL : INTEGER); 

SRC FUNCTION INTLEVEL: INTEGER; 

SRC PROCEDURE NEUUORDS (VAR P: RNYPTR; U3RDSIZE: INTEGER 

SRC PROCEDURE USERPROGRAM (EXECLOC, INITSP: INTEGER) 

SRC PROCEDURE SAPPEND(VAR OEST: STRING;SRC """ 

SRC FUNCTION IRND(P,B: INTEGER): INTEGER; 

SRC FUNCTION IOR (fl.B: INTEGER) - " ' 

SRC PROCEDURE CI SUITCH; 

SRC PROCEDURE IN'TVECTS; 

SRC PROCEDURE CPYMSG(MSG: STRING255 

SRC FUNCTION MEMRVAIL : INTEGER ; 

SRC FUNCTION TICKER:INTEGER; 

SRC PROCEDURE CACHE_ON: 

SRC PROCEDURE CHCHEJFF; 



INTEGER) ; 
INTEGER ; 

RNYVRR BUFFER: INTEGER) ; 
RNYVflR BUFFER: INTEGER) ; 



:STRINGMRX) ; 



INTEGER; 



REFP 
REFR 

I'FFF FFFE ESCAPECODE 

FFFF FFF6 RECOVERBLOC< 

l-'FFF FFF2 HEAPPOINTER 

FFFF FFEE HERPBflSE 

[FFF FFEA IORESULT 

I FFF FFBS SYSDEFS 

(''000 1388 SUPSTACKSPRCE 
OOOO 01F4 STRCKFUDGE 



FS FURITESTRINT,INITLOAD_INITLOAD 
SY5GL0BALS, LOADER 

EQU SYSGLOBALS-2 

EQU SYSGLOBALS-10 

EQU SYSGLOBALS-14 

EQU SYSGLOBALS-18 

EQU SYSGLOBALS-22 

EQU LOADER-70 



LINKED LIST OF PERMANT PROGRAMS 



EQU 5000 
EQU 500 



SPACE FOR SUPERVISOR STACK 

SLOP SPACE FOR STACK OVERFLOW CHECK 



MAGIC NUMBERS, CONSULT 'POUERUP' LISTING, DEBUGGER and INITBUG (rdq) 



2 [3.0] 12/26/84 20:59:10 ASSEMBLY OF ASM. TEXT 



59 
60 
61 
62 
63 
64 
65 



69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 



I FFF FB70 INITSTACK 

FFFF FB74 INITPC 

F FFF FB78 INITRECOVER 

FFFF FB7C G DOLLAR 

F FFF FB96 INITSR 

I FFF FE98 M68KTYPE 

F FFF FB99 MSYSFLAGS 

F FFF FDCE LOUMEM 

F'FFF FBOO HIGHMEM 

FFF FFS2 TRRP11 

I FFF FF58 TRRP10 

I FFF FF94 TRRPO 

I FFF FED4 F RREA 

(000 009R REMOTE ADOR 

(000 0003 R INTI.VL 

0000 3FFE BO"OT T.0 

0080 0000 NO_CA~RD 

0000 0150 CRTMSG 

*CRTCLEAR 

1 FFF FED2 SYSFLRG 

0000 4EF9 JMP 
0000 0004 RETURN 



EQU SFFFFFB70 
EQU INITSTRCK*4 
EQU INITPC+4 
EQU INITRECOVER' 
EQU SFFFFFB96 
EQU INITSR+2 
EQU M68KTYPE-H 

EQU IFFFFFDCE 

EQU IFFFFFBOO 

EQU SFFFFFF52 

EQU IFFFFFF58 

EQU $FFFFFF94 

EQU JFFFFFED4 

EQU $9A 

EQU 3 

EQU I3FFE 

EQU $800000 

EQU $150 

EQU $148 
EQU -302 

EQU $4EF9 
EQU A4 



PROCESSOR TYPE BYTE 0=68000, else 680xx 
MORE SYSFLAGS BIT => CfiCHE PRESENT 



BOOT ROM DEFINED ADDRESSES 

LEAVES ROOM FOR VECTORS, MONITOR STUFF, 



File name: ASM «*» 



(rdq) 
rdq) 
(rdq) 
(rdq) 
(rcq) 
(rdq) 
(rdq) 



BOOTROM 3.0 MAGIC CONSTANTS TO 
ALLOU US TO TURN OFF INTERRUPTS 
IF BOOTING FROM REMOTE INTERFACE 



CAN'T USE DUE TO BOOT ROM BUG 



JS 9/12/83 

JS 9/12/83 

JS 9/12/83 

JS 9/12/83 

JS 9/12/83 



90 

91 

92 

93 

94 

05 

96 

97 

98 

>9 

100 

101 

102 

103 

10* 

105 

106 

107 

108 

109 

110 

111 

112 



I 000 

C010 



iSSOO 
0000 



LOUCODE EQU * 
HIGHCODE EQU 



+$100000 



00000000 f 
COOOC004 ! 000 
OOOOOOOC CO 



NOTE: INITLOAD INITLOAD FIRST INSTR 
DC.B $"FO,$FF, 'P',1 
DC.L 0, INITLOAD INITLORD- 
DC.B 0,0, 0,0, 0,5 



LOWEST CODE LOCATION 
1 MEGABYTE MAX ROM AREA 

UCTION IS JSR ASM POUERUP 
ROM HEADER 

CHECKSUM, EXECUTION ADDRESS 
IDENTIFICATION JUNK 



COOO 
00000012 285F 
00000014 4FFR 
00000018 EFF8 
0000001C 6204 
0000001E 4FF8 

0000 

00000022 4BEF 
00000026 4BED 
0000002A 21CD 

0000002E 2B78 
FFF2 

00000034 CC78 

3FFE 

0000003R 6614 



ESTABLISH MINIMUM ENVIRONMENT FOR POUERUP LOAD OPERATIONS «** 



FFEA 
FOCE 

FBOO 
0022 

EC78 

80 00 
FB7C 



RSM POUERUP 

MOVER. L 

LEA 

CMPA.L 

BHI.S 

LEH 

EQU * 



EQU 

(SP)+, RETURN 

LOUCODE, SP 

LOUMEM, SP 

SOFT 

HIGHMEM, SP 



SOFT SYSTEM STACK » JUST BELOU CODE 

TEST FOR HARD OR SOFT SYSTEM 

SOFT IF SP > LOUMEM" 

HARD SYSTEM STACK = HIGH MEMEMORY 



LEA 
LEH 
MOVE.L 

MOVE.L LOUMEM, HERPP0INTER(A5) INITIALIZE HEAP 



-SUPSTACKSPRCE (SP) ,RS 
-32768(AS) ,R5 
R5,G DOLLAR 



ALLOCATE OPERATING SYSTEM STACK 
SYSTEM GLOBALS START RT 32766(A5) 
SAVE FOR ISR's 



CMPI.U #3,B0OT_ID 
BNE.S SKIP 



3.0 BOOTROM ? 
IF NOT THEN SKIP 



JS 9/12/83 
JS 9/12/83 



1-60 



3 [3.0] 12/26/84 20:59:10 HSSFMBLY OF ASM.TE'T 



File name: ASM 



114 
115 
116 

117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
13? 
138 
139 
140 

141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 

153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 



OO0OOC32 2078 

OO0O0C4C 2068 

00000C44 B1FC 
0000 

OO000C4F 6704 

00000C4C 4228 

00000C5C 6100 

00000054 46FC 

00000058 41F8 

0000005C 30FC 

00000060 43FB 

00000064 20C9 



00000066 30FC 

000O0O6H 43FR 

0000006E 20C9 

00000070 41F8 

00000074 30FC 

00000078 43FR 

0000007C 20C9 

0O0OOO7E 4E04 

00000080 4E7S 



00000082 2E6D 
00000086 4E7S 



FED4 
009A 

oo so 



0003 

01C4 SKIP 
2000 



FF52 
4EF9 

0026 



4EF9 
0016 



FF94 
4FF9 
0022 



movea.l 

MOVEA.L 
CMPO.L 

BEQ.S 

CLR.B 

BSR 

MOVE 

LEA 
MOVE 
LEA 
MOVE.L 

LEA 
MOVE 
LEA 
MOVE.L 

LEA 
MOVE 
LEA 
MOVE.L 



F AREA, At 
REMOTE ADDR(AO), 
#NO_CAR~D,00 

SKIP 
R_1NTLVL ISO) 

UHICH_PR0CES50R 

•$2000, SR 

TRAP11 ,00 
#J11P, (AO)* 
SUPFRCA.L .31 

ai , ( A0; + 

TRAP10.P0 
#JMP, (H0) + 
ESCN,A1 
Al, (A0) + 

TRAPO.AO 
#JMP, (AO)-t 
PJREAF ,A1 
Al, f RO ) * 



GET STOLEN RAM PTR 
SEE IF REMOTE BOOT 



JS 9/12/83 
JS 9/12/83 
JS 9/12/83 



IF NOT THEN SKIP JS 9/12/83 

ElSE CLEAR INTERRUPTS J5 9/12/83 

FINDOUT IF 68000 OR OTHER ( 

ENABLE INTERRUPTS 

SUPERVISOR CALL TRAP 



ESCAPE(N) TRAP 



COMPILED LINE TRAP 



JNP 
ASM_ASM RTS 



FFF6 ESCN MOVEA 

RTS 



(RETURN) 



ALL 
ASM MODULE 



DONE 
BODY' 



<*** TEMPORARY TRAP 10 HANDLER 
L RECOVERBLOCK |A5) ,SP 



0000 
00000088 4A38 
0000008C 6608 
0000008E 3F17 
00000090 2F6F 
0002 
0000 
00000096 3F5F 
0000009A 4E75 



0000009C 54AF 
00000090 4E73 



PERMANENT 



********(rdq)« 

0088 SUPERCALL EQU 

FB98 TST.B M68KTYPE 

BNE.S SUPERCALL_1 

MOVE.U (SP).-(SP) 

0004 MOVE.L 4(SP),2(SP) 



0096 SUPERCALL 1 EQU * 
0004 M5VE.U (SP)+ 

RTS 



.4(SP) 



'RAP 11 HANDLER ********************************* 
TRAP #11, GETS INTO SUPERVISOR MODE, SAVES SR 



MOVE STATUS REGISTER DOWN 
MOVE RETURN ADORESS DOWN 



MOVE STATUS REGISTER UP 

RETURN TO CALLER IN SUPERVISOR MODE 



RHP HANDLER, DISCARDS LINE NO . s 



0000 
00000OA2 265F 
OO00OOA4 205F 
000000A6 225F 
00000098 2F0B 

0000009B 45E8 FEOC 



***************** TEMPORARY 
0002 P BREAK ADDQ.L #2,2(SP) 
RTE 

***************** FINISH ENVIRONMENT SETUP THEN CALL USER PROGRAM ********** 

30A2 ASMJJSERPROGRAM EQU * PROC USERPROGRflM( ENTRYP01NT , INITSTACK : INTEGER) 

MOVEA. L (SP)*,F3 RETURN ADDRESS 

MOVEA. L (SP)*,PO INITIAL SP 

MOVEA. L ISP)*, PI INITIAL PC 

MOVE.L 93, -(SP) RESTORE RETURN 



lEA 



-STACKFUCGE(AO) ,02 



4 [3.0] 12/26/84 20:59:10 ASSEMBLY of ASM.TEYT 



*** File name : ASM *** 



169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
ISO 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
25 3 
204 
205 
206 
207 
208 
203 
210 
211 
212 
213 
214 
215 

216 
217 
218 

219 
220 
22) 
222 



OOOOOOflE 
000000B2 
0O0O0OB4 

0O00OOB6 
OOOOOOBB 
OOOOOOBC 
OOOOOOCO 

00000OC4 
000000C8 

oooooocc 

0000OOCE 
00000000 

000000D4 
00000OD8 
OOOOOODC 
OOOOOOEO 



B5ED FFF2 

6202 

4E42 

2F2D FFF6 
2F0E 

487A 002E 

2B4F FFF6 

21CF FB78 

21C9 FB74 

4DD5 
4E60 

46FC 0000 

45EF FFF8 

21CA FB70 

4278 FB96 

42A0 FFEE 



0O0O0OE4 4E91 



O00O0OE6 
OOOOOOEP. 



OOOOOOEC 
OOOOOOEE 
OO000OF2 
000000F4 
OO0O0OF6 
OO0O0OF8 



OOOOOOFB 
OOOOOOFC 
OOOOOOFE 
00000100 



4260 FFFE 
4E4A 



CMPB.L 

BHI.S 

TRAP 

MOVE.L 
MOVE.L 
PEA 
MOVE.L 

MOVE.L 
MOVE.L 

LEA 

MOVE 

MOVE 

LEA 

MOVE.L 
CLR.U 
CLR.L 

JSP 

CLR.U 
TRAP 



HEAPPOINTER(FS) ,A2 
**4 

#2 

RECOVERBL0CK(fi5), - 
06 -(SP) 
USER RECOVER 
SP,R'FCCVERBLCCK(A5 



isp; 



COMPARE 

TEST 

STACK OVERFLOU 

TRY 

SAVE A6 
RECOVER CODE 



SP.INITRECOVEP 
Al.INITPC 

(A5i ,A6 
OO.USP 
#$0000, SR 

-8(SP) ,A2 
A2,INITSTPCK 
INITSR 
HEHPBASE (35) 

(HI) 

ESCAPEC0DE(A5' 
#10 



SAVE FOR DEBUGGER. 
SAVE FOR DEBUGGER 

FRAME POINTER 

SET UP STACK 

GO INTO USER MODE 

SPACE FOR RETURN ADDRESS, 
SAVE NON-LOCAL GOTO 
FAKE SR FOR STOP KEY 
FOR MEMORY MANAGER 

CALL USER PROGRAM 



NORMAL EXIT 

ESCAPE ;0), DONE TO CLOSE FILES 



DYNAMIC LINK 



0000 OOEC USER RECOVER 

2C5F MOVEA. L 

2B5F ^FFe MOVE.L 

204F MOVEA. L 

4E4B TRAP 

2E48 MOVEA, L 

4E75 RTS 



EQU » 

(SP)+,R6 RESTORE A6 

(SP +,REC0VERPLOCK(AS) RESTORE RECOVER BLOCK 

SP,BO SAVE S'ACK POINTER 

#11 GET IN'O SUPERVISOR MODE 

AO.SP RESTORE STOCK POINTER 



***************** SUITCH TO SUPERVISOR MODE & STACK ***** 
0000 OOFA ASM_CI_SUITCH EQU * 

205F MOVEA, L (SP)*,AO RETURN ADDRESS 

4E4B TRAP #11 GET ONTO SUPERVISOR STOCK 

544F ADDQ #2,SP DISCORD SR 

4ED0 JMP (AO) DONE 



** ** 



0000 4000 K16 EQU $4000 

0000 0012 MOLINK EQU IS 

0000 0028 MOSIZE EQU 40 

0000 0102 ASM FINDROMS EQU * 



HOOK ROM'C MODULES INTO SYSDEFS 



00000108 
0000010C 
0000011O 

00000116 
00000118 



41F9 0002 

0000 

226D =FF2 

2020 FFBA 

0C90 FOFF SEARCH 

5080 

6624 

45E8 0012 

4CEA 18FE COPY 
0004 



LEA 

MOVEfi.L HEAPP0INTER(B6) 

MOVE.L SYSDEFS(AS),D0 

CMPI.L #$F0FF5080, (AC) 



BNE.S 
LEA 



NOR 0(1 
MDLINK(AO) ,A2 



16 K INCREMENTS 

OFFSET OF MODULE DESCRIPTOR 

SIZE OF DESCRIPTOR 

BEGINNING OF SEARCH AREA 

,9.1 HEAP START 

LINKED LIST HEAD 
PASCAL OPTION? 

NO MATCH 

LOCATE DESCRIPTOR 



MOVEM.L 4(A2) ,D1-D7/A5-B4 



REMAINDER OF MOB 
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FACE 


S [3.0] 12 


''2 6/8 


> 20:59:10 


BSSEMBlV 


OF RSM.TEXT *** File name: ASM 


„* 


223 


C0000122 


4 8D1 


18FF 




movem.l 


D0-D7/R3-B4, (fll) COPY ONTO HEAP 




224 


00000126 


2 00 9 






MOVE.L 


SI, DO INSERT LINK INTO LIST 
#MDSIZE,A1 ALLOCATE FROM HEAP 




225 


0000012S 


D3FC 


0000 




BDDfl.L 








:)029 












226 


0000012E 


:-549 


FFF2 




MOVE. L 


A1,HEBPP0INTER(A5) RESTORE HEAP 




227 
228 
223 


00000132 


2B40 


FFBB 




MOVE.L 


D0,SYSDEFS(A5) RESTORE LIST 




00000136 


2452 






MOVER. L 


(R2) ,A2 MOVE DOWN CHAIN 




230 


00000138 


220A 






MOVE. L 


A2,D1 TEST FOR NIL 
COPY NOT END OF CHBIN 




231 


0000013B 


6 6E0 






BNE.S 




232 


0000013C 


DOFC 


4000 


NOROM 


BDDR.U 


»K16,B0 NEXT ROM BOUNDARY 
#$200000, BO END OF ROM BREB? 




233 


00000140 


B1FC 


0020 




CMPR.L 








0000 












234 


00000146 


f 6C8 






BNE.S 


SEARCH NOPE 




235 


00000148 


4E75 




findxit rt:-; 






236 
















237 








***** 


********** 


** CRT CLEAR ROUTINE **************************************** 




238 




0000 


014F1 


CRTCLEBR 


EQU * 




239 


0000014S 


4=56 


FFBE 




LINK 


A6,#-82 




240 


C000014E 


4107 






LEfl 


[SPJ.BO 
#79, DO 




241 


00000150 


704 F 






i-IOVFO 




242 


00000152 


r.-:o2 


0000 




BTST 


#0,SYSFLRG TEST FOR SO CHAR SCREEN 




243 


00000158 


6 702 






BEQ.S 


LCI 




244 


OOOOOlSfi 


7031 






■»■ f. 


*49,D0 




245 


0000015C 


10FC 


0020 


LCI 


MOVE .B 


#' ' (BO)* 
DO, LCI 
(AOl 




246 


00000160 


51C8 


FFFA 




DBRfl 




247 


00000164 


4210 






CLR.B 




248 


00000166 


422E 


FFFF 




CLR.B 


(SP),BO 




249 


0000016B 


41D7 




LC2 


LEB 




250 


0000016C 


4240 






CLR 


00 




251 


0000016E 


102E 


FFFF 




MOVE.B 


-1(B6) ,D0 
CRTMSG 




252 


00000172 


4EB8 


0150 




JSR 




253 


00000176 


F.22E 


FFFF 




BODQ.B 


#1,-1 (A6) 
#24,-l(A6) 




254 


0000017B 


0:;2E 
" C FF 
L.6E8 


0018 




CMPI.B 




255 


00000180 






BNE ,3 


LC2 




256 


00000182 


4E5E 






•ILK 


B6 




257 


00000184 


4E75 






RTS 






258 
















259 








***** 


********** 


** INTRODUCTORY MESSAGE ROUTINE **************************** 




260 




0000 


0186 


ASMJCPYMSG 


EQU * 




261 


00000186 


4F.BA 


FFC2 




JSR 


CRTCLEAR 




262 


0000018B 


7000 






MOVEQ 


tO, DO 

M,BO COPYRIGHT NOTICE 




263 


0000018C 


4 1 FA 


00H6 




LEfl 




264 


00000190 


c:-_H8 


0150 




JSR 


CRTMSG 




265 


00000194 


7002 






MOVEQ 


#2,00 
(SP)t,fll 




266 


00000196 


225F 






MOVEB.L 




267 


00000198 


L-05F 






MOVER. L 


(SP)+,BO 




268 


0000019B 


4 241 






CLR 


Dl 




269 


0000019C 


1218 






MOVE.B 


(B0).,D1 
0(fiO,01) 




270 


0000019E 


4230 


1000 




CLR.B 




271 


000001B2 


2F09 






MOVE.L 


Bl ,-(SP) 
CRTMSG 




272 


000001B4 


£~B8 


0150 




JSR 




273 


000001B8 


4E75 






RTS 






274 
















275 








*************** 


** PRIMITIVE ERROR MESSAGE ROUTINE ************************* 




PAGE 


6 [3.0] 12/26/84 


20:59:10 


ASSEMBLY 


OF ASM. TEXT *** File name: BSM 


«»« 


276 




FFFF 


FFBB 


5TR 


EQU -86 






277 




FFFF 


FFFC 


I 


EQU -4 






278 
















279 


00O001BA 


4281 




INT 


CLR.L 


Dl 




280 


000001AC 


122E 


FFfi.fi 




MOVE.B 


STR(B6),D1 




281 


OOOOOIBO 


5281 






AODQ.L 


#1,D1 




282 


000001B2 


21141 


FFFC 




MOVE.L 


D1,I(B6) 
#80, -(SP) 




283 


000001B6 


1F3C 


00 50 




MOVE.B 




284 


000001BA 


4:}5E 


FFflfl 




PER 


STR(B6) 




285 


000001BE 


4:?6E 


FFFC 




PER 


I(A6) 




286 


000001C2 


2F00 






MOVE.L 


DO,-(SP) 
FS_FURITESTRINT 




287 


000001C4 


3 F3 C 


FFFF 




MOVE.U 




288 


000001C8 


41 SB 


FE36 




JSR 




289 


000001CC 


4E75 






RTS 






290 
















291 




oooo 


01CE 


ASM_ERRMSG EQ^ 


* 




292 


000001CE 


4 F 4 B 






TRAP 


#11 




293 


O0O001D0 


4E56 


FFBB 




LINK 


B6,#STR 




294 


00000104 


4 EBB 


FF74 




JSR 


CRTCLEBR 




295 


00000108 


4CFB 
CO 8 


003E 




MOVEM.L 


M1,D1-D5 




296 


000001DE 


4PEE 
FI-'Hfl 


003E 




MOVEM.L 


D1-DS,STR(B6) 




297 


000001E4 


2020 


FFEB 




MOVE.L 


IORESULT(BS) ,D0 




298 


000001E8 


61C0 






BSR.S 


INT 




299 


000001EA 


302D 


FFFE 




MOVE. LI 


ESCRPECCCE(BS) ,D0 




300 


000001EE 


4 SCO 






EXT.L 


DO 




301 


000001F0 


61B8 






BSR.S 


INT 




302 


0OO001F2 


4 280 






CLR.L 


DO 




303 


000001 F4 


41EE 


FFHR 




LEfl 


STR(B6),B0 




304 


000001 F8 


424 1 






CLR 


Dl 




305 


000001 Ffl 


1210 






MOVE.B 


(A0),D1 
1(h6,D1 ' 




306 


000001 FC 


4, 30 


1001 




CLR.B 




307 


00000200 


524 8 






ADDQ 


#1,A0 




308 


00000202 


4EB8 


0150 




JSR 


CRTMSG 




309 
















310 


00000206 


701C 






MOVEQ 


#28, DO 




311 


00000208 


51C9 


FFFE 


L 


DBRfl 


Dl ,L 




312 


0000020C 


51C8 


FFFA 




DBRfl 


DO,L 




313 
















314 


00000210 


4L5E 






UNLK 


A6 




315 


00000212 


46DF 






MOVE 


(SP)*,SR 




316 


00000214 


4E75 






RTS 






317 
















318 








****** 


(rdq)**** 
PROCESSOR 


** FIND OUT WHICH PROCESSOR NOD RUNNING ********************** 




319 




0000 


0216 


JHICH_ 


EQU * 




320 


00000216 


41F8 


FF52 




LEB 


TRfiPll.fiO SETUP TRAP11 




321 


0000021ft 


30FC 


4EF9 




MOVE.U 


#JMP.(AO)+ THIS SETUP WILL BE DISCSROED 
#TRAP_SERV,(BO) 




322 


0000021E 


2('BC 


0000 




MOVE.L 








230 












323 


00000224 


2C0F 






MOVE.L 


SP,DO SAVE STACK LOCATION 




324 


00000226 


4F4B 






TRBP 


#11 FIND OUT HOW MANY BYTES PUSHED ON STACK 




32S 


00000228 


5[ 80 






SUBQ.L 


#6, DO 




326 


0000022B 


51F8 


FB98 




SNE 


M68KTYPE =0 15 68000 <>0 is 680xx 




327 


0000022E 


4L75 






RTS 






328 




OCOO 


0230 


TRAP_SERV 


EOU * 




329 


00000230 


9C8F 






SUB.L 


SP.DO 


1-62 



PfiGE 7 [3.0] 12/26/34 20:59:10 fSSEMBL/ OF PSM.TEaT **» File nsme: RSn 

330 00000232 4E73 RTE 

331 

332 



333 00000234 43 M OC.B 'Copyright 1964 Hewlett-Packard Company. ',0 

334 0000025C 12 Ml DC.B 18 . ' I0RE3ULT , ERROR = ' 
335 

336 

337 NOSYIIS 

338 END 
PASS 1 ERRORS: 

PfiSS 2 ERRORS: 



1-63 



1-64 



ASMLSCLIP 



Description 

ASM_SCLIP contains software clipping routines for DGL. 



Usage 

Called as a DGL "tool." 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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tAGE 1 [3.0] 12/21 ,<S4 22: 

PASS 1 COMPLETE- ERhORS: 
1 
2 
3 
4 
5 
6 



10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
2S 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 



:8:53 ASSEMBLY OF ASM_SC L I P. TEXT 



Graphics Low End 



File name: ASM SCLIP *« 



Module 
Proqr ame r 
Date 



- Software clipping 

= BJS 

= 10-5-82 



Purpose : To provide software clipping 
Rev history 



Created 
Modified 



10- 5-82 
11-23-82 



Removed test for static links on proc calls 



(c) Copyright Hewlett-Packard Company, 1983. 
Fill rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 



RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
paragraph (b) (3) IB) of the Rights in Technical 
Data and Computer Software clause in 



DPR 7-104. 9(a) 



HEWLETT-PACKARD COMPANY 
Fort Collins, Colorado 



mname GLE_ASCLIP 

src module GLE_RSCLIP; 

src import GLE_TYP£S; 

src export 

src procedure gle_sof t_clip_move ( gcb 

src procedure gle_sof t_clip_draw ( gcb 

src end; 



Define ent ry points 

rorg 

def GLE„ASCLIP GLE_S0FT CLIP MOVE 
def GLE _ASCLIP"GLE SOFT CLIP"DRAU 
def GLE_ASCLIPJLIPPING 
def GLE_ASCLIP_GLE_ASCLIP 



graphics__cont rol_block_pt r 
graphics~cont rol_block_pt r 



* Set up 9lobals 

0000 0004 GCB equ a4 



■AGE : [3.0] 12/26/84 22:28:53 ASSEMBLY OF ASM_SCLI P. TEXT 

59 

60 0000 0004 XO equ d4 

61 0030 0005 YO equ dS 

62 00)0 0006 XI equ d6 

63 00)0 0007 VI equ d7 

64 0000 0000 clip_xmin equ aO 

65 0000 O001 clip_xmax equ al 

66 0000 0002 clip_ymin equ a2 

67 00)0 0003 clip ymax equ a3 
68 

69 INCLUDE ASM TYPES 

70 00)0 0018 AUAIT BLANKING equ 24 

71 00)0 018E BACKGROUND equ 398 

72 0000 0020 BUFFER MODE equ 32 

73 On iO 029C CALC_SO"FT_TEXT XFORM equ 668 

74 00)0 029A CALC TEXT XFORM" equ 666 

75 00)0 01D2 CHAR HEIGHT equ 466 

76 00)0 01E6 CHAR"jUST_X equ 486 

77 00)0 01EA CHARJUST Y equ 490 

78 0000 0028 CHAR_SIZE equ 40 

79 0000 01B0 CHAR SIZES equ 432 

80 00)0 0106 CHAR SP3CE equ 470 

81 0000 01CE CHAR WIDTH equ 462 

82 0000 0030 CLEAR" equ 48 

83 0C00 0038 CLIP LIMITS equ 56 

84 0000 01F2 CLIP LIMITS XMAX equ 498 

85 0000 01EE CLIP_LII1ITS XMIN equ 494 

86 0000 OlFfl CLIPJ.IMITSJr'MAX equ 506 

87 0000 01F6 CLIP LIMITS YMIN equ 502 

88 0000 0196 COLOR: MAP SUPPORT equ 406 

89 0000 0190 COMPLEMENT SUPPORT equ 400 

90 0000 01AA CONT LINESTYLES equ 426 

91 0000 023A COSX_TABLE equ 570 

92 0000 024A COSY TABLE equ 586 

93 0000 0208 CURRENT BUFFER MODE equ 520 

94 0000 0212 CURRENT"C0L0R INDEX equ 530 

95 0000 01FE CURRENT"CURSOR~_STPTE equ 510 

96 0000 0200 CURRENTJCURSOR^X equ 512 

97 OOOO 0204 CURRENT CURSOR Y equ 516 

98 0000 0216 CURRENT"DRAUINt; MODE equ 534 

99 0CO0 0214 CUCRENT'FILL IND"EX equ 6 2 

100 0000 020A CURRENT~LINESTYLE equ 522 

101 OCi'O 0210 CJKRENT'_LINESTYLE_MODE equ 528 

102 0000 020C CURRENT L I NESTY LE_PATTLRN equ 524 

103 0000 0218 CURRENT"LINEUIDTH equ 536 

104 0000 020E CURRENT""PATTERN LENGTH equ 526 

105 0000 0220 CURREKT"P0LYGON_8LUE equ 544 

106 0000 021P CURRENT "POLYGON JMLOR equ 538 

107 0000 021E CURRENT "P0LYG0N_GREEN equ 542 

108 0000 021C CURRENT'POLYGON RED equ 540 

109 0000 01B2 CURRENT~POS X equ 434 

110 0C00 01B6 CURRENT"POS Y equ 438 

111 0000 0040 CURSOR equ 54 

112 0000 0048 DEFINEj:0L0R MAP equ 72 

113 0000 0050 DEFINE J1RALJING MODE equ 80 

114 00(0 014C DEVICE BUF equ 332 

115 00(0 0154 DEVICE "INFO equ 340 



File name: ASM SCLIP **» 



1-66 



,'26/84 22:28: 



assembly of asm_s:lip.text 



File name: ASM SCLIP 



116 
117 
118 
115 
120 
121 
L 2 2 
113 
124 
125 
126 
127 
12 8 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
IE? 
153 
154 
155 
156 
157 
158 
155 
160 
161 
162 
163 
164 
16 = 
166 
167 
168 
169 
170 
171 
172 



0000 0158 DEVICE INFO CHAR COUNT equ 344 

0000 0150 DEV DEF_STUFF equ 336 

0000 016C DISPLAY_HANDLER_CHAF_COJNT equ 3 

0000 0166 DISPLAY_HAND1ER 'NAME equ 358 

0000 0186 DISPLAY MAX X equ 390 

0000 018A DISPLAY_MAX_Y equ 394 

0000 017E DISPLAY_m;n_x equ 382 

0000 0182 DI5PLAY_MIN Y equ 386 

0000 015E DISPLAY_NAME" equ 350 

0000 0164 DISPLAY_NAME CHAR COUNT equ 356 

0000 016E DISPLAY RES V, equ 366 

0000 0176 DISPLAY RES Y equ 374 

0000 01AO DITHER_S"UPPO"RT equ 416 

0000 O068 DRAW equ 88 

0000 0118 DUMMY_XXX equ 280 

0000 01BA END X equ 442 

0000 016E END Y equ 446 

0000 0194 ERA'E_SUPPORT equ 404 

0000 C15A ERROR RETURN equ 346 

0000 C060 FILL TNDEX COLOR equ 96 

0000 0068 FLU5R_BUFFFR equ 104 

0000 C1A6 GAMJT equ 422 

OOCC C07O GET_C0L0R MAP equ 112 

0000 0080 GET_P0LYG5N_INFO equ 128 

0000 0078 GET RASTER equ 120 

0000 0088 GLOHD equ 136 

0000 0090 GRAPHICSJN OFF equ 144 

0000 0098 GSTORE equ T52 

0000 OOAO INDEX COLOR equ 160 

0000 0000 INF01~equ 

0000 0004 INF02 equ 4 

0000 0008 INF03 equ 8 

0000 00OC INF04 equ 12 

0000 0010 INF0_PTR1 equ 16 

0000 0014 INFO PTR2 equ 20 

0000 00A8 INQ F1P2 equ 168 

0000 0148 IOC? equ 328 

0000 0120 I0_INQ TIMEOUT equ 288 

0000 0128 I0_REBt5 equ 296 

0000 0130 I0_SET TIMEOUT equ 304 

0000 0138 I0_TERR equ 312 

0000 0140 10 WRITE equ 320 

0000 01CC KflTA equ 460 

0000 0088 LINESTYLE equ 184 

0000 0080 LINEUIDTH equ 176 

0000 01AE LINEUIOTHS equ 430 

0000 01DA LINE SPACE equ 474 

0000 00C0 MARKER equ 192 

0000 01C8 MflRKER_HEIGHT equ 456 

0000 OOC8 MARKER SIZE equ 200 

0000 01C2 MBRKER_TVPE equ 450 

0000 01C4 MBRKERJJIDTH equ 452 

0000 OODO MOVE equ 208 

0000 0192 N0N_D0MINANT SUPPORT equ 402 

0000 0222 0LD_A5 equ S4"6 

0000 0226 OLD H6 equ 550 

0000 00D8 OUTP"UT_ESCAPEI equ 216 



173 

174 

175 
176 
177 
178 
179 
180 
161 
182 
183 
184 
165 
186 
18 7 
163 
189 
190 
191 
192 
193 
194 
195 



199 
200 
201 
202 
20 3 
204 
205 
206 
207 
208 
209 
210 
211 
212 
2 1 3 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
22 5 
226 
22 7 
228 
229 



[3.0] 12/26/84 22:28:53 ASSEMBLY OF ASM_SCLIP. TEXT 

0000 OOEO OUTPUT ESCAPED equ 224 
0000 01A2 PALLETTE equ 418 
0000 00E8 POLYGON equ 232 
0000 019C P0LYG0N_FILL FACTOR equ 412 
0000 019E POLYGON/SOLID" FILL equ '14 
0000 0198 POLYGON SUPPORT equ 408 
0000 019A REDEF BACKGROUND equ 410 
0000 00F0 SET MffRKER equ 240 
0000 026A SINY_TABLE equ 618 
0000 027A SINY_TABLE equ 634 
0000 02D2 S0FT_CLIP CPX equ 722 
0000 02D6 S0FT_CLIP_CPY equ 726 
0000 02C0 S0FT_CLIP_SAVEXO equ 704 
0000 02C4 S0FT_CLIP SfiVEXl equ 708 
0000 02C8 S0FT_CLIP SAVEYO equ 712 
0000 02CC SOFT CLIP SAVEY1 equ 716 
0000 02D0 SOFT_CLIP_SUITCH equ 720 
0000 02A4 S0FT_F0NT_PTR equ 676 
0000 02A8 SOFT TEXT TEMPI equ 680 
0000 02AC SOFT TEXT TEMP2 equ 684 
0000 015C SPOOLING equ 348 
0000 00F8 TEXT equ 248 
0000 01E2 TEXT_C0S_0IR equ 482 
0000 0100 TEXT DIR equ 256 
0000 0108 TEX' JUST equ 264 
0000 0232 TEXT~"_LIN£_X equ S62 
0000 0236 TEXT LINE Y equ 566 
0000 01DE TEX7_SIN rjIR equ 478 
0000 022A TEXT_SPACE_X equ 554 
0000 022E TEXT SPACE Y equ 558 
0000 0110 TEXT SPACING equ 272 
0000 02B8 UNCLTPPEDJJRAU equ 696 
0000 02B0 UNCLIPPED MOVE equ 638 
0000 01A2 VECT_LINE5TYLES equ 428 



0000 0000 GLE_flSCLIP_GLE_S0FT_CLIP_MOVE equ 



File name : ASM SCLIP »»« 



00000000 4E56 0000 
00000004 286E 0008 



00000008 2F2C 01BA 
OO0O000C 2F2C 01BE 



00000010 6100 0092 



00000014 B07C 0002 
00000018 6714 



0000001H 2946 01BA 
0000001E 2947 01BE 



link 
movea . 1 



move . 1 
move . 1 



bsr clip 



a6,#0 

8 (a6) ,gcb 



end_x (gcb) , - (sp) 
end_y (gcb) , - (sp) 



cmp.w 
beq . s 



move„complete 



16, 
■17, 



nd_y (gcb ) 
nd_y(gcb) 



{ A4 > 

{ save ending point, this will 

{ become the new cp 

{ returns clipped points in } 

( (d4,dSj and (d6,d7), dO is> 

{ the clipped state opcode > 

<ck for total clip) 

{ pass clipped point > 



1-67 
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2 30 

271 00000022 2 i: 0C move , 1 gcb,-(spi { save copy of gcb on stack } 

232 00000024 2 :; 32 move.l gcb,-(sp) { call move routine > 

233 00000026 22-3C 02BO movea.l unci ipped_move (gcb ), aO { no static links } 

234 0000002P, 41)30 ]sr (aO) 

235 0000002C 2-3F movea.l (sp]*,gcb < get gcb back, off stack } 
236 

2.37 C200 002E move_c omple te equ * 

238 0000002E 2 j:3F 01B6 move.l ( sp) + , cu r rent_pos__y (gcb ) { set cp to saved end_x, end_y } 

239 00000032 235F 01B2 move.l (sp) *, cu r rent_pos_x (gcb ) { saved on stack. Note that > 

240 * < the CP is saved in an undipped } 

241 * < form > 
242 

243 00000036 4125E unlk a6 

244 00000038 2E3F move.l (sp)s(sp) 

245 0000003P, 4E7S rts 
246 

248 

249 0030 003C GLE_fiSCL I P_GLE_S0FT_CL IP^DRflU equ * 

2S0 

251 0000003C 41256 0000 link a6,#C 

252 

253 00000040 2>-3E 0003 movea.l 8(a6),gcb ( H4 ) 

254 00000044 2F2C 01BA move.l end_x fgcb) , - (sp) { save ending point, 

255 00000048 2F2C 01BE move.l end_y (gcb) , - (sp) { become the new cp 
256 

257 O0O00C4C 6 100 0056 bsr clip < returns clipped points in > 

258 * < (d4,d5) and (d6,d7), dO is) 

259 * { the clipped state opcode 
260 

261 00000050 41340 tst.w dO { ck for no clipping needed > 

262 00000052 672E 
263 

264 00000054 B07C 0002 cmp.w #2,d0 {ck for line outside clipping bounds) 

265 00O000S8 E')C 
266 

267 00O0005A B83C 01B2 cmp.l cur ren t_pos_x (gcb) , d4 { ck to see if cp changed after 

268 0000005E 66)6 bne.s move__first { clipping 

269 00000060 BMC 01B6 

270 00000064 6 • 1 C 
271 

272 00)0 0066 m 

273 00000066 21 36 move.l d6,-(sp) { save end point on stack ) 

274 00000068 21 )7 ' 
275 

276 0000006P, 2'1H OlBfl move.) d4 , end_x (gcb ) { pass clipped point 

277 0000006E 2* IS 01 BE " " 
278 

279 00000072 2' )C move.l gcb,-(sp) { save a copy of gcb pointer ) 

280 00000074 2 1 )C move.l gcb,-(sp) ( call move routine > 

281 00000076 2'-5C 02B0 movea.l unclipped_move (gcb) , aO { no static links > 

282 0000007P, 41 )0 "■ 

283 0000007C 2 :• 3 F movea.l (sp)+,gcb { get gcb pointer back > 
284 

285 0000007E 2E1F move.l (sp)*,d7 { pass clipped point ) 

286 00000080 2:1 IF 



movea . 1 
move . 1 
move . 1 


8( a6) , gcb 
end_x[gcb) ,-(sp) 
end_y(gcb) ,- (sp) 


bsr clip 




t 5t .W 

beq . s 


dO 

draw__i t 


cmp.w 
beq . 5 


#2,d0 

draw ^complete 


cmp. 1 
bne . s 
cmp. 1 
beq . s 


current pos x(gcb),d4 
move_f irst 

cur ren t_pos_y(gcb) , d5 
draw_i t 


irst equ 

move . 1 
move . 1 


06, -(sp) 
d7,-(sp) 


move . 1 
move . 1 


d4 , end_x (gcb ) 
d5 , end_y (gcb ) 


move . 1 
move . 1 
movea . 1 
jsr 
movea . 1 


gcb, -(sp) 

gcb, -(sp) 

undipped move(gcb),a 

(aO) 

(sp)+,gcb 


move . 1 
move . 1 


(sp)+,d7 
(sp)+,d6 



move . 1 
move . 1 
movea . 1 
jsr 
move a . 1 


gcb, -(^p) 
gcb, -(sp) 
undipped draw (gcb), aG 

(aO) 

(sp)+,gcb 


omplete 


equ * 


move. 1 
move . 1 


(sp) + , cu r rent „pos__y (gcb ) 
(sp) + , cu r ren t_pos_> (gcb) 


unlk 
move . 1 

rts 


a6 
(sp) + ,(sp) 
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287 

288 0'! )0 .3092 draw it equ « 

289 

290 00000082 2'il6 01 BA move.l d6 ,end_x (gcb ) 

291 00000086 2'3l7 01RE move.) 07 ,end_y (gcb ) 
292 

293 0000008A 21 3C move.l gcb,-(sp) { save copy of gcb on stack ) 

294 00O0008C 21 1C 

295 0000008E 2(>3C 02L38 movea.l unci ipped_draw(gcb) ,a0 { no static links ) 

296 00000092 41 30 

297 00000094 2 -■ 3 F movea.l (sp)+,gcb { get gcb back ) 
298 

299 02)0 0095 dr 

300 

301 00000096 2'mF 01136 move.l ( sp) + , cu r rent_pos y(gcb) { set cp to saved end_x, end_y ) 

302 0000009A 2 ' : 5 F 01B2 move.l ( sp) + , cu r ren t_pos_x (gcb ) ( saved on stack. Note that ) 

303 * " ( the CP is saved in an undipped ) 

304 * ( form ) 
305 

306 0000009E 4L SE 

307 00000090 21 3F 

308 000000H2 41 ,'5 

310 * 

311 * 

312 » HSN clipping entry point is GLE J)SCLIPj:UPPING 

313 * 

314 * Regs 

315 » 

316 * 

317 * 

318 » 

319 » 

320 » 

321 »»»*«*.. 

322 » 

323 » 

324 » 

325 * 
32S » 

327 * 

328 » 

329 * 

330 * Returns clipped points (xO.yO) and (xl,yl) 

331 * Returns opcode in dO : - not clipped 

332 * 1 - clipped but some part visible 

333 » 2 - all clipped 

334 * 

335 Ot'iO 00:34 clip equ » 
336 

337 000000R4 4I1.C OOFO movem.l cu r ren t_pos_x (gcb ) , d4-d7 < get xO,yO xl,yl ) 

01H2 

338 0OO00OAA 4( EC OFOO movem.l clip limit s_xmin (gcb) , a0-a3 

0116 
339 

340 OOOOOOBO 6> ; ;-:8 cmp.l clip_xmin,xO fast check to find in bounds line 

341 00O00OB2 61.0 blt.s clip it 



= aO - 
al - 
a2 - 
a3 - 


clip xm in d4 
clip^yrnin d5 
clip_xmax d6 
c)ip_ymax d7 


xO 
yO 
xl 


a4 - 


GLE_GCB 




*««>*» 


«*»*»»«*****«»»**»««. 


clip 






d4 = x0 
d5=y0 
d6 = xl 
d7 = yl 


aO=clip_xmin 
al=clip_ ymin 
a2 = clip"~xmax 
a3 = clip yrnax 
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342 


0O00OOB4 


B889 








cmp. 1 


clip xmax ,x0 




343 


000OOOB6 


6E1C 








bgt . s 


clip_i t 




344 


0O0OOOB5 


BA3A 








cmp . 1 


clip ymin . vO 




34 S 


0OC0OOBB 


61! r 








bit .s 


clip_i t 




346 


OOOOOOBC 


BP.8B 








cmp.l 


clip_ymax , yO 




347 


OOOOOOBE 


6E14 








bgt . s 


clip_i t 




348 


















349 


OOOOOOCD 


BC88 








cmp . 1 


clip xmin.xl 




350 


OO0OOOC2 


6D10 








bit .s 


clip_.i t 




351 


OO0OOOC4 


BC89 








cmp . 1 


clip xrnax.xl 




352 


O00O0OC6 


6E0C 








bgt . s 


clip it 




353 


OO0OOOC3 


BE, if, 








cmp . 1 


clip_ymin , yl 




354 


OOOOOOCfl 


6008 








bit .s 


clip_it 




3S5 


OOOOOOCC 


BE8B 








cmp . 1 


clip ymax.yl 




355 


OOOOOOCE 


6E04 








bgt .s 


clip_it 




35? 


















358 




0000 


OODO 


c 


lipellln equ 


* 




359 


OOOOOODO 


7000 








moveq #0,dO no clippinq performed, set return opcode 




360 


00000002 


4E75 








rts 






3S1 


















362 




0000 


00D4 


GLE ASCLIP CLIPPING eau * 




363 


00000004 


2 FOE 




c 


ip_ 


it move.l 


a5,-(sp) {save global base, and free up a5) 




364 


OO000OD6 


4260 


02D0 






clr .w 


soft clip switch(gcb) 




365 


OOOOOODfi 


8087 








cmp . 1 


yl,yO" check for horizontal lines 




366 


OOOOOODC 


6700 


015C 






beq 


clip_.hor izont al 




367 


















368 


OOOOOOEO 


6D0A 








bit .s 


clipl force yO < yl 




369 


0O000OE2 


C946 








exg 


xO.xl 




370 


OO0OOOE4 


CB47 








exg 
bchg 


yO.yl 

#0, sof t_clip_switch (gcb) 




371 


OO000OE6 


086C 


0000 












0200 














372 


















373 


OOOOOOEC 


BA8B 




c 


ipl 


cmp . 1 


clip_ymax,yO ck for both y above 




374 


OOOOOOEE 


6E0O 


0144 






bgt 


c 1 i p_o u t 




375 


00000OF2 


BE8P 








cmp . 1 


clip ymin.yl ck for both y below 




376 


00000OF4 


6D00 


013E 






bit 


c 1 i p_o u t 




377 


















378 


000O0OF8 


B886 








cmp , 1 


xl.xO check for vertical lines 




379 


OOOOOOFfi 


6700 


016C 






beq 


c 1 i p_v e r 1 1 c a 1 




380 


















381 


OOOOOOFE 


6D0A 








bit .s 


clip2 now force xO < xl 




382 


00000100 


C34 6 








exg 


xO.xl 




383 


00000102 


CB47 








exg 
bchg 


yO.yl 




384 


00000104 


086: 


0000 






#0,soft_clip_switch(gcb) 








02D0 














385 


















386 


000001 OH 


B889 




c 1 i p2 


cmp . 1 


clip xmax.xO ck for both x left 




387 


OOOOOlOC 


6E0O 


0126 






bgt 


c 1 i p._o u t 




388 


000001. 10 


BC8S 








cmp . 1 


clip_xmin , xl ck for both x right 




389 


000001.12 


6D0C 


0120 






bit 


c 1 i p__o u t 




390 


















391 








* 










392 








* 


At 


this point 


. a diagonal line exists with one or two ends 




393 








* 


outside the current clipping limits. This line is reduced by replacinq 




394 








* 


its 


end point 


s with window intersections. Intersections are found 




395 








* 


by 


using the 


midpoint clipping procedure (Newman&Sproull ) 




396 


















PAGE 


8 C3.0] 12 


/26/S4 


22:28 


53 


ASSEMBLY 


OF ASn_SC t lP.TEXT **» File name: 


ASr1_SCLIP *** 


397 


000001.16 


2944 


02C0 


sc 


lv_ 


xl move.l 


xO, sof t_clip_savexO (gcb) save original points 




398 


OOOOOHR 


2 34 5 


0?C8 






move . 1 


yO,soft clip saveyO(gcb) 




399 


OO00O11E 


294 6 


0224 






move . 1 


xl , soft _clip_ savexl (gcb) 




400 


00000122 


2947 


02CC 






move . 1 


yl, soft __clip_ saveyl (gcb) 




401 


















402 


000001 26 


B888 








cmp . 1 


clip xmin,xO is xO inside? 




403 


000001.28 


6C1E 








bge . s 


solv_x r 




404 


















405 


000001.2A 


2A48 




sc 


l'_ 


xl movea . 1 


clip xmin.aS solve for y at (x = xmin) 
xO,do pass parms to solve 




406 


000001 2C 


2004 








move . 1 




407 


000001. 2E 


2 205 








move . 1 


yO.dl (note: xO = d4, yO = dS) 




408 


000001.30 


2605 








move . 1 


yO,d3 (lefty) 




409 


00000132 


2404 








move . J 


xO,d2 (leftx) 




410 


00000134 


2 HO 7 








move . 1 


yl,d5 (rigrtv) 




411 


00000136 


2806 








move . 1 


Xl,d4 (rig-itx) 




412 


00000138 


6100 


014E 






bsr 


solve 




413 


000001 3C 


2800 








move . 1 


dO.xO 




414 


0000013E 


2A01 








move . 1 


dl.yO 




415 


















416 


00000140 


2944 


02C0 






move . 1 


x.O , sof t_clip_savexO (gcb) 




417 


00000144 


2945 


02C8 






move . 1 


yO , sof t. cl ip_saveyO (gcb ) 




418 


















419 


















420 


00000148 


BC89 




sc 


lv_ 


xr cmp.l 


clip xmax.xl is xl inside? 




421 


0000014ft 


6F2E 








ble.s 


i n t s c 1 3 




422 


















423 


0000014C 


2R49 








movea . 1 


clip_xmax,a5 solve for y at (x = xmax) 




424 


0000014E 


2006 








move . 1 


xl.dc pass parms to solve 




425 


00000150 


2207 








move . 1 


yl.dl (note: xO = d4, yO « d5) 

xO,xl free up d4 , d5 (xl, an yl sre now free) 




426 


00000152 


2( 04 








move . 1 




427 


00000154 


2E0S 








move . 1 


yO.yl 




428 


00000156 


2A2C 


02CC 






move . 1 


soft clip saveyl (gcb ) ,d5 




429 


000001 5H 


282'C 


02 ,14 






move . 1 


soft clip savexl (gcb) ,d4 




430 


000001 5E 


262 C 


02C8 






move . 1 


soft clip savey0(gcb),d3 




431 


00000162 


242C 


02C0 






move . 1 


soft _clip_sayexO (gcb) t d2 




432 


00000166 


6100 


0120 






bsr 


solve 




433 


0000016H 


2S06 








move . 1 


xl,xO restore xO,yO 




434 


oooooi ec 


2 HO 7 








move . 1 


yl ,y0 




435 


00000 16E 


2C00 








move . 1 


dO.xl 




436 


00000170 


2E01 








move . 1 


dl ,yl 




437 


















438 


000001 72 


2946 


02C4 






move . 1 


xl , sof t _c.l: p_savexl (gcb ) 




439 


00000176 


2947 


02CC 






move . 1 


yl , sof t"_ciip_saveyl (gcb ) 




440 


















441 


















442 


0000017A 


BA87 




in t set 3 cmp.l 


yl.yO force y2 > yl 




443 


0000017C 


6026 








bit .s 


intsct4 




444 


















445 


000001 7E 


C946 








exg 


xO,xl 




446 


00000180 


CB4 7 








exg 


yO.yl 




447 


00000182 


202C 


02C0 






move . 1 


sof t_c lip__savexO fgcbl ,d0 swap saved copies as well 




448 


00000186 


296C 
02C0 


02C4 






move . 1 


50ft__clip_5avexl(gcb), sof t_clip_savex0 (gcb ) 




449 


000001 8C 


294 


02C4 






move . 1 


dO.soft clip savexl (gcb) 
soft clip saveyO (gcb) ,dO 




450 


00000190 


202 


02C8 






move . 1 




451 


00000194 


29EC 
02C8 


02CC 






move . 1 


soft clip saveyl (gcb ), sof t clip saveyO(gcb) 
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4E2 


0000019A 


294 ) 


02CC 






move. 1 


dO.soft clip saveyl(gcb) 




453 


0000019E 


0»6: 
02D0 


OOOO 






bchg 


#0,sof t_clip_switch(gcb) 




4 54 


















455 


000001R4 


BA8B 




intsct4 cmp.l 


clip_ymax ( yO 




456 


000001A6 


6EO0 


008C 






bgt 


c 1 i p_o u t 




457 


000001AA 


BE8A 








cm p. 1 


clip_ymin, yl 




458 
459 
460 


OOOOOlflC 


6DO0 


0086 






Pit 


c 1 i p_o u t 




000001BO 


BA8A 




50lv 


yu cmp.l 


clip_ymin, yO 




461 
462 
463 


000001B2 


6C2A 








bge.s 


5olv_yd 




000001B4 


2A4A 








movea . . 


clip ymin,a5 solve for x at (y = ymin) 
soft clip savexO (gcb) ,d3 Pass parms to solve 




464 


000001B6 


2620 


OOCO 






move. 1 




46S 


000001BA 


2420 


02 C8 






move. 1 


soft clip saveyO (gcb) ,d2 




466 


000001BE 


202i] 


02 US 






move. 1 


soft clip saveyO (gcb) ,d0 




467 


000001C2 


2220 


02 CO 






move. 1 


sof t_c lip_savexO (gcb) ,dl 




468 


000001C6 


2A2C 


02 C4 






move. 1 


sof t_c lip_savexl (gcb) ,d5 




469 


OOOOOlCfi 


2820 


02 CC 






move . 1 


soft clip saveyl (gcb) ,d4 




470 


000001CE 


6100 


00 8 8 






05 r 


solve 




471 


000001D2 


2A00 








move. 1 


dO.yO 




472 


000001D4 


2801 








move. 1 


dl ,x0 




473 


















474 


00000106 


294 5 


02C8 






move . 1 


yO , sof t_cl ip_saveyO (gcb) 




47S 


0OO001DA 


2944 


O2C0 






move. 1 


xO,soft_cl ip_savexO (gcb) 




476 


















4 77 


000001DE 


BE88 




50 lv 


.yd cmp.l 


clip ymax, yl 




478 


OOOOOIEO 


6F0 ) 


O02C 






ole 


clip_in 




479 


















480 


000001E4 


2R4A 








movea . . 


clip ymax, a5 solve for x at (y ~ ymin) 




481 


00C001E6 


2 CO.: 








move . 1 


xO.xT (save xO,yO in xl.yl which is free) 




482 


000001E8 


2EC5 








move . 1 


yO.yl 




483 


000001EA 


2A2 1 


02C4 






move . 1 


soft clip savexl (gcb ) ,d5 




484 


000001EE 


282 : 


02C2 






move . 1 


soft clip saveyl (gcb ) ,d4 




48S 


000001F2 


2620 


O2C0 






move . 1 


soft clip savexO (gcb ) ,d3 




486 


000001F6 


2420 


02C8 






move . 1 


soft clip saveyO (gcb) ,d2 




487 


000001FA 


202: 


02CC 






move . 1 


soft clip saveyl (gcb ) ,d0 




488 


000001FE 


222 : 


0224 






move . 1 


sof t_clip_savexl (gcb ) , dl 




489 


00000202 


610) 


0084 






bsr 


solve 




490 


00000206 


28C'> 








move . 1 


xl ,x0 restore xO, yO 




491 


00000208 


2A0 7 








move . 1 


yl.yO 




492 


0000020A 


2EC ) 








move . 1 


dO.yl 




493 


0000020C 


2CC1 








move. 1 


dl.xl 




494 


















49b 




0000 


020E 


c 


IP 


in equ * 






496 


0000020E 


082 : 
C2c: 


0000 






btst 


»0,soft_clip_switch(gcb) 




497 


00000214 


6704 








beq . 5 


clipin 




4 38 


00000216 


C945 








exg 


xO.xl restore org direction 




499 


00000218 


CB4 7 








exg 


yO,yl 




500 




C .) 


021S 


c 


ip 


n equ * 






501 


0000021A 


7001 








rnoveq 


#l,dO clipping one or more points 




502 


0000021C 


2Mb P 








movea . 1 


(sp)+,a5 (restore global base) 




503 


0000021E 


4E75 








r 1 s 






504 


















505 




0000 


0220 


c 


ip. 


_all._in equ 


* 




506 


00000220 


2A5F 








movea . '. 


(sp)+,aS (restore global base) 
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507 


00000222 


D82C 

02DO 


0000 






btst 


#0,sof t_cl ip_switch (gcb ) 




508 


00000228 


670O 


FEA6 






beq 


clipal lin 




509 


0000022C 


C94A 








exg 


xO,xl restore org direction 




510 


0000022E 


CB4 7 








exg 


yO,yl 




511 


00000230 


6000 


FE9E 






bra 


clipal lin 




512 


















513 




0000 


02 34 


c 


iP. 


.out equ * 






514 


00000234 


7 002 








rnoveq 


#2, dO all clipped, set up return opcode 




515 


00000236 


2A5T 








rnovea . 1 


(sp) + ,a5 {restore global base) 




516 


00000238 


4ET) 








'ts 






517 


















518 




OOCO 


023A 


c 


IP. 


horizont a] 


equ * 




519 


0000023A 


BEfi; 








emp . 1 


clip_ymax,yl ck for y out of clip limits 




520 


0OO0023C 


6EFI. 








bgt 


clip out 




521 


0OO0023E 


BESm 








emp , 1 


clip ymin, yl 




6 22 


0C000240 


6DF. 








bit 


c 1 i p_o u t 




523 


















524 


00000242 


B88>; 








cmp.l 


xl.xO 




525 


00000244 


670O 


0038 






beq 


clip dot 




526 


00000248 


6D0« 








b 1 1 . s 


clip hi 




527 


0000024A 


C946 








exg 

bchg 


xO.xT 




528 


0000024C 


086.: 


0000 






»0,soft_clip_switch(gcb) 








022/ 














529 


00000252 


BE 82 




c 


ip. 


hi cmp.l 


clip xmax,xO xO < xl 




530 


00000254 


8E2.F 








bgt 


clip_out 




531 


00000256 


BC6i' 








emp. 1 


clip_xmin, xl 




S32 


00000258 


e:;> : 








bit 


clip_out 




533 


000002SA 


BOS'' 








emp. 2 


clip xmax,xl 




5 34 


0000025C 


6F02 








Die. 5 


clip h2 




535 


0OOO025E 


2CC ; ; 








move . 1 


clip_xmax, xl 




536 


00000260 


BS8 




c 


iP. 


h2 cmp.l 


clip_xmin, xO 




537 


00000262 


6CAH 








bge.s 


c 1 i p_i n 




538 


00000264 


260i. 








move . 1 


clip_xmin, xO 




539 


00000266 


60A6 








b r a , 5 


c 1 i p_i n 




540 


















541 




OOOu 


0268 


c 


ip. 


vertical e 


qu * 




542 


















543 


00000268 


BCS'2 








emp. 1 


clip xmax, xl 




544 


0000026A 


6EC/ 








bgt 


c 1 i p_o u t 




545 


0000026C 


BC8« 








cmp.l 


clip xmin, xl 




546 


0000026E 


6 PC.-': 








bit 


c 1 i p_o u t 




547 


00000270 


BESS- 








emp. 1 


clip~ymax,yl assumes yO <" yl 




548 


00000272 


6F02 








b 1 e . 5 


clip vl 




549 


00000274 


2E0F: 








move. 1 


clip ymax.yl 




550 


)0 000276 


BASH 




cl 


ip. 


vl cmp.l 


clip ymin.yO 




551 


0000027 3 


6 CO'. 








bge 


clip_in 




552 


0000027A 


2A0F. 








move . 1 


clip ymin,yO 




553 


0000027C 


e -jo 








bra 


cl ip_in 




554 


















555 




00:0 


027E 


cl 


ip. 


dot equ * 




556 


W00027E 


Base 








cmp.l 


cl ip_xmax, xO 




557 


00000280 


6EE2 








bqt 


c 1 i p~o u t 




558 


00000282 


B8S8 








cmp.l 


clip xmin.xO 




553 


00000284 


6DHF 








bit 


clip out 




560 
561 


1000028 6 


6061. 








bra 


clip in 
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PfiGE 11 [3.0] 12/26/84 22:28:53 ftSSEhBLY OF fi5M_5CL I P . TfIXT *** File name: RSH^SCLIP 

to the value supplied 
"left " and " right " 
are only reletive 



562 








* routine to find intersectio 


ns. DO wi 


11 be 


driven 


563 








* as val_x. 01 


will contain 


the cor res 


pond: 


ng value 


564 








* contain the original start: 


ig points. 


"X 


and "Y" 


565 








* to the current use of this 


'outine, not t 


e physic 


566 








* di splay 










56 7 








# 










568 
569 

570 




0000 


0288 


solve equ * 












0000 


0005 


val y, equ a5 










571 




0000 


0005 


righ"t_y equ d5 










572 




0000 


0501 


right x equ d4 
le J t i equ d3 










573 




ocoo 


0003 










574 




0000 


0002 


le f t_x equ d2 










575 


















576 


00000288 


B08D 




solve s cmp.l 


val_x,dO 








577 


0000028A 


672C 




beq . s 


solvere 








578 


OO0O028C 


6D0E 




blt.s 


so]ve_l 








579 


















580 


0000028E 


2800 




solve_r move . 1 


dO, right x 








581 


00000290 


2301 




move . 1 


d 1 j right y 








582 


00000292 


0082 




add. 1 


left_x,d<j 








583 


00000294 


6320 




bvs.s 


force exit 


check 


for 


overflow 


584 


00000296 


0283 




add.l 


left y,dl 








585 


00000298 


69 1C 




bvs . 5 


force_ex 1 t 


check 


for 


overflow 


586 


0000029R 


6014 




b ra . s 


round 








587 


















588 


0000029C 


2400 




solve 1 move . 1 


dO.left x 








589 


0000029E 


2601 




move . 1 


dl,left y 








590 


000002AO 


0084 




add.l 


right _x ,d0 








591 


000002R2 


6912 




bvs.s 


force "exit 


check 


for 


overflow 


592 


O00002A4 


5- 2 80 




addq . 1 


itl,d0 








593 


00000206 


690E 




bvs.s 


force_exi t 


check 


for 


overflow 


594 


000002A8 


0285 




add.] 


rightly, dl 








595 


000002SH 


690R 




bvs.s 


force exit 


check 


for 


overflow 


596 


000002HC 


S281 




addq . 1 


#l,dl 








597 


000002AE 


6906 




bvs.s 


force_exi t 


check 


for 


ove r f low 


598 


















599 


000002BO 


E280 




round asr.I 


#l,dO 








600 


000002B2 


E2S1 




asr.I 


#l,dl 








601 


000002B4 


60D2 




bra . s 


solvers 








602 


















603 

604 
605 


000002B6 


4E76 




force_exit trap 




let s 


ysterr 


process 


000002B8 


4E75 




soive_e rts 










606 


















607 


000002BH 


4E75 




gle_asc]ip_gle_ 


asclip rts 








608 


















609 








ENO 










PfiSS 1 


ERRORS: 
















PASS 2 


ERRORS: 
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ASM.STEXT 



Description 

ASM.STEXT provides software graphics text routines. 



Usage 

Called as a DGL "tool." 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PASS 1 

1 

2 
3 
4 

5 
6 
7 



10 
11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
3S 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 



1 [3.0] 12/2>-/84 22:28:37 ASSEMBLY OF BSM_STEXT .TEXT 
:OMPLETE. ESFORS: 

* Graphics Low End 
* 

* Module - Software text 

* Prog r ante r = BJS 

* Date = 9-30-82 



File name: ASM^STEXT 



Purpose : To provide software Text generation routines. 
Rev history 



Created 
Modified 



Q_ 3Q -Q2 

6-27-83 BJS fidded export text for softtext routine 



(c) Copyright Hewlett-Packard Company, 1983. 
Hll rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
paragraph (b) (3) (8) of the Rights in Technical 
Data and Computer Software clause in 
DPR 7-104 .9(a) . 

HEULETT-PBCKARD COMPANY 
Fort Collins, Colorado 

rnname GLEJfSTEXT 

src module GLEJ1STEXT; 

src import GLE_TYPES; 

src export 

src procedure gle_sof t_text ( gcb : graphics_cont rol_block_pt r ); 

src end; 

nosyms 

Export text is defined by STEXT Pascal module 

Define ent ry points 

def GLE ASTEXT_GLE_SOFT TEXT 
def GLE P.STEXT GLE ASTEStT 



* Set up glob a Is 

0000 0000 GCB equ aO 

INCLUDE ASM TYPES 



^GE 2 [3.0] 12/20/84 22:28:37 BSSEM81Y OF PSM_STEXT. TEXT 

59 0O00 0018 AUAIT BLANKING equ 24 

60 0OO0 018E BACKGROUND equ 398 

61 0000 0020 BUFFER MODE equ 32 

62 0OO0 029C CBLC SD~FT_TEXT XFORn equ 668 

63 0OO0 029A CHLC_TEXT XFORM" equ 666 

64 0O00 01D2 CHBR_HEIGH"T equ 466 

65 0O00 01E6 CHPR_JUST_X equ 486 

66 0OO0 OlEfi CHPR_JUST_Y equ 490 

67 0000 0028 CHBR_SIZE equ 40 

68 0000 01BO CHAR^SIZES equ 432 

69 0O00 01D6 CHBR_SPBCE equ 470 

70 0O00 01CE CHPR UIDTH equ 462 

71 0000 0030 CLEAR" equ 48 

72 OOOO 0038 CLIP LIMITS equ 56 

73 OOOO 01 F2 CLIP LIMITS_Xr1BX equ 498 

74 OOOO 01EE CLIP'LIMITS XMIN equ 494 

75 OOOO 01FB CLIP LIMITSJiTlAX equ 506 

76 0O00 01 F6 CLIP LIMITS YMIN equ 502 

77 OOOO 0196 COLOR" MBP SUPPORT equ 406 

78 OOOO 0190 COMPLEMENT SUPPORT equ 400 

79 OOOO 01AB CONT_LINESTYLES equ 426 

80 OOOO 023P COSX_TABLE equ 570 

81 OOOO 024A COSY TABLE equ 586 

82 OOOO 0208 CURRENT_BUFFER MODE equ 520 

83 OOOO 0212 CURRENT COLOR TNDEX equ 530 

84 OOOO 01 FE CURRENT_CURSOR"_STPTE equ 510 

85 OOOO O2O0 CURRENT_CURSOR_X equ 512 

86 OOOO 0204 CURRENT_CURSOR Y equ 516 

87 OOOO 0216 CURRENT JlRfiUING" MODE equ 534 

88 OOOO 0214 CURRENT FILL INUEX equ 532 

89 OOOO 020P CURRENT_LINE5"TYLE equ 522 

90 OOOO 0210 CURRENT_LINESTYLE_MOOE equ 528 

91 OOOO 020C CURRENT_LINESTYLE_PBTTERN equ S24 

92 OOOO 0218 CURRENT LINEWIDTH equ 536 

93 OOOO 020E CURRENT PATTERNJ.ENGTH equ 526 

94 OOOO 0220 CURRENT_POLYGON_BLUE equ 544 

95 OOOO 021P, CURRENT P0LYGON~COL0R equ 538 

96 OOOO 021E CURRENT_P0LYG0NJ5REEN equ 542 

97 OOOO 021C CURRENT POLYGONJ?ED equ 540 

98 OOOO 01B2 CURRENT_POS_X equ f.24 

99 OOOO 01 B$ CURRENT_POS Y equ '''38 

100 OOOO 0040 CURSOR equ 54 

101 OOOO 0048 DEFINE .COLOR MAP equ 72 

102 OOOO 0050 DEFINE^DRBUIRG MODE equ 80 

103 OOOO 014C DEVICE"BUF equ 332 

104 OOOO 0154 DEVICE"INFO equ 340 

105 OOOO 0158 0EVICE""INFO CHAR_COUNT equ 344 

106 OOOO 0150 OEV DEP_STUFF equ 336 

107 OOOO 016C DISPLAY HANDLER_CHBR_COUNT equ 364 

108 OOOO 0166 OISPLAY_HANDLER_NAME equ 358 

109 OOOO 0186 DISPLAY MAX X equ 390 

110 OOOO 018S DISPLAYJ1AX"_Y equ 394 

111 OOOO 017E DISPLAYJ1INJ< equ 382 

112 OOOO 0182 DISPLAY MIN Y equ 386 

113 OOOO 01SE DISPLAY NAME" equ 350 

114 OOOO 0164 DISPLAY NAME CF|RR_C0UNT equ 356 

115 OOOO 016E DISPLAY RES X* equ 366 



»* File name: ASM_STEXT 
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116 
117 
116 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
163 
169 
170 
171 
172 



3 [3.0] 12/26/84 22:26:37 ASSEMBLY OF flSI1_.STEXT . "EXT 

0000 0176 DISPLAY RES Y equ 374 

0000 OlftO DITHER SUPPORT equ 416 

0000 0058 DRAW eq'u 88 

0000 0118 DUMMY XXX equ 280 

0000 OlBfl END_X equ 442 

0000 C1BE END Y equ 446 

0000 0194 ERP.SE SUPPORT equ 404 

OOOC C15P ERROR RETURN' equ 346 

OOOC 0060 FILL_TNOEX COLOR equ 96 

0000 0068 FLUSH_BUFFER equ 104 

0000 01A6 GfiMUT equ 422 

OOOO 0070 GET_C0L0R MAP equ 112 

0000 0080 GET POLYGON INFO equ 128 

0000 0078 GET ROSTER equ 120 

0000 0088 GLOffD equ 136 

0000 0090 GRAPHICS ON OFF equ 144 

0000 0098 GSTORE equ TS2 

0000 O0F10 INDEX COLOR equ 160 

0000 0000 INF01 equ 

0000 0004 INF02 equ 4 

0000 0008 INF03 equ 8 

0000 OOOC INF04 equ 12 

0000 0010 INFO PTR1 equ 16 

0000 0014 INFO PTR2 equ 20 

0000 00A8 INQ F1P2 equ 168 

0000 0148 IOCS equ 328 

0000 0120 10 INC TIMEOUT equ 288 

0000 0128 I0_REFD" equ 296 

0000 0130 IO_SET TIMEOUT equ 304 

0000 0138 IO_TERF equ 312 

0000 0140 10 WRITE equ 320 

0000 01CC KATA equ 460 

0000 00B8 LINESTYLE equ 184 

0000 OOBO LINEUIDTH equ 176 

0000 010E LINEUIDTHS equ 430 

0000 01DH LINE SPACE equ 474 

0000 OOCO MURKER equ 192 

0000 01C8 MARKER ^HEIGHT equ 456 

0000 00C8 MARKER" SIZE equ 200 

0000 01C2 MARKER TYPE equ 450 

0000 01C4 MARKER WIDTH equ 452 

OOOO OODO MOVE equ 208 

0000 0192 N0NJ30MINAN.T SUPPORT equ 402 

OOOO 0222 0LD_H5 equ 54"6 

OOOO 0226 OLD P.6 equ 550 

OOOO 00D8 OUTPUTJSCRPEI equ 216 

OOOO OOEO OUTPUT ESCflPEO equ 224 

OOOO 01A2 PALLETTE equ 418 

OOOO 00E8 POLYGON equ 232 

OOOO 019C POLYGONFILL FPCTOR equ 412 

OOOO 019E POLYGON'^SOLID FILL equ 4 14 

OOOO 0198 POLYGON~SUPPO|?T equ 403 

OOOO 019H REDEF BACKGROUND equ 410 

OOOO OOFO SET_Mfl"RKER equ 240 

OOOO 02SP. SINxTHBLE equ 618 

OOOO 027A SINY_TABLE equ 634 

OOOO 02D2 SOFT_CLIP_CPX equ 722 



File name : ASM STEXT 



4 [3.0] 12/26/84 22:28:37 ASSEMBLY OF ASM_STEXT . TEXT 



173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
20S 
206 
207 
208 
209 
210 
211 
212 
213 
214 
21S 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
22 9 



*** File name: ASM_STEXT *** 



OOOOOOOO 4E41 
00000002 OOOO 



OOOO 02D6 SOFT_CLIP CPY equ 726 
OOOO 02C0 SOFT CLIP SBVEXO equ 704 
OOOO 02C4 S0FT_CLIP_SP,VEX1 equ 708 
OOOO 02C8 S0FT_CLIP_SBVEYO equ 712 
OOOO 02CC SOFT_CLIP SHVEY1 equ 716 
OOOO 02D0 SOFT CLIP SUITCH equ 720 
OOOO 02A4 S0FT_FONT~PTR equ 676 
OOOO 02A8 S0FT_TEXT_TEMP1 equ 680 
OOOO 02PC SOFT TEXT TEMP2 equ 684 
OOOO 015C SPOOLING equ 348 
OOOO OOFS TEXT equ 248 
OOOO 01E2 TEXT_COS_DIR equ 482 
OOOO 0100 TEXTJ3IR equ 256 
OOOO 0108 TEXT_JUST equ 264 
00 30 0232 TEXT_LINE X equ 562 
:0 0236 TEXT_LINE Y equ 566 
OOOO 010E TEXTJIN CIR equ 478 
OOOO 022P, TEXT_SPAC"E X equ 554 
OOOO 022E TEXT SPRCE Y equ 558 
OOOO 0110 TEXT SPACING equ 272 
OOOO 02B8 UNCLTPPEDJjRAU equ 696 
OOOO 02B0 UNCLIPPED MOVE equ 688 
OOOO OlfiC VECT LINE5TYLES equ 428 



OOOO OOOO cosx_tab equ 
OOOO 0010 cosy_tab equ 16 
OOOO 0030 sinx_tab equ 48 
OOOO 0040 siny_tab equ 64 

********************** ****** 
OOOO OOOO GLE_P1STEXT_GLE_S0FT_TEXT equ » 

stack overflow cK 



************** 



************* 



******** 



trap #1 
dc .w 



Check calc text_xform to see if the 
to be re-calcultated . 



00000004 206E 0008 movea.l 

00000003 4A68 329P. tst .w 

OOOOOOOC 6700 OOOA beq 

00000010 2F08 move. 1 

00000012 2068 029C sO movea.l 

00000016 4E90 jsr 



8[a6) ,gcb 

calc_text_xform(gcb) 
X f o rm_o k 

gcb,-(spl 

calc soft text xfo rm(qcb) . aO 

(SOT " 



ransf ormat ion needs 
(HO) 



(pass gcbj 

( no static links > 



OOOO 0018 xform_ok equ * 



* Get GCB pointer 

* Move string address to local address reg 

* Move cnt to local address reg 

* Get addr of stroke table in local address reg 



00000018 206E 0008 



rnovea . 1 



3(a6) ,gcb 



<A0) 
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Top of loop 

Check character count 


Quit if 


sub.w #l,dO 
bit DONE 


(=0?) 


Get current character 


from string 


moveq #0 , d 1 
move.b (al)+,dl 
adda.l #l,a4 


<clea 
<dl < 



AGE ' [3.0] 12,;-. /8i 22:28: i7 HSSEilElv OF RS11_STEXT . TEXT 

250 0000001C 2268 C010 trove a. 1 info ptrl(gcb),al {string ptr) 

2'<1 00000020 2028 0000 move.l inf oT(gcb ) , dO {string count) 

232 « 

234 * save a copy of starting cp in temp (this is used for CR point) 

235 « 

236 00000024 2228 01B2 move . 1 cu r rtn t jas_< (gcb ) ,dl 
231 0C000028 2E28 01B6 move . 1 cu r rer, t_pos_y (gcb ) ,d7 

238 0000002C 2141 02113 move . 1 dl , sof t_t ex t_templ (gcb ) 

239 00000030 2147 02RC move.l d7 , sof t_t ex t_temp2 (gcb ) 

240 00000034 2S7C 0000 move a. 1 #0 , a4 

OOOO 

241 » 

242 0000 003fl NEXT_CHAR equ * 

243 0000 003fl bad_char equ * {bad characters are ignored) 

244 

245 

246 

247 

248 0000003R 9C7C 0001 

249 0000003E 6D00 01R4 
250 
251 
252 

253 0COO0C42 7200 

254 00000044 1219 

255 00000046 D9FC 0000 
0001 

256 * 

257 * Calc which font tables to use 

259 0000004C 2468 02R4 moves. 1 soft font_.pt r (gcb) ,A2 {Pointer to stroke tables) 

260 00000050 264R movea.l a2,a3 {copy stroke table pointer) 
261 

262 0C000052 927C 0020 sub.w #.>2,dl {all char < 32 are control) 

263 00000056 6C00 01 1C bit control 
264 

265 0000005A B77C 005F cmp.w #95, dl {ck for char > 127) 

266 0000005E 6)00 0016 bgt plot_hi 
267 

268 00000062 E27C Q03C cmp.w #60, dl {ck for sqr root (special kata) 

269 00000066 6600 0044 bne plot_std 
270 

271 0000006A 4A68 01CC tst.w kata(gcb) {ck katakana flag) 

272 0000006E 673C beq.s plot std 

273 00000070 723F moveq #63,31 {use kata char #63 for sqr root) 

274 00000072 0C00 0014 bra plot_kata 
275 

276 0C00 OC76 plotjii equ * 

277 00000076 4^68 01CC tst.w kata(gcb) {ck katakana flag) 

278 0000007R 6718 beq.s plot_rom 

279 0000007C 927C 0081 sub.w #129, dl {legal kata from 161 to 223) 

280 00000080 6CB8 bit bad_char 

281 00000082 BJ7C 0C3E cmp.w #62, dl 

282 00000086 6FB2 bgt bad_char 
283 

284 0C00 0088 plot_kata equ * 



File name: R5n_STEXT 



00000088 
O0O00O8C 
00000090 


D7ER 
O'rER 
6000 


0014 
0010 
0020 




add a . 1 
add a. 1 
bra 


$14(a2) ,a3 
$10(a2) ,a2 
plot_common 


00000094 
00000098 
0000009R 
0000009E 


0000 
92 7C 

C[fi0 

b;7c 

6E9R 


0094 
0088 

0036 


plot. 


rem equ 
sub.w 
bit 
cmp.w 
bgt 


#136, dl 
bad char 
#54, dl 
bad_cl a r 


OOO00ORO 
OOO00OR4 
0OO000R8 


D7ER 

p;er 

60 00 


oooc 

0C08 
0008 




adda . 1 
adda . 1 
bra 


$C(a2) ,a3 
$8(i2) ,a2 

plot__common 




croo 


COflC 


plot 


_std equ 


* 


OOOOOORC 
0OO00OBO 


[^ER 
DSD2 


0004 




adda .1 
adda .1 


4(a2),a3 
(a2) ,a2 



AGE >> [3.0] 12/26/84 22:28:37 ASSEMBLY OF ASM_STEXT . TEXT »*« File name: fiSri_STEXT *** 

285 * 

286 00000088 D7ER 0014 adda.l $14(32), a3 {A3 points to top of KflTR Pointer table) 

287 O0O00O8C DfEft 0010 adda.l $10(32), 32 {A2 points to top of KflTA stroke table) 
288 
289 

290 

291 00000094 927C 0088 sub.w #136, dl {legal roman are 16 
292 
203 
294 
'295 
296 

297 OOOOOORO D7ER OOOC adda.l $C(a2),a3 (A3 points to top of KATA Pointer table) 

298 OOO00OR4 DSEfl 0008 adda.l $8(i2),a2 (A2 points to top of KATA stroke table) 
299 
300 

301 CfOO COflC plot_std equ * (STD is first entry in stroke table) 

302 • 

303 OOOOOORC OVER 0004 adda.l 4 ( a2 ) , a3 {A3 points to top of Pointer table) 

304 0OO00OBO DSD2 adda.l (a2),a2 {A2 points to top of stroke table) 

305 * 

307 » 

308 0000 O0B2 plot_ccmmon equ * 

309 « 

310 * Calc number of vectors in character by indexing into pointer sub-table 

311 * 

312 000000B2 0241 add.w dl,dl {calc 16 bit offset with character) 

313 OOO0OOB4 3T33 1002 move.w 2(a3,dl),dS {get index of first vector of next char) 

314 OOO00OB8 3C33 1CO0 move.w a3,dl),d6 {get index of first vector of this char) 

315 OOOOOOBC 9P46 sub.w do.dS {d5 is the number of vectors in char) 

316 * 

317 * Calc indexs to vector locations in stroke table 

318 » 

319 0OO00OBE 9C7C O0O1 sub.w #l,d6 {pointer are base 1, we need base 0) 

320 0OOO0OC2 04C6 adda.w d6,a2 {form ptr to first vector) 

321 * 

322 * move current position into local regs 

323 « 

324 O0O00OC4 2228 01B2 move.l cu rrent_pos_x (gcb ) , dl (X) 

325 000000C8 2F28 01B6 move.l current_pos_y (gcb ) ,d7 {Y> 

326 » 

327 OCOO OCCC VECTOR LOOP equ * 

328 » 

329 * Top of vector loop 

330 * 

331 00O00OCC 181A move.b (32)+, d4 { get packed vector information ) 
332 

333 00O00OCE 1404 move.b d4,d2 { unpack x information ) 

334 000000D0 ES4R Jsr.w #4,d2 

335 00000002 C47C 0007 and.w #10007, d2 

336 0OO00OD6 D442 add.w d2,d2 { form word index into cos table > 
337 

338 0OO00OD8 H 04 move.b d4,d3 { unpack y information > 

339 OOOOOODR Ce7C OOOF and.w #J00Cf,d3 

340 0OOO0ODE Dt43 add.w d3,d3 { form word index into cos table > 
341 
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PPGE 


: '_■■:. 0] :.2, 


26/84 


22:2 


3 


77 PS3EM6LY 


OF fiSH_STE»T.T=KT »** File name: 


RSM_STEXT »«* 


34 2 


OOOOOOEC 


2648 






movea . 1 


gcb , .33 




34 3 


OO0OOOE2 


D7FC 
02 7 P 


0000 




adda. 1 


#cosx_t aoie , a3 




34 4 


ooooooi:s 


:;!.:■;:- 


2000 




move . w 


cosx t ab ( a3 ,d2 ,w) ,d6 




34 5 


OOOOOOEC 


DC73 


3040 




add.w 


siny tab(a3,d3.w) ,06 ( d6 is new X ) 




346 

347 
348 


OOOOOOFO 


48C6 






e«i .1 


d6 




000000F2 


3633 


3010 




ETO - ? , w 


cosy tab(a3 ,d3 .w) ,d3 




34 3 


000000F6 


D073 


2030 




ad--, .w 


sinx tab(a3.d2 . w ) ,03 < d3 is new Y } 




350 
351 
352 


OOOOOOFR 


48C3 






ext . 1 


d3 




OOOOOOFC 


DC81 






add.l 


dl ,06 (t ranslate by CP) 




353 


OOOOOOFE 


6900 


OOEfl 




bvs 


range error 




354 


00000102 


pes? 






add. 1 


d7,d3" 




355 


00000104 


6900 


0CE4 




bvs 


r ange_e r ro r 




356 
















357 


00000108 


48E7 


C5E8 




movem . 1 


d0/dl/d5/d7/a0-a2/a4,-(sp) (save local state) 




358 
















359 


0000010C 


2F08 






move . 1 


gcb, - (sp) {pass gcb } 




360 
















361 


0000010E 


2146 


01BR 




move . ] 


d6 , end_x ( gcb ) {pass parms to vector generator) 




362 


00000112 


2143 


01 BE 




rro .-e . 1 


d3,end_y(gcb) 




363 
















364 


000001 16 


0804 


0007 




btst 


#7,d4 {ck control for move or draw) 




365 


000001 Ifi 


670R 






beq . s 


needmove 




366 
















367 


000001 LC 


2068 


0058 




rrovea . 1 


draw(gcb),aO { no static links ) 




368 


00000130 


4E90 






jsr 


(aO) 




369 


00000122 


6000 


0008 




bra nex 


t_vector 




370 
















371 




0000 


0126 


NEEDMOVE equ » 






372 
















373 


00000126 


2068 


OODO 




movea . 1 


move(gcb),aO { no static links ) 




374 


0000012R 


4E90 






j = r 


(aO) 




375 
















376 




0000 


012C 


NEXT VECICR ecu t 




377 


0000012C 


4CDF 


17R3 




movem. 1 


(Sp)+,d0/dl/d5/d7/a0-a2/a4 (restore local state) 




378 
















379 




0000 


0130 


TEST VECTOR ec 


u * 




380 








* 








381 








* 


Check for no 


vectors left 




382 








* 








383 


00000130 


S1C0 


FF9R 




dbr a 


dS,VECTOR_l.0OP 




384 








* 








385 








* 


Update CP 






386 








* 








387 




0000 


0134 


update._cp equ 






388 


00000134 


4282 






clr.l 


d2 




389 


00000136 


340C 






move 


a4,d2 




390 


00000138 


2228 


022R 




move . 1 


text space x (ccb ) ,dl 




391 


0000013C 


3 64 1 






movea .w 


dl ,aj 




392 


0000013E 


B7C1 






empa . 1 


dl,a3 




393 


00000140 


66C0 


00R8 




bne 


range error 




394 


00000144 


2E28 


022E 




move . 1 


text space y (ccb) ,d7 




395 


00000148 


364 7 






movea .w 


07, a 3" 




396 


0000014P 


B7C7 






empa . 1 


d7,a3 




397 


OOOOOMC 


6600 


009C 




bne 


range_er ror 




PAGE 


8 [3.0] 12/26/84 22:28 


37 PSSEMBLY 


OF RSM_STEXT.TEXT *** File name: 


RSM_STEXT *** 


398 


00000150 


C3C2 






muls 


02, dl 




399 


00000152 


CFC2 






muls 


d2,d7 




400 


00000154 


E6S1 






asr . 1 


*3,dl 




401 


00000156 


E6S7 






asr.l 


#3,d7 




402 


000001:8 


D2P8 


0208 




add. 1 


sof T_text_templ (gcb) ,dl 




403 


0000015C 


6900 


008C 




c vs 


range error 




404 


00000130 


DER8 


02flC 




add.l 


sof t_text_temp2 (gcb ) ,d7 




405 


00000134 


6900 


0084 




bvs 


range_e r ror 




406 
















407 




0000 


0168 


UPDATE equ * 






408 
















409 


00000158 


2141 


01B2 




move . 1 


dl, current pos x(gcb) 




410 


0000013C 


2147 


01B8 




move . 1 


d7, current pos y(gcb) 




411 


00000170 


6000 


FEC8 




bra 


NEXTJ2H0R 




412 








* 








413 




0000 


0174 


cor t rol equ * 






414 
















415 


00000174 


027C 


0020 




add.w 


#32, dl {restore character value) 




416 


00000178 


B27C 


OOOD 




cmp.w 


#13, dl { CR ? ) 




417 


0000017C 


6716 






beq . 5 


C_return 




418 
















419 


0000017E 


B27C 


0000 




cmp.w 


#10, dl { LF ? ) 




420 


00000182 


6728 






beq . s 


L_feed 




421 
















422 


00000184 


B27C 


0008 




cmp.w 


#8,dl { BS ? ) 




423 


00000188 


6600 


FEBO 




bne 


bad_char 




424 
















425 




0000 


018C 


B 


.space equ * 






426 
















427 


0000018C 


99 FC 

0002 


0000 




suba . 1 


#2,a4 




428 


00000192 


6000 






bra , s 


update_cp 




429 
















430 




0000 


0194 


C 


.return equ * 






431 
















432 


00000194 


287C 

0000 


0000 




movea . 1 


#0,a4 




433 


0000019R 


2228 


01B2 




move . 1 


current_pos„x i gcb ) ,dl 




434 


0000019E 


2E23 


01B6 




move . 1 


current pos y I gcb ) ,d7 

soft text tempi (gcb ) ,d: { restore cp to begining ) 




435 


00000102 


2223 


02 PI 8 




move . 1 




436 


00000106 


2E23 


02RC 




move . 1 


soft text temp2(gcb) ,d7 




437 


OOOOOIOF) 


60BC 






bra 


UPDATE < Update the CP and process next char ) 




438 
















439 




0000 


01 AC 


L 


_feed equ * 






440 
















441 








* 








442 








* 


Update local 


cp (dl,07) 




443 








>* 


Update starting cp (tempi, temp2) 




444 








x 








445 


oooooioc 


99FC 

0001 


0000 




suba . 1 


#l,a4 




446 


000001B2 


2228 


0182 




move . 1 


current pos x (gcb ) ,dl 




447 


000001B6 


2E28 


31B6 




move . 1 


cu r rent_pos_y . gcb ) ,d7 




448 
















449 


000001BR 


2428 


3232 




move . 1 


text line x(ccb) ,d2 




450 


000001BE 


261:6 


0236 




move . 1 


text_line_y(ccb) ,d3 




451 
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a5r 


1 


*3,d2 




asr 


1 


#3,d3 




add 


1 


d2,dl 


( 


bvs 




range error 




add 


1 


d3,d7 




bvs 




range_erro r 




add 


1 


d2,soft text 


tempi (gcb) 


bV5 




range error 




add 


1 


d3,so7t tex! 


temp2 (gcb ) 


bvs 




range_er ror 





PfiGE 9 [3.0] 12/26/54 22:28:37 ASSEMBLY OF SSM_STEXT . TEXT «»» File name: fiSM STEXT »*» 

452 000001C2 E682 

453 000001C4 E68J 
454 

455 000001C6 D282 add.l d2,dl { inc local cp > 

456 000001C8 6900 0020 

457 000001CC 0E83 

458 OOO001CE 6900 001R 
459 

460 000001D2 DSA8 02fi8 

461 000001D6 6900 0012 

462 000001DB C7H8 02HC 

463 0000010E 6900 OOOf) 
464 
465 000001E2 6084 bra UPORTE < Update the CP and process next char > 

467 000O 01E4 DONE equ * 

468 0OOO01E4 4E5E unlk a6 

469 000001E6 2E9F move.l [sp)*,(sp) 

470 0OO001E8 4E75 rts 
471 

472 000001EP! 003C 0002 range error ori #2,ccr force overflow and let system process 

473 000001EE 4E76 ~ trapv 

474 000001FO 60F2 bra. 5 done 
475 

476 000001F2 4E75 OLE HSTEXT GLE flSTEXT rts 

477 ~ ~ 
478 
479 END 

PBSS 1 ERRORS: 

PASS 2 ERRORS: 
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BOOTDEFS 



Description 

BOOTDEFS defines several entry points and table addresses within the Boot ROM. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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2 

3 
4 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
3 7 

3 8 
39 
4C 
41 
42 
43 
44 

4 5 
46 
47 
48 
49 
SO 
51 
52 
53 
54 
55 
66 
57 
50 



[5.0] 12 



ur-iFLETE. efcor: 

00000000 



2 1 : C 




:47 ASSEMBLY OF BOOTDE F3 . TEXT 

rorg 

nosyms 
This file contains hardware dependent addresses for the 

manufacturing unit 

Chipmunks 



File name: BOOTDEFS 



0000 3C26 cff loga 
0000 3C3E cff_logb 

0000 3C56 cff_expp 
0000 3C6E cff_expq 

0000 3C8E cff_sin 

00)0 3CCE cff_tanp 
00)0 3CEE cff_tanq 

00)0 3D16 cff_asnp 
0000 303E cff_asnq 

0000 3D66 cff atnp 
0000 3D86 cff_atnq 

00)0 3DA6 cff_powp 
00)0 3DC6 cff_powq 



The following are the addresses of the coeffici 
evaluation of Basic functions. 



ts used in the 



equ 

equ 



equ 

equ 



$3c26 
$3c3e 

$3c56 

$3.~6e 



equ $3c 



equ 
equ 



equ 
ecu 



eq j 
equ 



$3cce 
$3.:ee 



Mo; 6 
S;3a3e 



$3d66 
$3d86 



$3da6 
$3dc6 



LOG coefficients 

EXP coefficients 

SIN/COS coefficients 
TAN coefficients 

ASN/ACS coefficients 

flTN coefficients 

x"y coefficients 



The following ^re address of tables used in the BCD < 
conversions and in the evaluation of x~y. 

BCD < > real tables 



00 )0 


3658 


tb pwt 


equ 


536 53 


oooo 


3 638 


tb pwt8 




$3698 


CO )0 


nea 


tb pwt4 


equ 


$:36t8 


00 


3-08 


tb pwtt 


equ 


$°|';8 


0!: i0 


30EO 


tb auxpt 


equ 


$3 .90 


0000 


3B28 


tb bed 




$3b28 


oooo 


5BC2 


tb bin 


equ 


$3bc2 


0000 


3D C E. 


tb al 


equ 


$3afe 


oooo 


3F8E 


tb a2 


ecu 


$3e8e 



The following are compiler support routines 

in the boot rom. 

def asm_assiqn, asm difference 

def asmequal , asm_In, asm_inclusion 

def asm_inte rsect , asm_mpy, asm_nequal 

def asm__union 

def asm_rmovel , asm_rmover 

def asm_pos 



GE 2 [3.0) 12/26/84 21:00:47 ASSEMBLY OF BOOTDEFS . TEXT 

59 0000 3372 asm assign 

60 0000 3488 asmTdifference 

61 0000 330fl asm_equal 
$2 0000 34DA asm_ln 

63 0000 33F4 asm_i nc lusion 

64 00(10 344A asrn_intersect 

65 0000 31A6 asrn_mpy 

66 OOOO 3300 asm^nequal 

67 oooo 3398 asm_union 



69 

70 

71 

72 

73 
PASS 1 ERRORS: 
PASS 2 ERRORS: 



0000 3108 asm_rmovel 
0000 315A asnwmover 
OOCO 361E asmpos 



equ 


$3372 


equ 


S3488 


equ 


$330a 


equ 


$34da 


equ 


$33 f4 


eq j 


$344 a 


equ 


$?la6 


equ 


S3300 


equ 


$3398 


equ 


$3108 


equ 


$315a 


equ 


$361e 



*«* File name: BOOTDEFS *» 
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BUB.DVR 



Description 

BUB_DVR provides bubble memory card low-level read/write drivers. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PAGE 1 [3.0] 12/26/34 /1:43:09 ASSEMBLY OF BUB_DVR.TEX! 
PUSS 1 CUMPLETE. ERRORS: 



File name: BUB DVR 



10 
11 
12 
13 



BUBBLE MEMORV CARD READ/URITE DRIVERS 
11 JAN 1983 



MNRME 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 



BUB OVR 

BUB OVR BUB DVR 

BUB_DVP_BUBG"ETINFO 

BUB_DVR_BUBDORESET 

BUB_OVR_BUBDOREflD 

BUB_OVR_BUBDOURITE 

BUB_DVR_BUBDOISR 



2 [3.0] 12/26/84 21:43:09 ASSEMBLY OF BUB_DVR.TEXT 



»* File name: BUB DVR 



15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 



49 
50 

61 
52 

53 
54 
55 
56 
57 
38 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 



SRC 


MODULE BUB DVR; 




SRC 


EXPORT 






SRC 


TYPE 






SRC 


BSTATETYPE = (B_IDLE, 




SRC 




B READ! 


1G, 


SRC 




BJJR I T I NG ) ; 


SRC 








SRC. 


BERRORTYPE = (BNOERROR, 


SRC 




3TII1E0UT, 


SRC 




BOPFAIL 


"0, 


SRC 




BBAOINTERUPT, 


SRC 




BBADSECTOR, 


SRC 




BBADCOUNT, 
BNOTBUBBLE, 


SRC 




SRC 




BBADDATA, 


SRC 




BIOFAIL 


; 


SRC 








SRC 


BBUFP 


"CHAR; 




SRC 


INFOPTR = 


'■INFOREC; 




SRC 


CARDPTR = 


"INTEGER; 




SRC 








SRC 


BUFREC« RECORD CASE BOOLEAN OF 


SRC 




TRUE : (BUF 


: INTEGER); 


SRC 




FALSE: BREC : BBUFP); 


SRC 


END; 




SRC 








SRC 


INFOREC = 


RECORD 




SRC 




MAXBYTES 


INTEGER; 


SRC 




PRIORITY 


0. .255: 
BSTATETYPE; 


SRC 




RUNSTATE 


SRC 




ERRORCOOE 


BERRORTYPE; 


SRC 








SRC 




BSTART 


INTEGER; 


SRC 




BBUFFER 


BUFREC; 


SRC 




BCOUNT 


INTEGER; 


SRC 




BRETRY 


INTEGER; 


SRC 








SRC 




BSPHGE 


INTEGER; 


SRC 




BUFSTART 


BBUFP; 


SRC 




BUFADDR 


BBUFP; 


SRC 




BUFEND 


BBUFP: 
INTEGER; 


SRC 




BLOCKSIZE 


SRC 




END; 




SRC 








SRC 


PROCEDURE 


BUBGETINFO(f 


NYVAR CARD : 


SRC 








SRC 


PROCEDURE 


BUBDORESET(f 


NYVAR CARD: 


SRC 








SRC 


PROCEDURE 


BUBD0READ(A1 


IYVAR CARD : 


SRC 








:>■. 


PROCEDURE 


BUBDOURITE(f 


NYVAR CARD : 


SRC 








SRC 


PROCEDURE 


BUBD0I5R(AN\ 


VAR CARD : C 


SRC 








SRC END 


; 







CARDPTR; ANYVAR INFO : INFOPTR); 
CBRDPTR; ANYVAR INFO : INFOPTR); 
CARDPTR; ANYVAR INFO : INFOPTR); 

CBRDPTR; ANYVAR INFO : INFOPTR); 
CARDPTR; ANYVAR INFO : INFOPTR); 
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3 [3.0] 12/26/64 21:43:09 ASSEMBLE OF BUb_DUP.TEXT 



**« File name: BUB DVR 



72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 



90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 



EQURTES FOR RECORD OFFSETS FIND CHRO OPERATIONS 



0000 


oooo 


INF0P 


EQU 


AC 




cooo 


0001 


CflROP 


EQU 


fil 




0000 


0002 


STRTUSP 


EQU 


A2 




0000 


0002 


COMMAND P 


EQU 


«. 




0000 


0003 


DATAP 


EQU 


A3 




0000 


0004 


BUFFP 


EQU 


A4 








* RUNSTATES 






0000 


oooo 


B IDLE 


EQU 







oooo 


0001 


8~REHDING 


EQU 


1 




0000 


0002 


B_WRITING 


EQU 


2 








* ERRORCODES 






0000 


oooo 


BNOERROR 


EQU 







0000 


0001 


BT I ME OUT 


EQU 


1 




0000 


0002 


BOPFAILED 


EQU 


2 




0000 


0003 


BBHOINTERUPT 


EQU 


3 




0000 


0004 


BBADSECTOR 


EQU 


4 




0000 


0005 


BBADCOUNT 


EQU 


5 




oooo 


0006 


BNOTBUBBLE 


EQU 


6 




0000 


0007 


BBADDATA 


EQU 


7 




oooo 


0008 


BIOFAIL 


EQU 


8 








* INFO 


RECORD 


OFFSETS 




oooo 


oooo 


MPXBYTES 


EQU 





INTEGER 


oooo 


0004 


PRIORITY 


EQU 


4 


UORD 


oooo 


0006 


RUNSTBTE 


EQU 


6 


UORD 


oooo 


0008 


ERRORCODE 


EQU 


8 


UORD 


oooo 


OOOA 


BSTART 


EQU 


10 


INTEGER 


oooo 


OOOE 


BBUFFER 


EQU 


14 


LONG 


oooo 


0012 


BCOUNT 


EQU 


18 


INTEGER 


oooo 


0016 


BRE T RY 


EQU 


22 


INTEGER 


oooo 


001A 


BSPAGE 


EQU 


26 


INTEGER 


oooo 


001E 


BUFSTflRT 


EQU 


30 


LONG 


oooo 


0022 


BUFAODR 


EQU 


34 


LONG 


oooo 


0026 


BUFEND 


EQU 


38 


LONG 


oooo 


002A 


BLOCKSIZE 

* 

» CARD 


EQU 
OFFSETS 


42 


LONG 


oooo 


0001 


CARD ID 


EQU 


1 




oooo 


0003 


INT R"EG 


EQU 


3 




oooo 


0005 


INFO" REG 


EQU 


S 




oooo 


0009 


DATA REG 


EQU 


9 




oooo 


OOOB 


COMtlSND 


EQU 


11 




oooo 


OOOB 


STATUS 


EQU 


11 








* STATUS BITS 






oooo 


0007 


BUSY 


EQU 


7 




oooo 


0006 


OP DONE 


EQU 


6 




oooo 


0005 


OP FAIL 


EQU 


5 




oooo 


0004 


TIME ERR 


EQU 


4 




oooo 


0003 


CORRECTABLE 


EQU 


3 




oooo 


0002 


UNCORRECT 


EQU 


2 




oooo 


0001 


PARITY ERR 


EQU 


1 




oooo 


oooo 


FIFO AVAIL 


EQU 








4 [3.0] 12/26/84 21:43:09 ASSEMBLY OF BUB_OVR.TEXT 



»» File name: BUB_DVR *** 



130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
ISO 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 







» INTERUPT REG 


BITS 


OOOO 


0007 


INT E 


EQU 


7 


oooo 


0006 


INT_R 


EQU 


6 






» BUBBLE 


COMMAND COD 


oooo 


0010 


URT MASKED 


EQU 


16 


oooo 


0011 


INITIALIZE 


EQU 


17 


oooo 


0012 


READ OATA 


EQU 


18 


oooo 


0013 


WRITE* DATA 


EQU 


19 


oooo 


0014 


READ SEEK 


EQU 


20 


oooo 


0015 


READ LOOP REG 


EQU 


21 


oooo 


0016 


URT tOOP KG 


EQU 


22 


oooo 


0017 


LJRT LOOP 


EQU 


23 


oooo 


CO 18 


READ" FSA 


EQU 


24 


oooo 


CO 19 


ABORT CMD 


EQU 


25 


oooo 


O01A 


URT SEEK 


EQU 


26 


oooo 


001B 


READ" LOOP 


EQU 


27 


oooo 


001C 


READ CORRECT 


EQU 


28 


oooo 


0010 


RESET FIFO 


EQU 


29 


oooo 


001E 


MBM PURGE 


EQU 


30 


oooo 


O01F 


SOFT RESET 


EQU 


31 


oooo 


0020 


CLEAR"_IhT 


EQU 


32 






* REG ADDRESS 


COUNTE 


oooo 


OOOA 


UTILITY 


EQU 


10 


oooo 


OOOB 


BLR LSB 


EQU 


11 


oooo 


oooc 


BLR~MSB 


EQU 


12 


oooo 


OOOD 


ENABLE 


EQU 


13 


oooo 


OOOE 


ADDR LSB 


EQU 


14 


oooo 


OOOF 


ADDR MSB 


EQU 


15 


oooo 


OOOO 


FIFO 


EQU 


00 



ENABLED 
REQUESTED 



CLEAR INTERUPT 



UTILITY REGISTER 
BLOCK LENGTH REG LSB 
BLOCK LENGTH REG MSB 
ENABLE REGISTER 
ADDRESS LS8 
ADDRESS MSB 
FIFO DATA BUFFER 



* CARD INTERUPT ENA81E/DISABLE 
OOOO 0080 ENABLE INTS EQU 128 
OOOO OOOO DISABLE INTS EQU OuO 



OOOO 0040 PAGESIZE 
OOOO 0300 MAXPAGES 



I-1ISC CONSTANTS 
EQU 

EQU 



64 
204 8 



CODE EXPLICITY ASSUMES THIS VALUE 



1-83 
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INTEF'JRL ROUTINE TO WRIT 
HAS R TIME OUT LIMIT 



171 








172 








173 








174 








17S 


00000000 


ocoo 




176 




0(00 


0002 


177 


00000002 


4t 5E 


OOOC 


178 


00000006 


2 7 6E 


0000 


179 


OOOOOOOR 


4 = £S 


0006 


ISO 


OOOOCOOE 


422E 


OOOC 


181 


00000012 


7CFF 




182 








183 


00000014 


0f29 
OC03 


0006 


184 


OOOOOOlfl 


5EC8 


FFF8 


185 


0000001E 


6>~ 02 




186 


00000020 


6024 




187 








188 


00000022 


Of 12 


0007 


189 


00000026 


S7C8 


FFFA 


190 


0000002H 


6702 




191 


0000002C 


6C18 




192 








193 


0OO00O2E 


0812 


0006 


194 


00000032 


b',-06 




195 


00000034 


1C7C 

ococ 


0C01 


196 








197 


0000003R 


14BC 


0020 


198 


0000003E 


C :- 2 9 
0C03 


0006 


199 


00000044 


66F8 




201 


00000046 


4E5E 




202 


00000048 


20SF 




203 


0000004B 


58 4 F 




204 


0000004C 


4E00 





FOR R COMMAND TO FINISH. 



DC.U 
COMMRNO_D0NE 
LINK 
MOVER. 
LER 
CLR.B 
MOVEQ 

R76 BTST 

OBNE 

3NE.S 

BRfi.S 

R140 BTS T 
DBEQ 
BEQ.S 
BRfl.S 

R1S2 BTST 

BEQ.S 
MOVE.B 



R190 MOVE.B 

R196 BTST 





EQU « 

R6,#0 

8 (P.6) ,CAPDP 

STATUS(CRRDP) .STRTUSP 

12(R6) C0MMAN0J30NE : = FRlSE 

»-l,DO MAXIMUM COUNT FOR TIMEOUT 

#INT_R,INT_REG(CAROP) URIT FOR INTERUPT REQUEST 

D0.R76 

R140 

CD_EXIT 

•BUSY, (STRTUSP) 

D0.R140 

R1S2 

CD_EXIT 

#0P DONE, (STRTUSP) 

R19CT 

»1,12(R6) 



NO INTERUPT 

URIT FOR NOT BUSY 

BUSY DIDN'T GO AUAY 

CHECK STRTUS 
COMMAND FRILED 
COMMAND DONE := TRUE; 



•CLEAR INT, (COMMRNDP) 
»INT_R,INT_REG(CAROP) 



CLERR INTERUPT REQUEST 
URIT FOR IT TO GO RUflY 



BNE.S R196 

CD EXIT UNLK R6 

MOVER. L (SPH.AO 

ADDQ.U *4,SP 

JMP (RO) 



[3.0] 12/26/84 21:43:09 ASSEMBLY OF BUB_DVR.TEXT 



File name: BUB_DVR *** 



207 
208 
209 
210 
211 
212 
213 
214 
21S 
216 
217 
218 
219 
220 
221 
222 



224 
22S 
226 
227 
228 
..•- 
230 
231 
232 
233 
234 

235 
236 
237 

233 

239 
240 
24 1 
242 
243 
244 
245 
246 
247 
248 
249 
2 SO 
251 
252 
253 
2 64 



0000004E 0000 

0000 0050 
0000 0050 

0C000050 4H56 0000 

OC000054 206E 0008 

0000005S 2050 

OOOOOOSfl 226E OOOC 

0000005E 2251 



DC .U 
3UB DVR_BUBGETINFO 



EXTERNAL ENTRY POINT TO GET CONFIGURATION INFO 

ABOUT T:IF CRRD 

BLSO USED BY 8UBD0PESET ,BUBDORERO AND BUBOOURITE 

TO VALIDATE THE CARD TYPE RNO GET MRXBYTES 

( THE SIZE OF THE BUBBLE MEMORY UNIT ) 





BUBG"E1 INFO 

LINK 

MOVER 

MOVEA 

MOVER 

MOVER 



00000060 4268 0006 CLR.U 

00000064 317C 0006 MOVE.U 

0008 

0000006A 0029 001E CMPI .B 

0001 

00000070 6648 BNE.S 

00000072 1029 0005 MOVE.B 

00000076 0800 0007 BTST 

0000007H 663E BNE.S 

0000007C 0800 0004 BTST 

00000080 6638 BNE.S 

00000082 0800 0003 BTST 

00000086 6632 BNE.S 

00000088 4268 0008 CLR.U 

0000008C 0230 0000 RNDI.L 

0007 

00000092 5280 RDDQ.L 

00000094 720R MOVEQ 

00000096 E3A0 RSL.L 

00000098 0829 OOOS BTST 

OOOS 

0000009E 6706 BEQ.S 

OOOOOORO 7209 MOVEQ 

00O00OA2 E3A0 ASL.L 

000000A4 6002 BRR.S 
OOOOOORS EF30 R3S6 RSL.L 

O0O00OR8 2030 R366 MOVE.L 

OOOOOORH 1029 0003 MOVE.B 

OOOOOORE E848 LSR.UI 

OOOOOOBO 0240 0003 ANDI.U 

OOO00OB4 5640 RDDQ.U 

0OO000B6 3140 0004 MOVE.U 
OOOOOOBfl 4E5E GI_EXIT UNLK 

OOOOOOBC 20 )F MOVER. L 

0000008E 504F AODQ.U 

OOOOOOCO 4F.J0 JMP 



EQU 

PS,#C 

s ;o.y 

12 (06 

(AI- 



LS U 



no 

N c OP 

, si 

CAPDP 



PUhSTPTEd'JFOP) 
#BNOTBUBBLE,ERR0RCODE(INF0P) 



RUNSTRTE := B IDLE 

EftPOPCODE :- BNOTBUBBLE 



CHECK CARD ID 



*30,CRRD_JD(CRRDP) 

GI EXIT 

INFO REG(CRROP),00 

*7,D0" 

GI EXIT 

#4, DO 

GI EXIT 

*3,D0 

GI EXIT 

NO PROBLEMS SO FILL IN MRXBYTES AND PRIORITY 
ERRORCODE(INFOP) ERRORCODE := BNOERROR 

*7,D0 GET SIZE FIELD 



COPY INFO REG INTO DO 

CHECK EXTENSION BIT OF INFO REG 



CHECK FSR FIELD OK INFO_REG 
BOTH BITS 



ttl.DO 

#10, Dl 

01, DO 

#5, INFO REG(CRRDP) 



ADD 1 

MULTIPLY BY 1024 



1 MEG OR 4 MEG PARTS 



R356 

#9,D1 4 MEG PARTS 

01,00 MULTIPLY BY 512 

R366 

*7,D0 1 MEG PARTS MULTIPLY BY 128 

DO, (INFOP) SET MAXBYTES 

INT REG(CARDP) ,D0 GET PRIORITY 

#4, CO FROM FIELD OF INTERUPT REG ON CARD 

*3,D0 

#3, DO 

D0,PRI0RITY(INFOP) 

P.6 

(SP)*,AO 

»8,SP 

(A6) 



1-84 
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File name : BUB DVR 



256 








* 




257 








* 




258 








* 




259 








* 




260 


OO0O00C2 


0000 






DC.U 


261 




0000 


00C4 


INITIALREC-S 


262 


00000OC4 


4E56 


0000 




LINK 


260 


0O000OC3 


22 6 E 


0010 




MOVER. L 


264 


OO000OCC 


20 6 1 


OOOC 




MOVES. L 


265 


00000303 


4"E9 


0039 




LEA 


266 


00000OD4 


137C 

OOOB 


OOOB 




MOVE.B 


267 












26 S 


O00OOO0A 


16A8 


002D 




MOVE.B 


269 


000OOO0E 


1028 


002C 




MOVE.B 


270 


OO0OOOE2 


D07C 


0010 




BDD.U 


271 


000O0OE6 


1680 






MOVE.B 


272 












77 3 


000000E3 


7200 






MOVEQ 


274 


OOOOOOEfl 


DZ9E 


0008 




BDD.L 


275 


OOOOOOEE 


1681 






MOVE.B 


276 












2,'7 


OOOOO'OFO 


16P8 


0010 




MOVE.B 


278 


O000OOF4 


16A8 


001C 




MOVE.B 


279 












280 


OO0O0OF3 


4E5E 






UNLK 


281 


OOOOOOFfl 


20 5 F 






MOVES. L 


282 


OOOOOOFC 


DEFC 


oooc 




RDDfl -Ul 


2SJ 


00000 10O 


4ED0 






JMP 


285 













INTERNAL ROUTINE TO LOAD THE BUBBLE CONTROLER 
PARAMETER REGISTERS PRIOR TO MAJOR OPERATIONS 



EQU « 

A6,#0 

16(B6) ,CAROF 

12 (A6) , INFOF 

0BTB_REG<CARCP) ,DATAP 

«BLR_LSB, COMMAND (CARDP) point RAC it BLR LSB 



BL0CKSIZE*3(INF0P) , (DATBP) 
BL0CKSIZE*2(INF0P) ,D0 get msb 
#16,00 set bit 

DO, (OfiTBP) 



set LSB of BLOCK LENGTH REG. 



to use 2 FSA channels 

set MSB of BLOCK LENGTH REG. 



#0,D1 clear MFBTR bit enable burst on last page 

8(A6),D1 add in operation peculiar bits from parameter list 
Dl, (DPTAP) set ENABLE REG. 



BSPBGE+3 (INFOP) , (DATBP) 
BSPBGE*2 (INFOP) , (DATAP) 

B6 

(SPJ+.AO 
#12, SP 
(BO) 



set LSB of ADDRESS REG. 
set MSB of ADDRESS REG. 



8 [3.0] 12/26/84 21:43:00 ASSEMBLY OF 6UB_DVR.TEXT 



File name : BUB DVR 



236 
207 
283 
223 
290 
231 
292 
293 
2S4 
295 
296 
£97 
293 
290 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 



314 
315 
316 

317 

318 
3 1 9 
320 

321 

322 
323 

324 
325 
326 
227 
3 23 
32S 
370 
331 
3 32 
333 
334 
335 
336 
337 
338 



EXTERNAL ENTRY POINT TO "INITIALIZE" THE 

BUBBLE MEMORY CONTROLER FOR READ/WRITE OPERATIONS 

ALSO USED TO ABORT ANY CURRENT READ/WRITE OPERATION 

(B6) 

-4 BITCOUNT 

-8 BYTECOUNT 

-12 BBORT RETRY COUNTER 

-16 SAVED CARD ADDRESS 

-20 SAVEO INFO RECORD ADDRESS 



00000102 

00000104 
00000108 
00000 IOC 
00000110 
0C000 114 
00000118 



OOOO DC.U 

0000 0104 BUB_CVR_BJBDORESET 



OCOOO 

00 300 

CC: 00 
00000 

ocooo 

OCOOO 



4ES6 FFEC 
2F2E OOOC 
2F2E 0008 
4EBB FF3E 
206E 0008 
2050 

4B68 0008 
6600 012C 
2D48 FFEC 
226E OOOC 
2251 
2D49 FFFO 



LINk 

MOVE.L 

MOVE.L 

MOVEA.L 

MOVEA.L 

TST.U 

BNE 

MOVE.L 

MOVEA.L 

MOVEA.L 

MOVE.L 



F.au 



P6,#-20 
12(A6) ,- (SP) 
8 (B6) , - (SP) 

BUBGETINFO 
8(06) .AO 
(BO) ,INFOP 
ERRORCODEIINFOP 
RS EXIT 
INF0P,-20(A6) 
12(961,01 
(Al) ,CARDP 
CBR0P,-16(A6) 



CARD 

INFO 

FILL IN INFO FIELDS AND CHECK CARD TYPE 

GET INFOREC POINTER 



SAVE INFOP 



SAVE CARDP 



00000 130 137C 0000 

0001 
00000 136 203C 0000 

012C 
0000013C S1C8 FFFE UAIT200 

00000140 1D7C 0003 

FFF4 
00000146 45E9 OOOB R700 

* 
0000014B 14BC OOOD 
00000 HE 137C 0001 

0009 

00C00154 14BC 0019 
00000 158 5S8F 
0C00015B 2F09 
0C0001SC 4EBB FEA4 
OC000I6O 4P1F 
OCOOO 162 660E 
OCOOO 164 532E FFF4 
00000168 6700 00D8 
OC00016C 226E FFFO 
00000170 6004 

00000172 206E FFEC R800 
00000176 2E28 0000 
0000017B EC87 
0C00017C 5387 
0000017E 2147 001B 



MOVE.B #0,CBRD_ID(CARDP) RESET THE CARD 

MOVE.L #300, DO KILL AT LEAST 200 MICRO SECONDS 

DBF DO,UBIT200 »** TIMEING LOOP *** 



(rdq) 



MOVE.B #3,-12(A6) 



SET RETRY COUNT FOR ABORT COMMAND 



COMMAND ( 2ARDF ) , COMMAND P 



MOVE.B #ENABLE, (COMMANDP) 
MOVE.B #1,0BTA_REG(CARDP) 



ENABLE INTERUPTS ON OPDONE 
POINT RBC AT ENABLE REG 
SET ENABLE REG 



MOVE.B 

SUBQ.L 

MOVE.L 

JSR 

TST.B 

BNE.S 

SJBQ.B 

BEQ 

MOVEA.L 

BRA 

MOVEA.L 
MOVE . L 
ASR.L 

SUBQ.L 
MOVE.L 



#AB3RT J2-IB, (COMMONCP) 

-■" "" SPACE FOR FUNCTION VALUE 



#2,SP 

CARDP, -(SP) 

COMMAND DONE 

(SP)* DID IT 

R800 

#1,-12(B6) 

R1176 

-16(B6) ,CRRDP 

R700 



ABORT ANY CURRENT OPERATION 



UAIT FOR IT TO FINISH 
FINISH OK ? 
IF FINISHED OK THEN PROCEEDE 
DECRIMENT RETRY COUNTER 
IF COUNT OONE THEN GIVE UP 
RELOAD CARDP 
TRY AGAIN 



-20(R6I , INFOP 
MflXBYTES (INFOP) ,D7 
#6,D7 DIV 64 
#1,D7 - 1 
07,BSP9GE(INF0P) 



RETRIEVE INFOP 

BSPBGE := MflXBYTES DIV 64-1; 



1-85 



PAGE 

339 

340 
341 
342 

343 
344 

345 
346 

347 

348 

34 9 
350 
351 
352 
353 
354 
355 
356 
357 

358 
359 
360 
361 
362 
363 

364 
365 
366 
367 

368 
369 

370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 



9 [3.0] 12/26/34 21:43: 

00000182 217C 0000 

0001 00..8 

0000018R 2F26 FFFO 

0000018E 2F08 

00000190 2F3C 0000 
0021 

00000196 4EBA FF2C 



ASSEMBLY OF BUBJ9VR.TEXT 

MOVE.L #1,BL0CKSIZE(INF0P 

-16(A6j,-(SP 
INFup,-(SP) 
SP) 

JSP INITIALREGS FIXUP THE PARAMETER REGS 



»*» File name: BUBJ3VP 



0000019R 
0000019E 
000001A2 

000001R8 

000001RE 
0OO001BO 
000001B4 
000001B6 
000001BR 
000001BE 
000001CO 
000001C4 
000001C6 

000001CC 

000001D0 
0OO001D4 
000001D8 
000001DC 

000001E2 
000001E4 
000001E8 
000001EC 

000001F2 
000001F4 

000001FR 
000001FC 
00000200 



226E FFFO 

45E9 OOOB 

137C 0011 

OOOB 

0829 O0O6 R922 

0003 

67F8 

0812 0007 R944 

66FA 

0812 0006 

6700 007A 

2F0 9 

226E 0008 

2F11 

2F3C 0000 

0021 

4EBA FEF6 

* 
226E FFFO 
45E9 OOOB 
14BC 0015 
0829 0006 R1018 
0003 
67F8 

42RE FFFC R1040 
42HE FFF8 
0829 0007 R1048 
OOOB 
6724 

0829 0000 R1068 
OOOB 
67F0 

52AE FFF8 
1029 0009 



00000204 7200 

00000206 7407 

00000208 7600 

0000020R E308 COUNTL 

0000020C D303 

0000020E 51CH FFFA 

00000212 D3FIE FFFC 

00000216 600C 

00000218 7228 Rl 124 

00O0021R B2RE FFF8 

0000021E 660A 



tlOVE.L 
MOVE.L 
MOVE.L »$21 



blocksize := 1 prge 
card- 

INFO~ 

ENABLE RCD RND OPOONE FUNCTIONS 



MOVER. L 

LER 

MOVE.B 



-16(A6) ,CRRDP RETRIEVE CRRDP 

STRTUS(CRRDP),5TRTUSP ( STATUSP is same as COMMRNDP ) 

•INITIALIZE, COMMA ND(CARDP) 



BTST #INT_R,INT_REG(CARDP) DMT FOR INTERUPT 



BEQ 

BTST 

BNE 

BTST 

BEQ 

MOVE.L 

MOVER. L 

MOVE.L 

MOVE . L 

JSR 

MOVER. L 
LER 

MOVE.B 
BTST 

BEQ 
CLR.L 
CLR.L 
BTST 

BEQ.S 
BTST 

BEQ 

RDDQ.L 

I10VE.B 

110 VEQ 

I10VEQ 

MOVEQ 

LSL.B 

ADDX.B 

DBRA 

ROD . L 
BRfi 

MOVEQ 
CMP.L 
BNE. 5 



R922 

#BUSY, (STBTUSP) 

R944 

tOP DONE, (COMMRNDP 

R11S2 

CRRDP, -(SP) CAI 

8(A6) ,fil 

(A1),-(SP) 

#121, -(SP) 



(ON FIFO HRLF FULL] 
WRIT FOR NOT BUSY 



DID IT UORK 



INFO' 

ENABLE RCD RND OPDONE FUNCTIONS 



INITIBLREGS FIX PRRRMETER REGS 

{ THIS RLSO STOPS CURRENT INTERUPT > 
-16(R6) , CRRDP RETRIEVE CRRDP 

STflTUS(CARDP) .STATUSP < STRTUSP is same as COMMRNDP ) 
•READ LOOP REG, (COMMRNDP) RERD BOOT LOOP REGISTER 

*INTJf, INT 3?EG (CRRDP) WRIT FOR INTERUPT 

R1018 

-4(R6) BITCOUNT := 

-8(A6) BYTECOUNT := 

#BUSY,STATUS(CARDP) WHILE BUSY DO 

Rl 124 

#FIFO_RVRIL,STRTUS( CRRDP) 



UHILE FIFO_.HVRIL DO 



R1048 IF FIFO EMPTY THEN CHECK Bl'SY 

»1,-8(R6) INCREMENT BYTECOUNT 

DRTR REG(CRRDP) ,D0 READ THE DRTR BYTE 

COUNT THE 1 BITS IN LOU BYTE OF DO 
»0,D1 COUNT :* 
#7,D2 LOOP COUNTER 
#0,D3 ZERO CONSTANT 
#1,D0 SHIFT HI BIT TO X 

D3.D1 ADD + X t COUNT < WILL NEVER BE MORE THAN 8 ) 
D2, COUNTL 

D1,-4(A6) ADD COUNT TO BIT COUNT 

R1068 END UHILE FIFO_AVRIL 



#40,01 

-8(A6),D1 

R11S0 



MUST HAVE EXACTLY 40 BYTES 



PAGE 

387 

388 
389 
390 

391 
392 
393 

394 
395 
396 

397 
396 
399 
400 
401 
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««» File name: BUB DVR ** 



OCOO 
FFFC 



FFEC R1150 
0002 



00000220 OCAE 

010E 
00000228 6722 
0000022A 206F 
0000022E 317C 

0008 
00000234 6016 
00000236 206E FFEC Rl 162 
0000023R 317C 0002 

0008 
00000240 600A 
00000242 206E FFEC R1176 
00000246 317C 0001 

0008 
0000024C 4E5F. RSJXIT 

0000024E 205F 
00000250 504F 
00000252 4ED0 



CMPI.L #270,-4(A6) 



MUST HAVE EXACTLY 270 BITS 



BEQ.S 

MOVEA.L 
MOVE.U 

BRA.S 
MOVEA . L 
MOVE.U 

BRfl.S 

MOVEA.L 
MOVE.U 

UNLK A6 
MOVER. L 
ADDQ.U 
JMP (AO' 



RS EXIT 

-20"(A6], INFOP URONG BYTE / BIT COUNT 

#BOPFA I LED, ERRORCODE (INFOP) 

RS EXIT 

-20"[R6), INFOP INITIALIZE OPERATION FAILED 

♦BOPFAl LED .ERRORCODE ( INFOP) 

-20~(R6) , INFOP FAILED TO RESPOND TO ABORT COMMAND 
#BTIMEOUT, ERRORCODE (INFOP) 



#8,SP 



1-86 
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** File name: BUB DVR *** 



403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 

422 

423 

424 
42S 
426 
427 
428 
429 
430 
431 

432 
433 
434 



436 
437 



439 
440 
441 

442 
443 
444 
445 
446 



00000254 

00000256 
OO00025PI 
0000025E 
00000262 
00000266 
0000026A 
0000026C 
00000270 
00000274 
00000278 

0000027E 

00000234 

0000028A 
0000028C 
0000029E 
00000292 
00000294 
00000296 
0000029F1 
0000029E 

000002A4 
OO0O02A8 
OO0OO2AC 



00000288 
000002BC 



OO0OO2C8 
000002CA 
000002CE 

000002D4 
000002D6 
00000208 
0000020A 



0000 
0000 
4E56 
226E 
2DS1 
206E 
2050 
2050 
4268 
4268 
226E 
137C 
OOOB 
137C 
0009 
137C 
OOOB 
558F 
2F09 
4E8A 
4A1F 
6734 
2F2E 
2F2E 
2F3C 
0021 
4EBB 
206E 
2168 
0022 
317C 
0006 
226E 
137C 
0003 
137C 
OOOB 
600B 
206E 
317C 
0008 
4E5E 
205 F 
504F 
4ED0 



0256 
FFF8 
OOOC 
FFFC 
0008 
FFF8 

0006 
0008 
FFFC 
OOOD 

0001 

001D 



FFFC 
FFF8 
0000 

FE1E 
FFF8 
00 IE 



DC.U 
STRRTREAD 

LINK 

MOVEA.L 

HOVE.L 

MOVEfl.L 

MOVE . L 

MOVEfl.L 

CLR.Ui 

CLR.U 

MOVEfl.L 

MOVE. 8 

MOVE.B 

MOVE.B 

SU8Q.L 
MOVE.L 
JSR 

TST.B 

BEQ.S 

MOVE.L 

MOVE.L 

MOVE.L 

JSR 

MOVEfl.L 

MOVE.L 



FFFC 
0080 



FFF8 
0001 



FINAL STRGE OF BUBDOREfiO 

ALSO USED BY BUBDOISR 70 RESTART B FBILED READ OPERATION 

(B6) 

-4 SAVED CARD ADDRESS 

-8 SAVED INFO RECORD ADDRESS 



EQU * 

A6,#-8 

12(A6),A1 CARD 

(A1),-4(A6) 

8(A6),A0 INFO 

(AO) ,-8(B6) 

(AO), INFOP INFO" 

RUNSTATEhNFOP) RUNSTBTE := B IDLE 

ERRORCODE (INFOP) ERRORCODE := 5N0ERR0R 

-4 (flft) CftRDP CARD~ 

•ENABLE, COMMAND (CBRDP) SET RflC TO ENABLE REG. 



#1,DATA_REG(CARDP) ENABLE INTERUPT ON OPDONE 

#RESET_FIFO,C0MMAND(CARDP) CLEAR THE FIFO 

»2,SP 

CARDP, -(SP) 
COMMANDJONE 
(SP) + 
R1332 

-4(A6) ,-(SP) 
-8(fi8 ,-(SP) 
#$21, -(SP) 



SPACE FOR FUNCTION VALUE 
CARD" 

UAIT FOR IT 
DID IT UORK ? 

CARO" 
INFO" 
ENABLE RCD AND OPDONE FUNCTIONS 



FIX CONTROL REGS. 



INITIALREGS 

-8{A6) .INFOP 

BUFSTART (INFOP) .BUFADDR (INFOP) 



MOVE.U #B_READING,RUNSTATE (INFOP) 



-4(A6) .CARDP 
#ENABLE_INTS,INT_REG(CflRDP) 



MOVEA.L 
MOVE.B 



MOVE.B #READ_DATA,COMMAND(CARDP) 



BRA.S 

MOVEA.L 

MOVE.U) 



SET BUFFER ADDRESS 
SHOU NOU READING 

ENABLE CARD INTERUPTS 
START READ OPERTATION 



SR EXIT 
-8TA6), INFOP 



SR_EXIT UNLK 

MOVEA.L 
ADDQ.U 

JMP 



TBSJ.INI 
TIMEOUT 



(SP)*,A3 

#8,SP 

(AO) 



ERRORCODE (INFOP) 



RESET FIFO FAILED 
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**» File name: BUB DVR ««« 



44 8 
44 9 
450 
451 
452 
453 
454 
455 
456 
457 
4S8 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 

469 
470 
471 
472 
473 
474 
475 
476 

477 

478 

479 
480 
481 
482 

483 
484 

485 
486 

487 
488 
489 
490 
491 
492 
493 
494 
485 
496 



EXTERNA. ENTRY POINT TO START DATA READ OPERATIONS 



0000020C OOOO DC.UI 

0000 02DE BUB DVR BUBDOREHO 



0000020E 4E56 0000 
000002E2 2F2E OOOC 
000002E6 2F2E 0008 
000002EA 4EBA FD64 
000002EE 206E 0008 
0O00O2F2 2050 
000002F4 4A68 0008 
000002F8 6600 0076 
000002FC 226E OOOC 
00000300 2251 

00000302 2028 COOA 
00000306 6B04 
00000308 4A00 
0000030A 670A 
000003CIC 317C 0004 R1420 

0008 
00000312 6000 005C 

00000316 2228 0012 R1428 
0000031A 6F06 
0000031C D081 
0000031E B090 
00000320 6F08 
00000322 317C 0005 R1450 

0008 
00000328 6046 
0000032A 137C 0000 R14S6 

0003 
00000330 2141 0026 



00000334 D2BC 0000 

003F 
0000033A EC81 
0000033C 0C81 0000 

0800 
00000342 6D06 
00000344 223C 0000 

0800 
OO0O034A 2141 002A R1480 



0000034E 
00000362 
00000354 
00000358 
000003SC 
00000360 
00000364 
00000368 
OO0O036C 



2028 OOOA 
EC80 

2140 001A 
2028 OOOE 
2140 001E 
D1A8 0026 
2F2E OOOC 
2F2E 0008 
4EBA FEE8 



LINK 

MOVE.L 

MOVE.L 

JSR 

MOVEA.L 

MOVEA.L 

TST.U 

BNE 

MOVEA.L 

MOVEA.L 

MOVE.L 
BMI .S 
TST.B 
BEQ.S 
MOVE.U 

BRA 

MOVE.L 

BLE.S 

ADD.L 

CMP.L 

BLE.S 

MOVE.U 

BRA.S 
MOVE.B 



fi8,#0 
12(A6) , 



00000370 4E5E 



ASR.L 
CMPI.L 

BLT.S 
MOVE.L 

MOVE.L 

MOVE.L 

ASR.L 

MOVE.L 

MOVE.L 

MOVE.L 

ADD.L 

MOVE.L 

MOVE.L 

JSR 



RD EXIT UNLK 



(SP) 



8(A6),-(SP 

BUBGETINFO 

8(A6),A0 

(AO) , INFOP 

ERRORCOOE(INFOP) 

RD EXIT 

12TA6 

(Alj 



CARD 
INFO 
FILL INFO FIELDS AND CHECK THE CARD TYPE 



6) Al 
,CARD 



IF ERRORCODEoBNOERROR 
THEN QUIT 



OP 



CARD" 



BSTART([NFOP),DO CHECK STARTING POSITION (BYTE) 

R1420 CAN'T BE NEGATIVE 

DO MUST BE MULTIPLE OF 256 

R1428 

tBBADSECTOR, ERRORCODE (INFOP) 

RD EXIT 



BCOUNT(INFOP),D1 



R1450 

Dl.DO 

(INFOP) ,D0 

R14S6 

#BBADCOUNT, ERRORCODE (INFOP) 

RD EXIT 
#DTSABLE_INTS,INT_REG (CARDP) 



CHECK BYTE COUNT 



MUST BE GREATER THAN ZERO 

BCOUNT + BSTART 

CAN'T BE GREATER THAN MAXBYTES 



DISABLE CARD INTERUPTS 



01, BUFEND[ INFOP} SET COUNT IN BUFEND 

CALCULATE NUMBER OF PAGES FOR THIS OPERATION 

PAGE SIZE IS ASSUMED TO BE 64 BYTES 
#63, Dl ROUND UP BYTECOUNT 

#6,D1 DIVIDE BY 64 Dl IS NOU NUMBER OF PAGES 

»MAXPAG6S,D1 CLIP IT AT MAXPAGES 

R1480 
♦MAXPAGES, Dl 

D1,BL0CKSIZE(INF0P) 

CALCULATE START PAGE FOR THIS OPERATION 



BSTART(INFOP),DO 
#6, DO DIVIDE 



Y 64 



D0,BSPAGE(INF0P) 

BBUFFERflNFOPi .00 GET CURRENT START OF BUFFER 

00,BUFSTART(INFOP) MARK START OF BUFFER 

DO.BUFENDIINFOP) MARK END OF BUFFER (ADD ADDRESS TO COUNT) 

12(A6) ,-■ (SP) CARD 

8(A6),-(SP) INFO 

STARTREAD FINISH UP AND ISSUE THE READ COMMAND 

A6 



1-87 
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439 
500 
501 
502 



00000372 205F 
00000374 S04F 
00000376 4E:i0 



MOVEA . L 

BDDQ.U 

JMP 



(SP)*,ao 

*8,SP 
<A0) 
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*** File name: BUB_OVR *** 



504 
505 
506 
507 
5S8 
S09 
510 
511 
512 
513 
514 
515 
5)6 
51 r 
518 
519 
520 
521 
522 
523 

524 
525 

526 

527 
528 
529 

530 
531 
S32 
533 

534 

5 35 
536 



538 
5 33 
540 
541 

542 
543 
544 
545 
546 
547 



FINAL STAGE OF BUBDOURITE 

ALSO USED BY BUBDOISR TO RESTART A FAILED URITE OPERATION 

IAS) 

-4 SAVED CARD ADDRESS 

-8 SAVED INFO RECORD ADDRESS 



00000378 

0000037A 
0000037E 
00000382 
00000386 
0000038A 
0000038C 
00000390 
00000394 
00000398 
0000039C 
0000039E 

000003A4 
000003A8 
000003AC 

000003B2 
000003B4 
000003B6 
000003BB 
000003BC 
000003BE 
000003C2 

000003C8 

000003CE 
000003D2 

000003D8 

000003DE 



0000 

00-0 
4F-'-6 
20E 

2U' 
2ui E 
20' C 
2D- 8 
521 8 
4 2i 8 
2F2E 
2T08 
2r.iC 

CO; 1 

4 EH A 
2"i : E 

13''C 

LB 
SOi-.F 
2F09 
4LF.A 
4fi. F 
6 72 2 
20! E 
2H-.8 
0022 
31 'C 
2.: 6 
22: E 
13"C 
0C:'3 
13"C 
2 : B 
6C:'P 



03 7 A 

FFF8 
OOOC 
FFFC 
0008 

FFF8 
0006 

O0S8 
FFFC 

0000 

FD1E 
FFFC 

00 10 



FFF8 
001E 



DC.U 
STARTURITE 

LINK 
MOVES. L 
MOVE. L 
MOVES. L 
MOVER. L 
MOVE. L 
CLP.U 
CLR.U 
MOVE.L 
MOVE.L 
MOVE.L 

JSR 

MOVEA.L 

MOVE.B 

SUBQ.L 

MOVE.L 

JSR 

TST.B 

BEQ.S 

MOVEA.L 

MOVE. L 



FFFC 
0080 



000003E0 200E FFF8 R17 
000003E4 31 'C 0001 
0008 





EQU » 




A6,#-8 




12(A6),A0 


CBRD 


(B0),-4(B6) 


SAVE 


8<A6) ,A0 


INFO 


(BO) ,INFCP 


INFO" 


INF0P,-8(B6) 
RUNSTBTE(INFOP) 
ERRORCODE( INFOP 


SAVE 






-4IA6) ,-(SP) 
INFOP, -ISP) 
»$21,-(SP) 


CBRD" 


INFO" 


ENBBL 



INITIALREGS 

-4IB6) ,CBRDP 

•RESET FIFO, COMMAND (C 



#2,SP 
CARDP.-(SP) 

COMMAND DONE 
ISP)* 



1734 
-8(B6) 
BUFSTA 



INFOP 
:T(INFOP) 



SPACE 
CARD" 
WAIT 
DID I 

OK SO 
,BUFAD 



INFO" 

RUNSTATE := B IDLE 
ERRORCODE:= BNOERROR 



E RCD AND OPDONE FUNCTIONS 

ONTROL REGS. 

AROP) CLEBR/RESET THE FIFO 

FOR FUNCTION VALUE 

FOR FIFO TO RESET 
T WORK ? 

CONTINUE 
DR (INFOP) SET BUFFER ADORESS 



MOVE.U «B_URITING,RUNSTATE [INFOP) 

MOVEA.L -4(A6),CARDP 

MOVE.B *ENBBLE_INTS,INT_REG(CBRDP) 

MOVE.B »UR I TE_DATA, COMMAND (CARDP) 

BRA.S SW_EXIT 

MOVEA.L -8 (B6), INFOP 

MOVE.U HBTIMEOUT 



SHOW NOU WRITING 

ENABLE CBRD INTERUPTS 
START THE OPERATION 



FIFO RESET FAILED 
ERRORCODE (INFOP) 



000003EA <■-. E 

o:):;o03EC 22:'F 

000003EE 504F 

000003FO 4EIJ0 



SUI EXIT UNLK A6 

MOVEA.L (SP]*,A0 

BDDQ.U #8,SP 

JMP (flO) 
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File name: BUB DVR ** 



5£9 








* 


550 








* 


551 








* 


552 








V 


55 3 








* 


564 








* 


555 








* 


556 


000003F2 


0000 






557 




cooo 


03F4 


BUB_DVF 


558 


000003F4 


4ES6 


FFF4 




559 


000003F8 


2F2E 


0002 




560 


000003FC 


2F2E 


0008 




561 


00000400 


4EBA 


FC4E 




562 


00000404 


20 BE 


0008 




563 


00000408 


2050 






564 


0000040ft 


4A66 


0008 




565 


0000040E 


6600 


0088 




566 


00000412 


226E 


OOOC 




567 


00000416 


2D51 


FFF8 




568 


0000041A 


206E 


0008 




569 


0000041E 


2050 






570 


00000420 


2D48 


= FF4 




571 


00000424 


2026 


OOOA 




572 


00000428 


6B04 






573 


000004 2FI 


4 A 00 






574 


0000042C 


6700 






575 


0000042E 


317C 

0008 


0004 


R1820 


576 


00000434 


6000 


0062 





577 
578 
579 
580 
581 
582 
583 
584 
585 

586 
587 
588 
589 

590 
591 
592 
593 

594 
595 

596 
597 
598 
599 
600 



POINT TO START DRTR WRITE OPERATIONS 



EXTERNAL ENTRY 
(06 ) 

-4 UNUSED (COMPILER TEMP OPTIMIZED OUT) 

-8 SAVED CURD ADDRESS 

-12 SAVED INFO RECORD ADDRESS 



00000438 2228 0012 R1830 

0000043C 6F0A 

0000043E 4A01 

00000440 6606 

00000442 D081 

00000444 B090 

00000446 6F0A 

00000448 317C 0005 R1860 

0008 
0000044E 6000 0048 

00000452 226E FFF8 R1876 
00000456 137C 0000 
0003 



0000045C EC81 
0000045E 0C81 0000 

0800 
000004154 6D06 
00000466 223C 0000 

0800 
000004ISC 2141 002B R1880 

00000470 ED81 
00000472 2141 0026 



DC.LO 

_BUBD0LJRITE EQU 

LINK A6,#-12 

MOVE.L 12(A6),-[5P) 
MOVE.L 8[fl6),-(SP) 
JSR BUBG-ETINFO 

MOVEA.L 8(A6),fiO 
MOVEA.L (BO), INFOP 
TST.U ERRORCODE (INFOP 
BNE UT EXIT 

MOVEA.L 12TA6),A1 
MOVE.L (A1),-S(A6) 
MOVEA.L 8(A6),A0 
MOVEA.L (AO), INFOP 
MOVE.L INFOP, -12(R6) 
MOVE.L BSTART (INFOP) , DO 
BMI.S R1820 
TST.B DO 
BEQ.S R1830 
MOVE.U #BBADSECT0R,ERRORCODE( INFOP 



cos;; 

INFO 

FILL IN INFO FIELDS AND CHECK THE CARD TYPE 



IF ERRORCODE <> BNOERROR 
THEN EXIT 

CARD" 

INFO" 

CHECK STARTING POSITION (BYTE) 

CAN'T BE NEGATIVE 

MUST BE MULTIPLE OF 256 



BRA 

MOVE.L 
BLE.S 
TST ,B 
BNE.S 
HDD.L 

cnp.L 

BLE .S 
MOVE.LJ 

BRA 

MOVEA.L 
MOVE.B 



UT_EXIT 

BCOUNT(INFOP) ,D1 

R1860 

Dl 

R1860 

01, DO 

(AO) DO IF (BCOUNT+BSTART) 

R1876 THEN CONTINUE 

#B8ADC0UNT .ERRORCODE (INFOP) 



CHECK BVTECOUNT 

MUST BE GREATER THAN ZERO 



MUST BE MULTIPLE OF 256 
MAXBYTES 



UIT_EXIT 

-8(A61,CARDP CARD" 

»DISABLE_INTS,INT_REG(CARDP) 



DISABLE CARD INTERUPTS 



ASR.L 
CMPI.L. 



BLT.S 
MOVE.L 



ASL.L 
MOVE.L 



CALCULATE NUMBER OF PAGES FOR THIS OPERATION 

PAGE SIZE IS ASSUMED TO BE 64 BYTES 
#6 Dl DIVIDE BY 64 Dl IS NOLO NUMBER OF PAGES 

#MAXPAGES,D1 CLIP IT AT MHXPAGES 

R1880 
#MAXPAGES,D1 

D1,BLOC<SIZE(INFOP) 

FOR URITE OPS. BUFEND IS END OF SEGMENT 
»6,D1 CONVERT BLC'CKSIZE BACK TO BYTES 

D1,BUFEND(INF0P) SAVE IT IN 8U FEND 
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*** File name: BUB_DVR 



601 






* 




602 


00000476 


2028 


OOOA 


MOVE.L 


603 


0000047A 


EC80 




ASR.L 


604 


OO00047C 


2140 


001A 


MOVE.L 


605 










606 


00000480 


2028 


COOE 


MOVE.L 


607 


00000484 


2140 


C01E 


MOVE.L 


608 


00000488 


D1A8 


C026 


HDD.L 


609 


C000048C 


2t2E 


COOC 


MOVE.L 


610 


000004S0 


2F2E 


C008 


MOVE.L 


611 


00000494 


4EE0 


FEE4 


JSR 


612 


00000498 


4E5E 


UT 


EXIT UNLK 


613 


0000049A 


20SF 




MOVEA. 


614 


0000049C 


5C4F 




ADDQ.U 


615 


0000049E 


4EDC 




J MP 


316 











CALCULATE START PAGE FOR THIS OPERATION 

BSTART (ilJFOP) ,30 

#6, DO DIVIDE 8Y 64 

DO,B3PHGE(INFO=1 



BBUFFER(INFCP) 
DO,BUFSTAE f (IN 
DO, BUFEND (INFO 
12 (B6) , ■ (5F 1 
8(A6), -(SP) 
STARFURI TE 
A6 

(Sp;»,ao 

#3 SP 

(BO) 



DO GET CURRENT START OF BUFFER 
OP) HARK START OF BUFFER 
>) MARK END OF BUFFER (HDD ADDRESS TO SIZE) 

CARD ' 

INFO 

FINISH UP AND ISSUE THE URITE COMMAND 



1-89 



PAGE 1 7 


[3.0] 12/ 


2 b/ 84 


21 :43:09 


ASSEMBLY 


OF BUB_DVR.TEXT *** File name: 


BUB_DVR *»* 


618 
619 








* 

* 




INTERUPT SERVICE ROUTINE 




620 








* 








621 


000004PO 


0000 






DC.U 







622 




0000 


04A2 


BUB_DVR_BUBDOISR ECU * 




623 


000004A2 


4E56 


0000 




LINK 


A6,#0 




624 


000004A6 


; .'SE 


oooc 




MOVEA .L 


12(A6),R1 GET CARD ADDRESS 
(Al).CBRDP CARD BASE ADDRESS 
STATUS (CARDP) .STATUSP STATUS REG ADDRESS 
DHTA_REG(CARDP) , DATAP DATA REG ADDRESS 




625 


000004AB 


2>51 






MOVEA .L 




626 


0OO004AC 


4 JE9 


OOOB 




LEA 




627 


000004BO 


4 7E9 


00O9 




LEA 




628 
629 


000004B4 


206E 


0008 




MOVES .L 


8(A6),A0 GET INFOREC ADDRESS 




630 


000004B8 


2050 






MOVER .L 


(AO), INFOP INFOREC BASE ADDRESS 
8UFADDR(INF0P],BUFFP BUFFER ADDRESS 




631 


000004BA 


2968 


0022 




MOVEA. L 




632 
633 


000004BE 


0C68 
C006 


OOOl 




CMPI.U 


#B_R£ADING,RUNSTATE(AO) JUMP ACCORDING TO RUNSTATE 




634 


000004C4 


671C 






BEQ.S 


READING 




635 


000004C6 


6E00 


01 IE 




BGT 


WRITING 




636 
637 








, 


IN B IDLE STATE ... HAVE UNEXPECTED INTERUPT 




638 


000004CB 


317C 
0008 
137C 


0003 


IDLE 


MOVE.U 


#BBADINTERUPT,ERRORCODE(INFOP) set ERRORCODE 




639 


000004D0 


0000 




MOVE.B 


*DISABLE_INTS,INT_REG(CARDP) disable interupt enable 








00 3 












640 


000004D6 


0329 

0003 


0007 


IDLE1 


BTST 


«INT_E,INT_REG(CARDP) wait for enable bit to clear 




641 


000004DC 






BNE.S 


IDLE1 




642 


000004DE 


6000 


01CE 




BRA 


ISRDONE all done 




643 
644 








* 


IN B READING ... HAVE DATA OR END OF OPERATION 




645 


000004E2 


0312 


0007 


READING BTST 


•BUSY, (STATUSP) 




646 


000004E6 


672A 






BEQ.S 


R2232 




647 








* 




BUSY SO HAVE DATA TO READ 




648 


000004E8 


2028 


0026 




MOVE.L 


BUFEND(INFOP),DO GET END OF BUFFER ADDRESS 
BUFFP.DO CHECK BUFFER AGAINST END OF BUFFER 




649 


000004EC 


B08C 




R2132 


CI1P.I. 




650 


000004EE 


6712 






BEQ.S 


R2143 




651 


000004FO 


0812 


OOOO 




BTST 


tFIFO AVAIL, (STATUSP] CHECK FIFO 




652 


000004F4 


6 704 






BEQ.S 


R2135 




653 


000004F6 


13D3 




R2133 


MOVE.B 


(DATAP), (BUFFP)* READ THE DATA 




654 
655 
656 


000004F8 


60F2 






BRA.S 


R2132 




000004FA 


214C 


0022 


R213S 


MOVE.L 


BUFFP.BUFADDR(INFOP) PUT BACK BUFFER ADDRESS 




657 
658 
659 


000004FE 


6000 


01AE 




BRA 


ISRDONE THEN EXIT 




00000502 


214C 


0022 


R2143 


MOVE.L 


BUFFP.BUFADDRIINFOP) PUT BACK BUFFER ADDRESS 




660 








* 




THEN DISCARD UNWANTED DATA 




661 


00000506 


0812 


0000 


R2196 


BTST 


•FIFO AVAIL, (STATUSP) CHECK FIFO 




662 


00O005OA 


6700 


01A2 




8EQ 


ISRD0F3E EXIT IF FIFO IS EMPTY 




663 


0000050E 


1013 






MOVE.B 


(DATAP).DO READ S DISCARD 




664 


00000510 


60F4 






BRA.S 


R2196 




665 








* 




NOT BUSY SO END OF OPERATION 




666 








* 


DID ANYTHING GO WRONG ? 




667 


00000512 


0812 


O0O4 


R2232 


BTST 


•TIME ERR, (STATUSP) 




668 


00000S16 


6612 






BNE.S 


R2240 




669 


00000518 


0312 


0005 




BTST 


#0P FAIL, (STATUSP) 




670 


0000051C 


660C 






BNE.S 


R224~0 




PAGE 18 


[3.0] 12/23/84 


21:43:09 


ASSEMBLY 


OF BUB_OVR.TEXT *** File name 


BUBJWR *«* 


671 


0000051E 


0812 


0002 




BTST 


•UNCORRECT, (STATUSP) 




672 


00000522 


673E 






BEQ.S 


R2348 




673 


00000524 


317C 
0008 


0007 




move.w 


•BBADDATA, ERRORCODE (INFOP) SET BADDATA ERROR 




674 






, 


SOMETHING DENT URONG SO TRY TO RESTART THE CURRENT REOUEST 




675 


0000052A 


14BC 


0020 


R2240 


MOVE.B 


«CLERR INT, (COMMANDP) CLEAR INTERUPT REQUEST 
*INT_R7INT_REG(CARDP) UAIT FOR IT TO GO HUAY 




676 


0000052E 


0329 


0006 


R2280 


BTST 








0003 












677 
678 
679 


00000534 


66F8 






BNE.S 


R2280 




00000536 


53A8 


0016 




SUBQ.L 


#1,BRETRY(INF0P) DECRIMENT RETRY COUNTER 
R2334 




680 


00OO0S3A 


6D10 






BLT.S 




681 


0000053C 


2F2E 


OOOC 




MOVE.L 


12(A6),-(SP) CARD 




682 


00000540 


2F2E 


0008 




MOVE. L 


8(A6),-(SP) INFO 

STPRTREfiD RFSTART THE CURRENT REQUEST 




683 


00000544 


4EBA 


FD10 




JSR 




684 
685 
686 


00000548 


60O0 


0164 




BRA 


ISRDONE 










* 


TOO MANY RETRIES 




687 


0000054C 


4268 


0006 


R2334 


CLR.LI 


RUNSTATE (INFOP) SET RUNSTATE TO B IDLE 
ERRORCODE (INFOP) IS ERRORCODE ALREADY SET ? 




688 


00000550 


4=168 


0003 




TST.U 




689 


00000554 


6600 


0158 




BNE 


ISRDONE 




690 


00000558 


317C 

0008 


0008 




MOVE.W 


•BIOFH I L, ERRORCODE (1NF0P) 




691 
692 
693 


0000055E 


6000 


014E 




BRA 


ISRDONE 










* 


OPERATION COMPLETED OK 




694 








* 




READ ANY DATA LEFT IN THE FIFO 




695 


00000562 


2028 


0026 


R2348 


MOVE.L 


BUFEND(INFOP),D0 GET END OF BUFFER ADDRESS 




696 


00000566 


B08C 




R2350 


CMP.L 


BUFFP.DO CHECK BUFFER ADDRESS AGAINST END OF BUFFER 




697 


00000568 


670A 






BEQ.S 


R2412 




698 


0000056H 


0812 


0000 




BTST 


• FIFO AVAIL, (STATUSP) CHECK THE FIFO 




699 


0000056E 


670E 






BEQ.S 


R2440 




700 


00000570 


18D3 






MOVE.B 


(DATAP), (BUFFPJ+ 
R2350 




701 


00000572 


60F2 






BRA.S 




702 








* 




DISCARD THE REST OF THE DATA 




703 


00000574 


0812 


0000 


R2412 


BTST 


•FIFO AVAIL, (STATUSP) CHECK THE FIFO 




704 


00000578 


6704 






BEQ.S 


R2440 




70S 


00000S7A 


1213 






MOVE.B 


(DATAP), Dl DISCARD THE DATA 
R2412 




706 
707 
708 


0000057C 


60F6 






BRA.S 




0000057E 


214C 


0022 


R2440 


MOVE.L 


8UFFP,BUFADDR(INF0P) PUT BACK THE BUFFER ADDRESS 
•CLEAR. INT, (COMMANOP) CLEAR THE INTERUPT REQUEST 




709 


00000582 


14BC 


0020 




MOVE.B 




710 


00000586 


0829 
0003 


0006 


R2454 


BTST 


#INT_R7INT_REG(CHRDP) UAIT FOR IT TO GO AWAY 




711 
712 
713 


0000058C 


66F8 






BNE.S 


R2454 




0000058E 


B08C 






CMP.L 


BUFFP.DO IF ALL DATA READ 




714 


00000590 


6700 


0118 




BEQ 


R3008 THEN OPERATION COMPLETED 




715 


00000594 


2028 


002R 




MOVE.L 


BL0CKSIZE(INF0P),DO INCREMENT START PAGE 




716 
717 
718 


00000698 


01A8 


001A 




ADD.L 


DO,BSPAGE(INF0P) 




OOO00S9C 


2028 


0022 




MOVE.L 


BUFADDR(INFOP) .DO 

DO,BUFSTART(INFOP) SET NEW BUFFER ADDRESS 
CALCULATE BLOCKSIZE FOR THIS OPERATION 




719 


000005AO 


2140 


001E 




MOVE.L 




720 








* 






721 


0OO00SA4 


90A8 


OOOE 




SUB.L 


BBUFFER(INFOP),DO 
6C0UNT (INFOP) ,D1 




722 


0OO00SA8 


2 228 


0012 




MOVE.L 




723 


000005AC 


9280 






SUB.L 


00,01 Dl NOW IS BYTES LEFT 
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724 








725 


OOOOOSBE 


D2BC 

003F 


0000 


726 


000005B4 


EC81 




727 


000OC566 


0081 

080C 


0000 


728 


OOOOOSBC 


6D06 




729 


000005BE 


223C 
0800 


0000 


730 


OO00CSC4 


2141 


002R 


731 








732 


OO0OCSC8 


2F09 




733 


0000C5CA 


2F08 




734 


OOOOCSCC 


2F3C 
0021 


0000 


735 


000005C2 


4EBfi 


FRFO 


736 








737 


000005D6 


226E 


OOOC 


738 


000005DA 


2251 




739 


OOOOOSDC 


137C 
0008 


0012 


740 


000005E2 


6000 


OOCR 



*** File name: BUB 
PAGE SIZE IS ASSUMED TO BE 64 BYTES 



ADD.L #63,01 ROUND UP 

R2SS0 ASR.L I6.D1 DIVIDE BY 64 Dl IS NOU NUMBER OF PAGES 

CMPI.L #MAXPAGES,D1 CLIP IT AT MAXPAGES 

BLT.S R2586 

MOVE. I. #MAXPRGE5,D1 

R2586 MOVE.L Dl .BLOCKSIZE ( INFOP) 



MOVE.L 
MOVE . L 
MOVE . L 



CARDP,-(SP) 
INFOP, -(SP) 
#$21, -(SP) 

INITIALREGS 



CARD" 
INFO- 



741 
742 
743 
744 
745 
746 
747 
■48 
74 9 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 

765 
766 

767 
768 
769 
770 
771 
772 
773 
774 



000005E6 0812 0007 URITING 
OOOOOSEA 671A 

* 
OOOOOSEC 2028 0026 
OOOOOSFO B08C R2664 
000005F2 670A 
000005F4 0812 0000 
000005F8 6704 
000005FA 169C 
000005FC 60F2 

OO0005FE 214C 0022 R2712 
00000602 6000 OOAA 



MOVES. L 12(06), R 1 

MOVER. L (All.CRRDP 

MOVE ,B *READ_DATA,COMMAND(CARDP) 

BRR ISRDONE 

ITEING STATE ... HAVE DATA TO URITE OR END OF OPERATION 

R2716' 

NORMAL URITE OPERATION 
BUFEND(INFOP) ,D0 GET END OF BUFFER ADDRESS 

BUFFP,DO CHECK BUFFER AGAINST BUFFER END 

R2712 

#FIFO_RVAIL, (STATUSP) CHECK THE FIFO 
R2712 

URITE THE DATA 



IN B UR 

BTST 

BEQ.S 

MOVE . L 

CHP.L 

BEQ.S 

BTST 

BEQ.S 

MOVE.B 

BRR.S 

MOVE.L 
BRA 



PUT BACK THE BUFFER ADDRESS 



00000303 0812 0004 R2716 
0000060A 6606 
O00OO60C 0812 0005 
00000610 672C 

* 
O00OOS12 14BC 0020 R2750 
00000616 0829 0006 R2752 

0003 
0000061C 66F8 

0000061E S3A8 0016 
OO000I522 6D0E 

00000624 2F2E OOOC 

00000628 2F2E 0008 

0000062C 4EBA F04C 
00000(530 607C 



BTST 
BNE.S 
BTST 
BEQ.S 

MOVE.B 
BTST 



IBUFFP)*,(DFTAP) 
R2664 

BUFFP,BUFADDR(INFOP) 

ISRDONE 

NOT BUSY SO OPERATION IS DONE 

DID ANYTHING GO URONG 7 

#TIME ERR, (STATUSP) 

R2750 

#0P FAIL, (STATUSP) 

R282"0 

SOMETHING UENT URONG SO TRY TO RESTART 
#CLEAR_INT,(COMMRNDP) CLEAR THE INTERUPT 
#INT_R,INT_REG[CARDP) UAIT FOR IT TO GO AUAY 



BNE.S R2752 



SUBQ.L 

BLT.S 

MOVE.L 

MOVE.L 

JSR 

BRA.S 



CHECK THE RETRY COUNTER 



00000632 4268 0006 R2806 CLR.U 



#1,BRETRY(INF0P) 

R2806 

12(A6),-(SP) TRY AGAIN 

8(A6),-(SP) 

STARTURITE 

ISRDONE 

TOO MANY RETRIES 

RUNSTATE (INFOP) SET RUNSTATE TO B IDLE 
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775 

776 
777 
778 
779 

780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 

799 
800 

801 
802 
803 
804 
80S 
806 
807 
808 
809 

810 
811 
812 
813 
814 

815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 



00000636 317C 0008 

0003 
0000083C 6070 



OO000K3E 
00000642 

00000648 

0000064A 
0000064E 
00000652 
00000654 
00000656 
00000650 

000006SE 
00000662 
00000666 

0000066P 
0000066E 
00000672 



14BC 0020 R2820 
0829 0006 R2830 
0003 
66F8 

2028 OOOE 
D0R8 0012 
B08C 
6754 

2028 002A 
D1A8 001R 

2028 0022 
2140 001E 
2140 0026 

* 
90A8 OOOE 
2228 0012 
9280 



ISSEMBLY OF 8UB_DVR.TEXT 

MOVE.U #BI0FAIL,ERR0RCODE(INF0P) 

BRA.S ISRDONE 

NO ERRORS SO FINISH UP 
MOVE.B #CLEAR_INT,(COMMANDP) CLEAR THE INTERUPT 
BTST #INT_R,INT_REG(CAROP) UAIT FOR IT TO GO RUBY 

BNE.S R2830 



«** File name: BUB DVR »** 



MOVE.L 

ADD.L 

CMP.L 

BEQ.S 

MOVE.L 

ADD.L 

MOVE.L 
MOVE.L 
MOVE.L 

SUB.L 
MOVE . L 
SUB.L 



BBUFFER(INFOP),DO 

BCOUNT (INFOP), DO 

BUFFP.DO ANY MORE TO BE URITTEN 

R3008 

BLOCKSIZE(INF0P),DO 

DO, BSPRGE (INFOP) 



CALCULATE END OF BUFFER ADDRESS 



INCREMENT START PAGE 



00000674 EC81 R2926 ASR.L 

00000676 0C81 0000 CMPI.L 

0800 

0000067C 6D06 BLT.S 

0000067E 223C 0000 MOVE.L 

0800 

00000684 2141 002A R2962 MOVE.L 



00000688 ED81 ASL.L 

0000068A D3A8 0026 ADD.L 

0000068E 2F09 MOVE.L 

00000690 2F08 MOVE.L 

00000692 2F3C 0000 MOVE.L 

0021 

00000698 4EBA FA2H JSR 

0000069C 226E OOOC MOVER. L 

000006AO 2251 MOVEA.L 

000006A2 137C 0013 MOVE.B 

OOOB 

000006A8 6004 BRA S 

000006AA 4268 0006 R3O08 CLR.U 

000006AE 4ESE ISRDONE UNLK 

000006BO 205F MOVER L 

000006B2 S04F ADDQ.U 

000006B4 4ED0 JMP 

0000 06B6 BUB DVR BUB DVR 
000006B6 4E75 ~ ~RTS~ 



BUFADDR(INFOP),DO 

DO,BUFSTART(:NFOP) SET NEW BUFFER ADDRESS 

00,BUFEND(INFOP) SAVE BASE FOR BUFEND 

CALCULATE BLOCKSIZE FOR THIS OPERATION 
BBUFFER(INFOP) ,00 
BCOUNT (INFOP), 01 
D0.D1 Dl NOU IS BYTES LEFT 

PAGE IS ASSUMED TO HAVE 64 BYTES 
#6.D1 DIVIDE BY 64 Dl NOU IS PAGES LEFT 

•MAXPAGES, 01 CLIP PAGES AT MAXPRGES 

R2962 

#MAXPRGES,D1 

Dl, BLOCKSIZE [INFOP) 

FOR URITE OPS, BUFEND IS END OF SEGMENT 

RE-CALCULATE END OF BUFFER 
#6,D1 CONVERT BLOCKSIZE TO BYTES (MULTIPLY BY 64) 

Dl.BUFEND(INFOP) ADD IT TC BRSE 

CARDP,-(SP) CARD" 
INFOP,- SP) INFO" 
#$21, -(SP) 

INITIRLREGS 

12(A6),A1 

(Al) CARDP 

#URITE_DATfl, COMMA ND(CARDP) 



ISRDONE 

RUNSTATE (INFOP) 
A6 
(SPU.AO 

♦ 8,SP 

(fi6) 

EQU * 



SET RUNSTATE TO B_IDLE 



1-91 
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PfiSS 1 I RR0R5: 
PfiSS 2 IRRORS: 
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COMASM 



Description 

COMASM contains common I/O driver assembly language support routines and binary operations. 



Usage 

The buffer, interrupt and DMA facilities are used by HP-IB, GPIO and RS232 low- level drivers, 
The binary operations are exported for common usage (and are used in the I/O library). 



Requirements 

I/O library kernel (IODECLARATIONS, etc.) 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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PBGE 1 [3.0J l._:.e/64 21:15:39 ASSEMBLY OF COMfiSn . TEXT 
PASS 1 COMPLETE. EfRORS: 



1GE 2 [3.0] 12/2H/84 21:25:39 IOLIB IOCOMflSM - COMMON ASSEMBLY ROUTINES *** File name: COMASM *« 

4 » 

5 * COPYRIGHT (C) 1984 BY HEULETT-PRCKRRD COMPANY 

6 * 

8 * 

9 * 

io » iolib iocomasm 

11 » 

12 * 

14 * 

15 * 

16 « 

17 » Library - IOLIB 

18 « Module - IOCOMASM 

19 * Author - 

20 * Phone 

21 * 

22 * Puri.se - This set of assembly language 

23 * code is intended to be used as 

24 * a support module for I/O drivers 

26 » Date - 08/18/81 

27 » Update - 08/03/83 

28 * Release - ??????-?■> 

29 * 

30 * 

31 » Source - IOLIB :C0MflSM. TEXT 

32 * Object - IOLIB:C0MRSM.C0DE 

33 * 

34 * 

ll(ll(ltttlll(MI*'lltt**l(f*tlll«ll|i|M*(IIMMtll(l|l|ltlllll1tlll*iilIIIII*l 

36 « 

37 * 

38 * NOT RELEASED 

39 * VERSION 3.0 

40 * 

41 * 

42 a******************* **********************************»****K**************#**v** 
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*** File name: COMASM 



45 
46 
47 
48 
49 
50 
55 
52 
53 
54 
'a 5 
56 
57 
58 
S3 
60 
61 
62 
63 
64 
65 
65 
65 
6S 
65 
66 
67 
68 
69 
70 
71 
72 
73 



PASCAL DEFINITION OF MODULE 

****************************** 
MNAME IOCOMASM 
SRC MODULE 10C0MASH; 
SRC IMPORT ^declarations; 
SRC EXPORT 



********* 



SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC END 



FUNCTION ttna_request ( temp : ANYPTR 
PROCEDURE dma_release ( temp : ANYPTR 



INTEGER; 



FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 



blt_set 
b i n a n d 
binior 
bineo r 



FUNCTION bincmp 
{ IOCOMASM } 



def iocoriflsn_i oconasn 

DEF IOCOMASM DMA_REQUEST 
DEF IOCOMASM OMA_RELEASE 
DEF IOCOMRSn_BIT SET 
DEF IOCOMASM_BJ.NffN? 
DEF IOCOMASM_BINIOR 
DEF IOCOMRSM_BINEOR 
DEF IOCOMASM BINCMP 



( * 

y 



INTEGER 

INTEGER j 

INTEGER ; 

INTEGER ) 

INTEGER ; 

INTEGER ) 

INTEGER ; 

INTEGER J 

INTEGER ) 



BOOLERN 

INTEGER 

INTEGER 

INTEGER 
INTEGER 



75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
iSSJ 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
98 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
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COMMON ASSEMBLY ROUTINES 



*** File name: COMASM *** 



SYMBOLS FO"! EXPORT - COMMON ASSEMBLY LANGUAGE ROUTINES 

THE SYMBOLS DO NOT HAVE PASCAL ENTRY 

POINTS SINCE THEY ARE ONLY USED BY 

ASSEMBLY LANGUAGE MODULES OR WITH EXTERNAL DECLARATIONS 



******** 






***************** 



CFF 


DROPDMA 


I1FF 


GETDMA 


DRF 


TESTDMA 


IJH 


LOGINT 


Uhh 


LOGEOT 


:>■!■ 


STBSY 


:ff 


STCLR 


r.FF 


DMA ST3SY 


CFF 


ITXFR 


IFF 


ABORT 10 


nFF 


UAIT TFR 


DFF 


CHECK" TFR 


OFF 


TIMERFXISTS 


DEF 


TIMED OUT 



USED AS PASCAL EXTERNAL PROC 
USED AS PASCAL EXTERNAL PROC 



************** 

IMPORTED SYMBOLS 

******************** 

REFA CHECK_TIMER 
LMODE CHECK_TIMER 



********** 






********************************************* 
USED TO GET AT TIMER ROUTINE IN POUERUP 
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110 

111 

112 
113 

114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
!"2 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
143 
150 
151 
152 
153 
154 
155 
156 
157 
158 
155 
160 
161 
162 
163 
164 
165 
166 



39 10 LI B IOCOMASM - PA 3CBL BINARY FUNCTIONS 



module initialization 



File name: C0MASM 



00)0 0000 IOCOMASM loconssn EQU 
00000000 4E75 RTS 



oooo 0002 ioconflsi_eiT_SET equ 



00000002 203F 
00000004 20: F 
00000006 22 IF 
00000008 4202 
OOOOOOOA 0101 
OOOOOOOC 6702 
OOOOOOOE 7401 
00000010 1F32 
00000012 4EU0 



0000 0014 IOCOMASM 
00000014 20!. F 
00000016 20' F 
00000018 221 F 
0000001A C2B0 
0000001C 2EM 
0000001E 4EH0 



MOVEA.L (SPj*,AO 



MOVE.L 


(SP)*,BO 


MOVE.L 


(SP)t,Dl 


CLR.B 


02 


BTST 


D0.D1 


BEQ.S 


BITT EXIT 


NOVEQ 


#1,0? 


T MOVE.B 


D2, [SP: 


JtlP 


(HO) 


binary and 


BINAND 


EQU * 


MOVER. L 


(SP) + ,PiO 


MOVE.L 


(SP)*,00 


MOVE L 


(SP)»,D1 
00, Dl 


AND.L 


MOVE . L 


Dl, (SP! 


JilP 


(AO) 



* binary inclusive or 

0000 0020 IOCOMASM BINIOR EQU * 

00000020 205F 'MOVEA.L (SP)*,HO 

00000022 201F MOVE.L (SP)+,CO 

00000024 221F MOVE.L SP)+,D1 

00000026 82E0 OR . L DO, 01 

00000028 2EE1 MOVE.L 01, (SP) 

0000002R 4ED0 JMP (BO) 



OOCO 002C 
0000002C 206F 
0000002E 201F 
00000030 221F 
00000032 B1E1 
00000034 2EE1 
00000036 4EC0 



binary exclusive or 

M_BINEOR EQU * 

MOVEA.L (SP)*-,AO 

MOVE.L (SP)*,DO 

MOVE.L (SP)+,01 

EOR.L D0.D1 

MOVE.L D1,(SP) 

JMP (AO) 

binary complement 



20 IF 



00000038 
0000003F< 
0O0OOO3C 4680 
0000003E 2E80 
00000040 4ED0 



ooco 0038 iocoriAsrL 



jiNcr-p 

MOVEA.L 

MOVE.L 

N0T.L 

MOVE.L 

JMP 



EQU * 

(SP)*, 

(SP)», 

DO 

DO, (SP 

(AO) 



save return address 
get bit tt 
get numeric value 
clear indicator 
test bit in value 

if bit set set incicator 

push result 

return 



save retur.- address 
get last param 
get first param 
perform AND 
pusn result 
retu rn 



save return address 
get last param 
get first param 
perform OR 
push result 



save return address 
get last param 
get first param 
perform XOR 
push result 
return 



save return address 
get param 
perform complement 
push result 
return 



PAGE 6 [3.0] 12/26/84 21:25:39 IOLIB IOCOMASM - PASCAL BINARY FUNCTIONS 

167 
167 
167 
167 
167 



File name: COMASM 
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PAGE 7 [3.0] 12/26/81 21:25:39 IOLIB 10C0MASM - COMMON EQUATES AND DEFINITIONS «*» File name: COMASM »* 

170 INCLUDE I0LI3:COMDCL 



AGE 8 [3.0] 12/26/84 21:25:39 IOLIB COMDCL - COMMON EQUATES AND DEFINITIONS **» File name: COMASM «»* 

174 * 

175 * modified: 02/22/82 JPC added parm to user EOT & ISR proc's 

176 * 08/01/83 JS added 1 imer_present and sysflag2 equ's 

177 * 

179 * 

180 * HPL CONVENTIONS 

181 * 

182 * 

183 « riuch of this code is taken intact from the 9826 HPL 

184 » language system EIO ROM ( extended I/O ROM ). 

185 * 

186 * The Pasc.il that will be calling this code uses 

187 * the stact for parameter passage. The HPL code 

188 * uses the Ax and Dx registers for all parameters. 

189 * The Pascal driver entry points on the previous pages 

190 * take care of getting the parameters into the correct 

191 * registers. 

192 « 

193 * 

194 * GENERAL HPL ENTRY/EXIT CONDITIONS: 

195 * 

196 « Pl.L = CARD ADDRESS 

197 « R2.L - DRIVER TEMP ADDRESS 

198 * UNLESS OTHERWISE INDICATED, THESE REGISTERS ARE UNALTERED. 

199 * 

200 * 

201 * NEW ENTRY/EXIT CONDITIONS FOR PASCAL USE : 

202 » 

203 » A3.L = BUFFER CONTROL BLOCK ADDRESS 

204 * In addition to the P1/A2 convention, Pascal will use 

205 * A3 for a pointer to :re buffer control block. 

206 * The HPL system kef' uch of the transfer 

207 * information in the s c. temps. 

208 * 

209 * TIr1E0UT(A2) = contains timeout information 

210 * Timeout was a global temp in HPL and a timeout 

211 * generated an error. 

212 * In PASCAL each card has a timeout value stored in 

213 * its temporary area. A timeout error 

214 * generates an ESCAPE ; which can be trapped ). 

215 * 

216 » 
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219 
220 
22 1 
22 2 
223 
22-1 
22 ! i 



[3.0] 12/; f !4 .".1: 2:5.59 IOLIB C0I1DCL - roMMON EQUATES HMD DEFINITIONS 

* DRIVER TEMPS TEMPLATE 

OFFSET FROM A2 

* HPl DECLARATIONS ( MODIFIED ) 



File name: COMASM 



229 
230 
231 
232 

23 3 
234 
235 
236 
237 
2 33 
239 
240 

24 1 
242 
24?. 
244 
246 
246 
24 i 



000) 

CO''' ) 
000 1 
0000 
03".' ) 
CO''' ) 
CC'L'O 
OO'i 1 
00''' ) 
OC ) 
000 ) 



0000 ISR ENTRY 
0014 USER" ISR 
0014 H_ISR"_F'R 
0018 H_ISR_5L 
0010 H ISR_FM 
0020 C ADR 
0024 BLTFI OFF 
0028 BUFCTOFF 
002C EIRB OFF 
002D 10 St" 
002E TIMEOUT 



000 ) 0032 MAJJ 

000 ) 0033 MA 

000) 0034 AVAIL OFF 



FIJI 





19 


Fiji 


20 




Fuo 


20 


.23 


! U'l 


24 


.27 


FU. 


28 


31 


H 


32 


.35 


hi.. 


36 


.39 


F!.' 


40 


43 


Fi.'i 


44 




TO ! 


45 




tUJ 


46 


.49 


Fl.il 


50 


51 


Fun 


51 




FUli 


52 


9? 




52 


.83 




52 


.179 



PASCAL ISR LINK & UNLINK area 

user ISR: do NOT change the proc/stat link/parm ordering! 

procedure pt r 

static link 

parameter 
card address 
buffer pointer offset 
buffer pointer offset 
eir byte 

select code ( i.e. 
timeout value 

^0 : no timeout 
#0 : value of timeout 
word access to my address 
byte access to my address 
standard space taken from temps 
normal cards ( 32 bytes ) 
98628 card ( 128 bytes ) 



7, 22, etc. ) 



24 9 
260 
26! 
2 e 2 
25.3 
254 
255 
256 
257 
256 
259 
250 
261 
2(2 

26 3 
264 
265 
266 
267 
263 
269 
2"0 
271 
272 
273 
274 
27S 

27 6 
277 
278 
279 
260 
281 

28 2 
283 
284 
285 
266 
287 
288 
283 
290 
291 
29? 
293 
204 
295 
266 
207 



[3.0] 12/26/64 21:25:39 IOLIB COMOCL - COMMON EQUFITES AND DEFINITIONS 

» TRANSFER OFFSETS IN BUFFER CONTROL BLOCK 

* OFFSET FROM H3 

» PASCAL DECLARATION 



** File name: COMASM 



OOOf 0000 TTMP_0FF EQU 

000C 0005 T SCJjFF EQU 5 

OOOC 0007 TffCTJDFF EQU 7 

OOOC 0009 TUSR OFF EQU 9 



0000 OOOA T_BU_OF'F 
0000 OOOB TEND OFF 



EQU 10 
EQU 11 



0000 OOOD T0IRJ3FF EQU 13 

* 
0000 OOOE TCHR OFF EQU 14 ..15 



0000 0010 TCNTJDFF 

0000 0014 T8UFJTFF 

0000 0018 TB3ZJ3FF 

0000 001C TEMP OFF 



0000 0020 
0000 0024 



TFIL OFF 
T PR OFF 



EQU 16 

EQU 20 

EQU 24 

EQU 28 

EQU 32 

EQU 36 



0000 0028 T_SL_OFF EQU 40 ..43 

0000 002C T_Pn OFF EQU 44 ..47 

0000 0030 T DtlfTPRI EQU 48 



TRANSFER EQUATES 



0066 


000 1 


TT 


INT 


EQU 1 


OOC: 


0002 


1 1 


DI1A 


EQU 2 


OCCO 


0003 


1 1 


BURST 


EQU 3 


occo 


0004 


n 


FHS 


EQU 4 



pointer to driver ternp offset 

transfer select code 

actual trans fer mode 
t ransfer mode 

00 - not 

01 serial DMA 

02 serial FHS 
rial FASTEST 



0? 
04 



DMA or FHS 
not used 



tra 

tra 
t ra 

tra 

t ra 
tra 
t r a 
tra 
tra 
tvIL 
t re 
tra 
dma 



05 overlp INTR 

06 overlp DMA 

07 overlp FHS ( BURST ) 

08 overlp FASTEST ( DMA or BURST ) 

09 overlp OVERLAP ( DMA or INTR ) 
nsfer byte/word indicator 

= byte / 1 = word 
nsfer EOI/END indicator 

= no eoi / 1 = eoi sent or searched for 
nsfer direction 

= input / 1 = output 
nsfer terminate character 

1 = no termination character 
nsfer count 
nsfer buffer pointer 
nsfer buffer maximum size 
nsfer ^mpty pointer pointer 
nsfer fill pointer 
nsfer pointer to eot procedure 

no procedure 
nsfer eot proc static link 
nsfer eot proc parameter 

priority request 



interrupt 

Drift 

burst 

fast handshake 



1-98 
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300 
301 
302 
303 
304 
JOS 
306 
307 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
336 
336 
337 
338 
338 
338 
339 
340 
341 
341 
341 
342 
343 
344 
345 
346 
347 
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********** 



»** File name: COMfiSM 
************************** 



EXTERNAL REFERENCES for escape 



REFA iodeclarat ions 
REFfi sysglobals 







* E 


scape 


code 






********* 


********** 


0000 


0001 


NO CARD 


EQU 


1 


oooo 


0002 


NOT HPIB 


ECU 


2 


0000 


0003 


NO FTCTL 


EQU 


3 


0000 


0004 


NO DVC 


EQU 


4 


oooo 


0005 


NO SPACE 


EQU 


5 


oooo 


0006 


NO DflTfi 


EQU 


6 


oooo 


0007 


TFR" ERR 


EQU 


7 


ooco 


O0O8 


sc Susy 


EQU 


8 


oooo 


0009 


BOF BUSY 


EQU 


9 


ooco 


OOOH 


TCNTERR 


EQU 


10 


ooco 


OOOB 


BAOTMO 


EQU 


11 


coco 


oooc 


NO DRV 


EQU 


12 


oooo 


OOOD 


NO DMA 


EQU 


13 


ooco 


OOOE 


NO LTORC 


EQU 


14 


coco 


OOOF 


NOT TALK 


EQU 


15 


coco 


0010 


NOT LSTN 


E 5U 


16 


ooco 


0011 


TMO ERR 


EQU 


17 


coco 


0012 


NO S"CTL 


EQU 


18 


coco 


0013 


BAD" RDS 


EQU 


19 


oooo 


CO 14 


BAD SCT 


EQU 


20 


oooo 


0015 


CRD DUN 


EQU 


21 


oooo 


0016 


EOD SEEN 


EQU 


22 


oooo 


0017 


10 msc 


EQU 


23 



FFFF FFE6 IOE_ERR0R EQU 



FFFF FFBE IOE RSLi EQU 
FFFF FFBA IOE_SC EQU 



FFFF FFFE ESC CODE EQU 
FFFF FFF6 RCVR" BLK EQU 



OOOO 0001 TIMER PRESENT EQU 
FFFF FEDA SYSFLfi"G2 EQU 



******************************************** 
reference me lo lib ^ar. area 



********** 



******************************************* 
no interface 
not an hpib interface 
no active controller 
sc ( not device ) specified 
not enough space in the buffer 
not enough data left in the buffer 
tf r error 

sc is currently busy 
the buffer is busy 
bad count 
bad timeout value 
no driver 
no dma installed 
no word transfers allowed 
not addressed as talker 
not addressed as listener 
t imeout 

not system controller 
bad read status / write control 
bad set/clear/test 
interface is dead 
end of data has happened 
misc. error 



io sub system error escape code 



I0DECLARfTI0f-.S-66 
IODECLARATIONS-70 



SYSGLOBALS-2 
SYSC-L08ALS-10 



1 JS 
SFFFFFEDA 



8/1/83 SYSFLAG2 BIT 
JS 8/1/83 



= >TlriER PRESENT 



350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
363 
363 
363 
364 
365 
366 
367 
368 

369 
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************************** 

* 

* Error escapes 



*** file name: COMRSrl 



OOO0CO42 7011 

00000044 600A 

00000046 700A 

00000048 6006 

0000004A 7007 

0000004C 6002 

00O0OO4E 7O0D 



00000050 48C0 

00000052 2B40 FFBE 

00000056 102A 002D 

OOOOOOSfi 2B40 FFBA 

0000005E 3B7C FFE6 

FFFE 

00000064 4E4A 



CTMO ERR 


I10VEQ 


#TrlO ERR, DO 




KRfi.S 


ESC E"RR 


TERR C 


MOVED 


ttTCFJTERR.DO 




=:RA.S 


ESC ERR 


TERR B 


MO'.'EQ 


#TFR" ERR, DO 




BRA S 


ESC FRR 


TERR D 


i-CVEQ 


#N0 DMA, DO 


* 


BRA.S 


ESC ERR 



****************** 



********** 
timeout 



******** 



bad transfer specification 
bad transfer specification 
DMA not installed 



ESC_ERR EXT.L DO 



HOVE.L DO, IOE RSLT(P5) 

nOVE.B I0_SC(ff2) ,00 

riOVE.L DO, IOE SC(flS) 

(10VE.LO ttlOE E^ROR.ESC C0DE(P5; 



save io error 

\ get sc for error 

give i/o error 

escape 
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"2 
37 3 
374 
3^5 
3 76 
377 
3 73 
379 
330 
381 
3P2 
383 
364 
385 
356 
387 
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File name: COMASM «» 



389 

390 

3 Si 
33 2 
39 3 
394 
3S5 
3S3 

39 7 
398 
33 3 
400 
401 

402 

40 3 
404 
405 
406 
4C7 



USED DURING INITIALIZATION/RESET TO nfiKE SURE THERE 
IS NO ACTIVE BUFFER LEFT AROUND. 

ENTRY: A2.L = TEMP POINTER 

USES: D1,D2,D3 AND ROUTINE DROPDMA (WHICH USES AO ) 

HPL ROUTINE ( MODIFIED ) 



00000066 4E4B 



00000068 
0000006C 
00000070 
00000072 
00000076 
00000078 
0000007C 
00000080 
00000082 
00000086 
00000088 
0000008C 
0000008E 
00000092 

00000098 
0000009C 
00000O9E 
OOOOOOAO 
000000A2 



or, :c 

61)0 

677E 
627C 
671A 
6170 
2 74 4 
96 74 
4A2B 
65u6 
C7fiB 
6004 
D7AB 
177C 
00 1:5 
422B 
42M4 
60. 'C 
4ff F 
4E75 



2/00 
00C6 



2 1 F 
30 I C 



OOOD 
0020 



00 12 
OOFF 



HB0RT_I0 TRAP 

* scs MOVE 
ORI 

AB0RT_I03 BSR 

BEQ.S 

CMP.B 

BEQ.S 

BSR 

MOVE. 

SUB. L 

TST.B 

BNE.3 

AOD.L 

BRA.S 

RB OUT ADD 



#11 

SR,-(SP) 

#$2700, SR 

ITXFR 

ABORT 102 

#TT DRA.Dl 

ABOUT 101 

DROPDRA 

D4.TCNT 0FF(A3) 

D4,D3 

TDIR 0PF(A3) 

ABJOT 

D3.TFIL 0FF(A3) 

abor t :o"i 

03,TEHP 0FF(A3) 



AB0"RT_I01 MOVE.B #2S5,T_S"C_OFF(A3 



CLR.B 
CLR.L 
BRA 

ABORT_I02 MOVE 
RTS 

* scs RTE 



TACT 0FF(A3) 
(H4) 

ABORT 103 
SP)+,SR 



GET INTO SUPERVISOR MODE, SAVE SR 

\ PREVENT INTERRUPTS FOR A MOMENT. 

/ 

IS THERE A TRANSFER IN PROGRESS? 

IF NOT, DO NOTHING 

ELSE IS IT A DMA? 

IF NOT, SKIP 

ELSE FREE UP THE DMA CH, GET COUNT 

fix up count 

fix up actual count 



if input then update fill 

if output then update empty 
UNBUSV THE BUFFER 

SET TRANSFER TYPE TO NONE 

clear buffer ptr 

see if there is another 

RESTORE USER MODE 

RESTORE INTERRUPT LEVEL S RETURN 



scs 
scs 
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410 * 

411 » CHECK TFR 

412 * 
413 

414 

415 
415 
4 1 7 
4 13 
419 
420 
421 
422 
423 
474 
4 23 
426 
42 7 
428 
423 
430 
431 
432 
432 
433 
4 34 
435 
436 
435 
436 
437 
4 26 
43S 
440 



*» File name: COMASM 



44 1 
442 
443 

444 
445 
446 
447 
449 
449 
449 
449 
450 
451 
452 
453 
454 
455 

456 
4 57 
4 - 3 



********* 



ROUTINE TO CHECK FOR ACTIVE TRANSFER IN THE OPPOSITE DIRECTION. 
( t5is is called by a tfr routine on cards 

that can't do bi-di rec ' aOnal tfrs ) 
( gpio and hpib modules use this routine ) 
( with a timeout wait ) 

ENTRY: A2 ,L = TEMP POINTER 

A3.L = BUF CTL BLK POINTER 

EXIT : IF NOT TRANSFER, RETURN 

IF TRANSFER, THEN wait until finished 

or until timeout ( if any ) 



000OOOA4 4B28 OOOD CHECK_TFR TST.B 

000000A8 6603 BNE.S 

OOOOOOAA 49EA 0028 CHKT_OUT LEA 

OOOOOOAE 2214 MOVE . L 

OOOOOOBO 6006 BRA.S 



00000082 4SEA 0024 CHKT 
0O00OOB6 2211 



LEA 

MOVE.L 

BRA.S 



TDIR 0FF[A3) 
CHKT _IN 

BUF0J)FF(A2),A4 
(A4) ,D1 
CHKUAIT 



BUFI_0FF(H2),A4 

(H4),D1 

CHKUAIT 



base test on direction 

( if this is in , check out ) 

IS THERE AN output BUFFER ACTIVE? 

IF SO , THEN UAIT 



is there an input tfr 



00000068 671 
OOOOOOBA 242 
OOOOOOBE 67E 
OOOOOOCO 083 
FED 
000000C6 671 
OCOO0OC8 E18 
300000CA 221 
OOOOOOCC 670 
OOOOOOCE 638 
OOOOOODO 66F 
00000002 600 
O0000OD6 4E7 



BEQ.S 
MOVE.L 
BEQ.S 
BTST 

BEQ.S 

LSL.L 

MOVE. L 

BEQ.S 

SUBQ.L 

BNE.S 

BRA 

RTS 



CHKEXIT e: 

TIME0UT(A2) ,D2 ge 
CHECK IFR if 

♦ TIMER" PRESENT, SVSFLAG2 



it if no tfr 
timeout value 
timeout = then try forever 

JS 8/3/83 



CHKT TIM 
#8,02" 
(H4) ,01 
CHKEXIT 
#1 ,D2 
CHKLOOP 
CTMO ERR 



CHECK IF TIMER PRESENT 
IF SO THEN USE 



JS 8/3/83 



00000008 1F"P 
OOOOOODC 2F02 
OOOOOODE 2214 
OOOOOOEO 67CE 
JO0O0OE2 485" 
3O0O0OE4 4EB9 
0000 
700000EA 6AF2 
OOOOOOEC 600c 
OOOOOOFO 5C8P 



0001 CHKT_TIM MOVE.S 
MOVE.L 
CHKT_TIF1l MOVE.L 
BEQ.S 
PEA 

0000 JSR 

BPL 



#1,-(SP) 
D2,-(SP) 
(H4],D1 
CHKT TIM2 



il 



ECK TIMER 



CHKT TIM1 
CTMO ERR 



CHKT_TIM2 ADDQ. L #6,SP 



IT 

check the buffer again 
if finished in time then 
decrement 



SET UP TIMER RECORD JS 8/3/83 

JS 8/3/83 

TRANSFER ACTIVE ? JS 8/3/83 

NO -- EXIT JS 8/3/83 

ELSE CHECK TIMER JS 8/3/83 

JS 8/3/83 

BRANCH IF NOT TIMED OUT JS 8/3/83 

ELSE 00 TIMEOUT ESCAPE JS 8/3/83 
CLEAN TIMER RECORD FROM STACK JS 8/3/83 



1-100 
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459 0OO0OOF2 4E7S RTS 



TRANSFER SUPPORT 



File name: COIIFISri »* 
JS 8/3/83 



461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
4 80 
481 
482 

483 
4 84 
485 
486 
487 
488 
489 
490 
491 
491 
491 
492 
493 
494 
495 
496 
497 

498 
499 

500 

501 
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******************** 

* 

« WAIT TFR 



TRANSFER SUPPORT 



t******** 



*«« File name: COHASM 

***** *************** 



ROUTINE TO CHECK FOR ACTIVE TRANSFER. 
( with a timeout wait ) 



000000F4 6100 003E WAIT TFR 
00OO0OF3 671C 
OOOOOOFA 2C2A 002E 
OOOOOOFE 67F4 
00000100 0838 0001 

FEOA 
00000106 6710 
00000108 EB8E 

0000010A 6128 UT LOOP 
0000010C 6708 
0000010E 5386 
00000110 66F8 
00000112 6000 FF2E 
00000116 4E75 UT DONE 



00000118 1F3C 0001 UT Tin 

000001 1C 2F06 

0000011E 6114 UT TIM1 

00000120 670E 

00000122 48S7 

00000124 4EB9 0000 

0000 

0000012A 6AF2 

0000012C 6000 FF14 

00000130 5C8F UT TIM2 

00000132 1E75 



ENTRY: 
EXIT : 



BSR 

BEQ.S 

MOVE.L 

BEQ.S 

BTST 

BEQ.S 
LSL .L 
BSR .S 
BEQ.S 
SUBQ.L 
BNE.S 
BRA 
RTS 



A2.L = TEMP POINTER 

IF NOT TRANSFER, RETURN 

IF TRANSFER, THEN wait until finished 

or until timeout ( if any ) 

NO REGS OTHER THAN RETURN VALUES. 



ITXFR quick check for tfr 

UT DONE and exit 

TIMEOUT (A2) ,06 get timeout value 

UAIT TFR if timeout = then try 

#TIMEX_PRESENT,SYSFLAG2 IF TIMER PRESENT USE IT 



UT TIM 

#5,06 

ITXFR 

UT_DONE 

»1,D6 

UIT LOOP 

CTffO ERR 



MOVE.B #1,-(SP) 
MOVE.L D6, -(SP) 
ITXFR 
UT TIM2 

CHECK TIMER 



BSR.S 

SCU.S 
PEA 

JSR 



3P_ 
BRA 
ADOQ. 
RTS 



UT TIM1 
CTRO ERR 
#6,SP 



BRANCH IF WE HAVE IT 



forever 

JS 8/3/83 

JS 8/3/83 



try 

if finished 

decrement 



in time then return 



SET UP TIMER RECORD 

CHECK FOR ACTIVE TRANSFER 
NONE -- EXIT 
CHECK TIMER 



JS 8/3/83 

JS 8/3/83 

JS 8/3/83 

JS 8/3/83 

JS 8/3/83 

JS 8/3/83 

LOOK AGAIN IF NOT TIMED OUT JS 8/3/83 

ELSE DO TIMEOUT ESCAPE JS 8/3/83 

CLEAN UP TIMER RECORD JS 8/3/83 

AND RETURN JS 8/3/83 
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39 ICLI6 I0CCI1ASM - TRANSFER SUPPORT *** File name: COMASM 


*** 


503 








, 


***** 


.I,**,*,*,*,*,,,**.**,******.*,***,.*******.***************************** 




504 








* 








505 








* 




ITXFR 




506 








* 








507 








♦ 




ROUTINE TO CHECK FOR ACTIVE TRANSFER. 




508 








* 








509 








* 




ENTRY : A2 . L = TEMP POINTER 




510 








* 








511 








♦ 




EXIT : IF NOT TRANSFER, PET with zero flag set 




512 








* 




IF TRANSFER, RET with not zero 




513 








* 




Dl .Ul = ACTUAL TFR TYPE 




514 








* 




D2.U = TERMINATING CHAR FROM TEMPS 




515 








* 




D3.L = TRANSFER COUNT FROM TEMPS 




516 








* 




AO.L = DATA POINTER FROM TEMPS ( either emtpy or fill ) 




517 








* 




A3.L = BUF CTL BLK POINTER FROM TEMPS 




518 








* 








519 








* 




HPL ROUTINE ( MODIFIED ) 




520 








* 








521 








* 


***** 


************************************************************************* 




522 


00000134 


49EA 


0024 


ITXFR 


LEA BUFI 0FF(A2),A4 IS THERE AN input BUFFER ACTIVE? 




= 23 


00000138 


2214 








MOVE.L (A4),01 

BNE .S ITXFR3 IF NOT, SKIP 




524 


0000013H 


660'! 










525 


0000013C 


43H", 


0028 






LEA BUFO 0FF(A2),A4 is there an output tfr 




52R 


00000140 


2214 








MOVE.L (A4),D1 

BEQ.S ITXFR1 -no 




527 


00000142 


6722 










628 


00000144 


264: 




ITXFR3 


MOVEA.L D1.A3 \ 




529 


00000146 


4281 








CLR.L Dl ELSE GET BUFFER TYPE WORD 




530 


00000148 


122:5 


0007 






MOVE .? TACT 0FF!P3) ,01 / 




531 


0000014C 


42S/ 








CLR. TJ2 




532 


0000014E 


342/ 


OOOE 






MOVE.uJ TCHR 0FF(P/',D2 GET TERMINATING CHAR 




533 


00000152 


26:- : ; 


0010 






MOVE.L TCNT OFF(P- ,03 GET COUNT 




534 


00000156 


20fi i 


001C 






MOVEA.L TEMP OFF((i:;,HO GET EMPTY POINTER 




535 


0000015B 


4A/:3 


OOOD 






TST.B TDIR 0FF(A3) check direction 




536 


0000O15E 


6604 








BNE.S ITXFK"2 \ IF INPUT 




537 


00000160 


206 5 


0020 






MOVEA.L TFIL 0FF(A3),A0 / THEN GET FILL POINTER 




538 


00000164 


7R0 1 




ITXFR2 


MOVEQ #1,05" set not zero 




539 




000) 


0166 


STCLR1 


EQU * 




540 


00000166 


4E7 i 




ITXFR1 


RTS 
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39 IDLIB IOCOMASM - TRANSFER SUPPORT *** File name: COMASM 


*** 


542 








** 


***** 


************************************************************************* 




543 








* 








544 








* 




STCLR 




545 








* 








546 








* 




ROUTINE TO SET A BUFFER & SELECT CODE NOT SUSY 




547 








* 








548 








* 




ENTRY: gets buf pt r from ITXFR routine 




549 








* 








550 








* 




assumes only ore tfr per select code 




551 








* 








652 








* 




USES: A3, DO 




553 








* 








554 








* 




HPL ROUTINE ( MODIFIED ) 




555 








* 








556 








** 


***** 


A************************************************************************ 




557 


00000168 


61CH 




STC1R 


BSR ITXFR GET BUFFER POINTER FROM TEMPS 




558 


0000016P, 


67FH 








BEQ.S STCLR1 IF ALREADY CLEAR, SKIP 




559 


OO00016C 


177/ 
OOOS 


OOFF 






MOVE.B #25S,T_SC_0FF(P3) CLEAR S.C. INDICATOR IN THE BUF CTL BLK 




560 


00000172 


42215 


0007 






CLR.B THC 0FF(A3) clear tfr type 

CLR.L (H4) CLEAR BUF POINTER IN SC TEMPS 




661 


00000176 


4 294 










562 








*RTS 






563 
















563 
















563 
















563 
















563 
















564 








** 


***** 


************************************************************************* 




565 








* 








566 








* 




LOGEOT 




567 








* 








568 








* 




CALL THE USER PROC AT END OF TRANSFER 




569 








* 








570 








* 




PASCAL ROUTINE 




571 








* 








572 








* 




modified to pass a user parameter: JPC 02/22/82 




573 








* 








574 








** 


***** 


************************************************************************* 




575 


00000178 


4 It 15 


0C24 


LOGEOT 


LEA T_PR_0FF(R3] ,A0 point to procedure/static link/parameter 




576 
















577 


0000017C 


201O 




H_ 


EOT! 


MOVE.L (AO).DO is there a proc? 
BEQ. C H_E0T3 skip if not 




578 
579 
580 


0000017E 


67H! 










00000180 


48F'' 


0078 






MOVEM.L A1-A4,-(SP) save dedicated regs (8/10/82 JPC) 




581 


00000184 


2f:";5 


C :': a 






MOVE.L 8(A0),-(SP) push the parameter 




582 


30000188 


22?:i 


0004 






MOVE.L 4(A0] Dl is there a static link? 




583 


1000018C 


6702 










MOVE.L DT,-(SP| and call proc with static link 


584 


0000018E 


2FC1 










585 


00000190 


2040 




H_ 


E0T2 


MOVEA.L DO,AO procedure address 
JSR (HO) call it 




586 


00000192 


4E90 










587 


00000194 


4CC11' 


1E00 






MOVEM.L (SP)+,A1-A4 restore dedicated regs (8/10/82 JPC) 




588 
















589 


00000198 


4E''l 




H_ 


E0T3 


RTS 




530 
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59? 
593 
594 
595 
596 
597 
668 
5 59 
606 
601 
502 
CO 3 
604 
605 
60S 
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* LOGINT 



TRANSFER SUPPORT 



*** File name: COMHSM *** 



THIS ROUTINE UAS COLLED HJ.OG 

CRLL THE USER PROC L.6EN BN ISR SBYS TO 

PBSCOL ROUTINE 

modified to pass a user parameter: JPC 02/22/82 



0000019A 41EA 0014 LOGINT 
0000019E 60DC 



LEB 
ERA 



H_ISR PR(A2),A0 point to procedure/static link/parameter 
H_E0TT call it (if it exists) 
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DMBJTBSY 

ROUTINE TO SET B BUFFER BUSY 



*** File name: COrlHSd 



608 








****** 


609 








* 


610 








* 


611 








* 


612 








* 


613 








* 


614 








* 


615 








* 


616 








* 


617 








* 


618 








* 


619 








* 


620 








* 


621 








* 


622 








* 


623 








* 


624 








****** 


625 


000001PO 


2146 


OOOO 


DMA_ST 


626 


000001A4 


42P8 


0004 




627 








* 


628 










623 










628 










6 28 










628 










620 








****** 


630 








* 


631 








* 


6 32 








* 


633 








* 


634 








* 


6 25 








« 


6 36 








* 


6 27 








* 


633 








* 


6 33 








* 


64 








* 


641 








* 


642 








* 


643 








****** 


644 


000001A8 


2740 


OO10 


STBSY 


646 


000001BC 


4621: 


OOOD 




646 


000001B0 


660 6 






547 


000001B2 


2548 


0024 




64 8 


000001B6 


6CC4 






643 


000001B8 


2 54 6 


0028 


STBSY1 


650 


000601BC 


1766 
0003 


0020 


STBSY2 


651 


000001C2 


4E75 







DO.U = TRBNSFER COUNT TO BE PUT IN TCNT_0FF(B2) 

BND TO BE ADDED TO E/F COUNT. 
BO.L = pointer to DMA temps 
B2.L = POINTER TO DRIVER TEMPS 
B3.L = POINTER TO BUFFER CTL BLOCK 
B4.L = POINTER TO TERMINATION ROUTINE 



HPL ROUTINE ( MODIFIED 



[10VE.L B4,DMBISR(B0) 
CLR.L OrlASL(AO) 
BRA.S STBSY 



SAVE THE TERMINATION ROUTINE 
CLEAR THE STATIC LINK 
SET THE BUFFER BUSY 



********** 



STBSY 

ROUTINE TO SET 
ENTRY: 



B BUFFER BUSY 



DO.U = TRANSFER COUNT TO BE PUT IN TCNT_0FF(A2) 

BND TO BE ADDED TO E/F COUNT. 
A2.L = POINTER TO DRIVER TEMPS 
A3.L = POINTER TO BUFFER CTL BLOCK 

HPL ROUTINE ( MODIFIED ) 

MOVE.L D0.TCN1 0FF(P.3) COPY TFR COUNT INTO TEMPS. 

TST.B TOIR 0FF(A3) \ 

BNE.S STBSYl \ 

MOVE.L A3.BUFI 0FF(fi2) MAKE SELECT CODE BUSY 

BRB.S STBSY2 / 

MOVE.L A3,BUF0 0FF(fi2) / 

MOVE.B I0_SC(A2] ,T_SC_0FF(A3) SET UP BUFFER ACTIVE SELECT 

RTS DONE! 



1-103 



6-) 5 
656 
657 
658 
659 
660 
66 
66 3 
661 
662 
66 3 
664 
66 5 

66 S 
66? 
668 
669 
670 
6?! 
672 
672 
673 
674 
675 
676 

67 7 
617 
678 
676 
6EC 
63 t 
682 
682 
683 
684 
685 
686 
666 
667 
688 
683 
690 
691 
692 
693 
694 



12 2'/ 84 21:25:39 IOLIB IOCOMASM - DMA SUPPORT 



DMA RESOURCE MANAGEMENT ROUTINES 



File name: CCM9SM 



********* 



*********** 






******** 



* DMA RESOURCE temporaries 

* These resource temporaries need to be aligned with the offsets 

* gererated by the main Pascal library. This is not an automatic 

* operation - it must be done by hand if ANY new declarations are 

* added in the iodeclarations in front of the dma resource temps. 

FFFF FFC3 DflAFLRG EQU iodecl a rat ions-61 boolean indicating presence of dma hardware 



C FFF FFF8 DMAO 

"FFF FFF8 DtlAISR 

FFFF FFFC DMASL 0" 

FFFF FFF7 DMA SC~ 



"I FF FFEE DMfil 
FFFF FFEE DMAISR 1 
FFFF FFF2 DMASL X 
FFFF FFED 0MA SC 1 



0C00 0000 DMAISR EQU 
0000 0004 DMASL EQU 
FFFF FFFF DMA SC EQU 



EQU 


iodecla rations 


-ft 


EQU 


iodecla rat ions 


H 


EQU 


iodecla rat ions 


-A 


EQU 


iodecla rat ions 


•9 


EQ^- 


iodecla rations 


18 


EQU 


iodecla rations 


1 V 


EQU 


iodeclarations 


14 


EQU 


iodeclarations 


19 



0C50 


0000 


DI1ACH0 


E:Ql 


$500000 


0050 


0008 


QMACH1 


EQU 


$500008 






******** 


******* 


********* 



AD0RE5S CONSTANTS 



************** 
.1047 8000 H_INT_CA EQ.U 



********* 
$478000 



channel temps 



channel 1 temps 



isr pointer 
static link 
allocated s.c. 



address of dma channel 

address of dma channel 1 

************************** 



ADDRESS OF INTERNAL HPIB INTERFACE 
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697 
698 
699 
700 
701 
702 
703 
704 
70 5 
"06 
70 7 
7C8 
70 3 
710 
711 
712 

713 

714 

715 

716 
717 
718 
718 
718 
718 
719 
720 
721 
722 
723 
724 
72 5 
726 
727 
72 8 
728 
728 
123 



0000 01C4 
000001C4 .85F 
000001C6 245F 
000001C8 726B 0020 
000001CC 4E4B 

* scs 
000001CE 007C 2700 
00000 1D2 tl 00 0080 
000001D6 6710 
000001D8 6343 
000001DA 0243 0001 
O00001DE 4803 
O00001EO 1 16A 002D 

FFFF 
000001E6 t006 
000001E8 263C FFFF DR FAIL 

FFFF 
000001EE 460F DR GOOD 
000001 FO 2E93 
000001 F2 4ED4 



* request a dma channel 

* 

I0C0t1flSM_DMA REQUEST EQU * 



MOW: A 

MOVEA 

MOVES 

TRAP tt 

MOVE 

ORI 

BSR 

BEQ.S 

SUBQ.1J 

ANDI .U 

EXT.L 

MOVE.B 

BRA S 
MOVE.L 

MOVE 

MOVE.L 

JMP 



(SP)+,B4 
(SP)+,A2 
C„ADR(A2) 
11 
SR.-(SP) 
#$2700, SR 
TESTDMA 
OR FAIL 
#1,D3 
#1,D3 
D3 
I0_SC(A2), 

DR GOOD 
#-T,D3 

(SP)* SR 
D3, (SP) 
(A4) 



DMA_SC:A0) 



* release a dma channel 

* 
0000 01F4 lOCOMASMJJMA RELEASE EQU * 
000001F4 205F MOVEA . L (SP)*,A0 

000001F6 245F MOVEA . L SP *,A2 

000001F8 226A 0020 MOVEA . L C ADR[A2),A1 

000001FC 4850 PEA (PlO) 

000001FE 6000 0098 BRA DRCPDMA 



** File name: COMASM 



scs 
DISABLE 



save return address 
get sc temp 

get card ptr 
ET INTO SUPERVISOR MODE 
JUST IN CASE CALLER DIDN' 
INTERRUPTS, I (JILL. 
SEE IF DMA IS INSTALLED 
IF NOT, return -1 
turn S82/S81 to $81/$S0 
determine channel 



ELSE CLAIM THIS CHANNEL FOR CALLER 



restore int . 
assign returr 
return addr 



state 
value 



channel ( or -1 



save return address 

get sc temp 

get card ptr 

push return address 

release it 



1-104 
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»,. 


731 






****»********,*****,«*»:«*,*»**,,***********************************«***»******** 




732 






* 










733 






* 




GET DMA 






734 






* 










735 






* 




ROUTINE TO OBTAIN CONTROL OF A DMA CHANNEL 




736 






* 




GET EITHER DMA CHANNEL 


TRYING FOR CH 1 FIRST. 




737 






* 










738 






* 




ENTR: CONDITIONS ARE 


THE SAME AS FOR THE tfr DRIVER ENTRY POINT. 




739 






* 










740 






* 




EXIT: IF DMA IS NOT INSTALLED, 'no dma' escape is generated. 




741 






* 




IF DMA IS INSTALLED, THE ALGORITHM UBITS FOR B CHANNEL TO 




742 






* 




BECOME AVAI.BBlE AND THEN: 




743 






* 




LOGS USE OF 


DMA CHANNEL 




744 






* 




SEIS UP ADDRESS AND COUNT REGISTERS. 




745 






* 




CONSTRUCTS CARD ARM BND DMA ARM MASKS BS FOLLOWS: 




746 






* 




D2.U 


= DMA ARM BYTE WITH BITS 1, 2 DEFINED BY 




747 






* 






CONTENTS OF 01 BND BIT = 1. 




748 






* 




D3.B 


= CARD ENABLE BYTE WITH BITS 0, 1 DEFINED BY 




749 






* 






WHICH DMA CHANNEL UBS GRANTED AND BIT 7=1. 




7S0 






* 




B4.L = ADDRESS Of DMB CHANNEL ARM WORD. 




751 






* 










752 






* 




NOTE: IF THE REQUEST 


IS FOR INTERNAL HP-IB BS INDICATED BY PI, 




753 






* 




ONLY CHANNEL 


DILL BE GRANTED. 




754 






* 










7SS 






* 




HPL ROUTINE ( MODIFIED 


) 




756 






* 










7S7 






** 


********** ******************************************************************** 




758 


00000202 4E4B 




GETDMB 


TRAP #11 


GET INTO SUPERVISOR MODE scs 




759 






* 


SCS 


MOVE SR.-(SP) 
ORI #$2700, SR 
CMPI . L #$010001 .DO 


JUST IN CASE CALLER DIDN'T DISBBLE 




760 


00000204 007C 


2700 






INTERRUPTS, I LULL. 




761 


00000208 0C8O 


00 01 






\ make sure count <=65536 






0001 














762 


0000020E 6R00 


FE38 






BPL TERR C 


/ 




763 


000002:.2 6140 








BSR.S testEma 


SEE IF DMA IS INSTALLED 




764 


000002:4 6700 


FE38 






BEQ. TERR D 


IF NOT, GIVE ERROR 




765 


000002:8 1 160 


002D 






MOVE.B I0_SC"(B2) ,DMB_SC(BO) ELSE CLAIM THIS CHANNEL FOR CALLER 






FFFF 














766 


0000021E 2842 








MOVEA.L D2.B4 


A4 = ADDRESS OF DMA CHANNEL HARDWARE. 




767 
















768 


00000220 242B 


00 1C 






MOVE.L TEMP 0FF(P3),D2 


\ 




769 


00000224 4A2B 


C'0"0 






TST.B TDIR 0FF(A3) 


\ 




770 


00000228 6604 








BNE.S GFTDHA1 


SET UP ADDRESS 




771 


0000022B 242B 


0020 






MOVE. L I FIL OFF (A3) , D2 


/ 




772 

773 
774 


0000022E 28C2 




GETDMA1 


MOVE. L D2, (A"4)« 


/ 




00000230 5380 








SUBQ. L #1,D0 


COUNT REGISTERS (COUNT REG 




77S 


00000232 38C0 








MOVE.U DO, (A4)-> 


MUST BE CCUNT-1) 




776 


00000234 6280 








BODQ. L #1,D0 






777 
















777 
















778 


00000236 4242 








CLR.W D2 






779 


00000238 1428 


0000 






MOVE.B TDIR 0FF(R3),D2 


MOVE DIRECTION BIT INTO B2 OF D2 




780 


0000023C E54A 








LSL #2,D? 


IN ORDER TO CONSTRUCT DMB ARM 




781 
















781 
















782 


0000023E 4R2B 


0OOP 






TST.B T BUI 0FF(B3) 


IF BYTE TRANSFER 




783 


00000242 6702 








BEQ.S GE.TDHB2 


THEN SKIP 
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KX* 


784 


00000244 5442 








BDDQ.LJ #2,D2 

TST .B T DMB PR I (B3) 


ELSE SET BIT 1 OF DMA ARM. 




785 


00000246 4A26 


00 30 


GETDMA2 


check Tor dma priority requested 




786 


0000024P 6702 








BEQ.S GFT0MB3 






787 


0000024C 5042 








BDDQ.U #8,02 


if set then set pri bit 




788 


0000024E 5242 




GETDMA3 


BODQ.UI #1,02 


SET BITO OF DMA ARM 




789 


00000260 46DF 








MOVE (SP)+,SR 


scs 




790 


00000262 4E7S 








RTS 


scs 




791 






* 


5CS 


RTE 






792 
















792 
















792 
















792 
















792 
















792 
















793 






** 


****** 


************************************************************************ 




794 






* 










795 






* 




TESTDMB 






796 






* 










797 






* 




THIS ROUTINE TESTS FOR 


PRESENCE OF DMA HARDWARE AND WAITS FOR 




798 






* 




B CHANNEL TO BECOME HVBILABLE. 




799 






* 










800 






* 




ENTRY: Bl ■ CARD ADDRESS 




801 






* 










802 






* 




EXIT: IF NO DMB IS INSTALLED, RET with zero flag set 




803 






* 




IF DMB IS INSTALLED, RET with not zero set 




804 






* 




BO.L » ADDRESS OF DMA FLAG FOR AVAILABLE CHANNEL 




805 






* 




02. L = ADDRESS OF AVAILABLE OMB CHANNEL 




806 






* 




D3.B = CARD ENABLE BYTE FOR AVAILABLE CHANNEL 




807 






* 










808 






* 




HPL ROUTINE ( MODIFIED 


) 




809 






* 










810 






** 


****** 


************************************************************************ 




811 


00000264 41ED 


FFC3 


TESTDMB 


LEA DMAELAG(AS) ,A0 


\ 




812 


00000268 4B10 








TST.B (AO) 
BEQ.S TESTDMB C 


00 RET 1 IF NO DMB 




813 


000002SB 673B 








/ 




814 


000002SC B3FC 
8000 


0047 






CMPA.L #H_INT_C"A,A1 


IF THIS IS fl REQUEST FOR THE INTERNAL 




815 


00000262 6716 








BEQ.S TESTDMA A 


HP-IB, THEN CAN'T TRY FOR CH 1 SO SKIP. 




816 


00000264 41ED 


FFEE 






LEA DMA 1( AST, BO 
MOVE.L #DMACH1,D2 


ELSE ASSUME WE CBN GET CH 1 




817 


00000268 243C 


0050 












0008 














818 






* 


tm 


MOVEQ #$82,03 






819 


0000026E 163C 


0082 






MOVE.B #$82, D3 






820 


000002"2 0C28 
FFFF 


00 FF 






CMPI.B #255,0MA_SC(A0) 


CBN WE? 




821 


00000278 671B 








BEQ.S TESTDMA B 


IF SO, THEN RET 3 




822 


0000027B 41E0 


FFF8 


TESTDMB 


A LEA DMA01A5T, AO 
" MOVE.L #DMACH0,D2 


ELSE ASSUME WE CBN GET CH 




823 


0OOO027E 243C 


0050 












0000 














824 






* 


tm 


MOVEQ #$81, D3 






825 


00000284 163C 


0081 






MOVE.B #$81,D3 






826 


00000288 0C28 
FFFF 


OOFF 






CMPI.B #255,0MA_SC(A0) 


CBN UE? 




827 


0000028E 6704 








BEQ.S TESTDMA B 


IF HARDWARE PRESENT BUT BUSY, same as not there 




828 


00000290 4245 








CLR D5 






829 


00000292 4E75 








RTS 






830 


00000294 7R01 




TESTDMB, 


B MOVEQ #1,05 


ELSE UE GOT A CH 


















1-105 



831 
832 
832 
532 
832 
832 
832 
833 
834 
835 
336 
837 
838 
833 
810 
841 
842 
843 



[8.0] 12,. '6/84 21 : 
00000296 4E7S 



28:29 I0L1B I0COI1HSM 
TESTDMfl_C RTS 



HSSEMb'Lf DMA PROCEDURE"-, 



******** 



File name: COMHSM 



DROPDMB 

ROUTINE TO FREE UP B DMA CHHNNEL 
ENTRY: A2.L = POINTER TO DRIVER TEMPS 



EXIT: 



04. U = FINAL DMA CHHNNEL COUNT 
CHANNEL 15 DISARMED. 



** **** 
UOOO 0298 DROPDMB 



850 


00000298 


4E48 






851 








* SC5 


852 


0000029H 


O07C 


2700 




853 


0000029E 


7 300 






854 


000002AO 


1026 


FFF7 




85 5 


000002R4 


: 02 6 


002D 




630 


000002A8 


:. 60C 






857 


000002AA 


4 9EC 


FFF8 




858 


OC0002BE 


41F9 

: 000 


0050 




859 


000002B4 


6014 






860 










860 










861 


000002B6 


1020 


FFED 


DROPDMfiO 


882 


000002BH 


1-02H 


002D 




88? 


000002BE 


i-622 






864 


000002C0 


■19ED 


FFEE 




865 


000002C4 


41F9 

o008 


0050 




866 


C00002CH 


197C 
1 FFF 


OOFF 


DR0PDMA1 


367 


00000200 


42RC 


0004 




868 


000002D4 


42HC 


0000 




869 


000002D8 


2818 






37 


000002DH 


4284 






871 


000002DC 


8810 






87 2 


000002DE 


687C 


0001 




87 3 


000002E2 


46DF 




DR0PDMA2 


87 4 


000002E4 


4E75 






375 








* 5C"> 



USES: 


AO 




HPL ROUTINE ( MODIFIED ) 


****** 


*************)> 


**** 


EQU * 






TRAP #11 




MOVE 


SR,-(SP) 
#$2700, SR 




or: 




MOVEQ 


#0,D4 




MOVE.E 


DMA SC 0(H5) 
10 3"C(P72) ,D0 


00 


CMP.B 




BNF.S 


DRCTPDMAO 




LEA 


DMA0(A5) ,fi4 




LEfl 


DMRCHO.PO 





BRfl.S DR0PDMA1 



nnvE .[ 
CI1P.B 
BNE.S 
LEA 

LEfl 



DMH SC 1 (H5) ,D0 
10 SX(H2),D0 
3?2?PDMA2 
DMA1(A5),B4 
DMflCHl.HO 



MOVE.B #2S5,DMB_SC(B4) 

CLR.L DMHSL(A4) 
CLR.L DMHI5R!fi4) 
MOVE.L (H0)*,D4 
CLR.L 04 
MOVE.U (B0),D4 
ADD.U #1,04 
MOVE (SP *,SR 
RTS 
RTE 



JUST IN CASE CALLER DIDN'T DISABLE 

INTERRUPTS, I WILL. 

ASSUME DMA CHA ALREADY DROPPED... 

\ 

/ IS IT CH 0? 

IF NOT, SKIP 

GET fl POINTER TO THE CHANNEL R/U 

POINT AO TO CH 

GO DO IT 



\ 

/ IS IT CH 1? 

IF NOT, DO NOTHING 

GET B POINTER TO THE CHANNEL RAJ 

POINT BO TO Ch 1 

clear s .c . 

clear static link 
clear isr pointer 
DISARM CH BY READING ADDRESS 

GET FINAL COUNT INTO 00 

FIX UP COUNT TO INDICATE LEFT OVER TFR'S 

5C5 
SCS 
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877 
878 
379 



882 
883 
884 
885 

8S6 

887 



800 
861 



682 
363 



******************************************************** 
* 

* TlflEREXISTS: PASCAL FUNCTION TO SEE IF TIMER 

« FUNCTION TIMEREXISTS: BOOLEAN; EXTERNAL; 

* RETURNS TRUE IF TIMER PRESENT, ELSE FALSE 
, 8/2/83 



Fale name: COMBSM 



********* 



******** 



000002EC 
000002FO 



0000 02E6 
0838 0001 
FEDB 

57EF 0004 
4E75 



STS EQU * 

BTST #TIMER_PRESENT,SYSFLRG2 CHECK BIT FOR TIMER PRESENT 



SEQ 4(SP) 

RTS 



SET FUNCTION RESULT 0=>TRUE 
AND RETURN 



889 








* 


900 








* 


901 








* 


902 








* 


903 








* 


904 








* 


905 








* 


906 








* 


907 








* 


908 








* 


909 








* 


910 








* 


911 








* 


912 








* 


913 








* 


914 








********* 


915 








* 


916 


000002F2 


20SF 


TIMEDJJUT 


917 


000002F4 


4EB9 0000 










0000 




918 


000002FB 


5608 




919 


000002FC 


4ED0 




620 










92 1 










92 2 










923 










PASS 1 


ERRORS: 









PASS 2 


ERRORS: 










TIMEDJUT: PASCAL FUNCTION TO SEE IF TIMEOUT HAS OCCURRED 

FUNCTION TII1ED_0UT(VflR REC : TIMEOUTREC): BOOLEAN; EXTERNAL; 

TIMEOUTREC= PACKED RECORD 

COUNT: INTEGER ( SET TO TIMEOUT IN MS > 
FIRST1IME: BOOLEAN; (SET THIS TO TRUE FOR FIRST 
CBLL ) 
END; 

RETURNS: TRUE IF TIMEOUT PERIOO EXPIRED, ELSE FALSE 

CAUTION: UILL SMASH BOTH PARTS OF TIMEOUTREC PARAMETER 

--- 8/2/83 

JUS 5/3/84 



REMOVED ADDQ.L *4,SP AFTER SMI 
<**********************************. *ss«* 



********** 



(SP)+,HO SAVE RETURN ADDRESS 

CH""" " 



MOVEB.L 

JSR CHECOIMER CALL CHECK_TIMER USING PARAMETER ON STK 



SMI 

JMP 



(BO) 



SET RESULT OF FUNCTION 
AND RETURN WITH SP POINTING TO RESULT 



1-106 
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:39 IOLIB IOCOMASM 


ASSEMBLY DMA PROCEDURES 


*** File r.^rie: C0MA5M *»* 


«*» 68000 ASSE 


MBLER SYMBOL TRBLE DUMP »«* 






EXTE 


RNAL SYMBOLS 








SYMBOL 


TYPE 


CEF 


VALUE 






CHECK TIMER 


AES 


106 


00000002 






IODECLARATIONS 


AES 


305 


00000005 






SYSGLOBALS 


AES 


306 


00000009 






i in - 


RNAL SYMBOLS 








SYMBOL 


TYPE 


BEF 


EQU SYM 


VALUE 




flO 


AREG 







OOOOOCOO 




Al 


AREG 







00000C01 




R2 


AREG 







00000002 




A3 


AREG 







0OOO0C03 




R4 


AREG 







00000004 




RS 


AREG 







OOOOOCOS 




R6 


,-h. 







0OO00C06 




B7 


AREG 







00000007 




ABORT 10 


REL 


386 




00000066 




ABORT 101 


REL 


4C1 




0OOO0C92 




RBORT 102 


REL 


405 




OOOOOCAO 




ABORT 103 


REL 


389 




0OOO0C6C 




AS OUT 


REL 


4 00 




0OOO0C8E 




AVfSll OFF 


ABS 


245 




00000034 




badthO 


ABS 


323 




OOOOOCOB 




BAD RDS 


AES 


331 




0O0O0C13 




BAD SCT 


ABS 


332 




00000014 




BtlT EXIT 


REL 


126 




00000C10 




BuFI OFF 


ABS 


J 36 




00000024 




BUFO OFF 


ABS 


237 




00000028 




BUF ffUSY 


ABS 


321 




00000009 




CCR 


STREG 







00000005 




CHECK TFR 


REL 


427 




0OOO0CA4 




CHKEXTT 


REL 


44 3 




OOOO0OD6 




CHKLOOP 


REL 


443 




OOOOOOCA 




CHKT IN 


REL 


433 




00000CB2 




CHKT OUT 


REL 


429 




OOOOOOAA 




CHKT TIM 


REL 


450 




00000008 




CHKT Tim 


REL 


452 




OOOOOODE 




CHKT TIM2 


REL 


458 




OOOOOOFO 




CHKUffIT 


REL 


437 




000000B8 




CRD DUN 


ABS 


333 




00000015 




CTrfJ ERR 


REL 


3S5 




00000042 




C ADR 


ABS 


235 




00000020 




as 


,.'.!■.. 







00000000 




Dl 


DREG 







00000001 




02 


DREG 







00000002 




D3 


DREG 







00000003 




04 


DREG 







00000004 




OS 


DREG 







00000005 




D6 


DREG 







00000006 




D7 


DREG 







00000007 




DFC 


STREG 







00000008 




DMAO 


ABS 


673 


IOOECLARATIONS * 


FFFFFEF8 
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:39 IOLIB lOCOMASr 


ASSEMBLY DMA PROCEDURES 


*** File name: COMASM *** 


DMA) 


ABS 


678 


IOOECLARATIONS + 


FFFFFFEE 




DMACHO 


ABS 


687 




00500000 




0MACH1 


ABS 


688 




00500008 




OMAFLAG 


ABS 


671 


IODECLARATIONS + 


FFFFFFC3 




DMAISR 


ABS 


683 




OOOOOOOO 




DMAISR 


ABS 


674 


IOOECLARATIONS + 


FFFFFFF8 




DMAISR 1 


ABS 


679 


IODECLARATIONS ♦ 


FFFFFFEE 




DMASL 


ABS 


684 




00000004 




DMASL 


ABS 


675 


IODECLARATIONS + 


FFFFFFFC 




DMASL 1 


ABS 


680 


IODECLARATIONS + 


FFFFFFF2 




DMA SC 


ABS 


685 




FFFFFFFF 




DMA SC 


ABS 


676 


IODECLARATIONS * 


FFFFFFF7 




DMA~SC~1 


ABS 


681 


IODECLARATIONS + 


FFFFFFED 




DMA STB~SY 


REL 


625 




000001AO 




DROPDMA 


REL 


849 




00000298 




DROPDrlAO 


REL 


86i 




000002B6 




DROPOrtAl 


REL 


866. 




000002CA 




DR0PDMA2 


REL 


873 




000002E2 




DR FAIL 


REL 


714 




000001E8 




DR GOOD 


REL 


715 




000001EE 




EIR~B OFF 


ABS 


238 




0OOO0C2C 




EOO SEEN 


ABS 


334 




00000016 




ESC COOE 


ABS 


342 


SYSGLOBALS ♦ 


FFFFFFFE 




ESC ERR 


REL 


364 




0O0O0C5O 




GETDMA 


REL 


758 




00000202 




GETDMA1 


REL 


772 




0000022E 




GETDMA2 


REL 


785 




00000246 




GETDMA3 


REL 


788 




0000024E 




H EOT) 


REL 


577 




0000017C 




H E0T2 


REL 


S8S 




00000190 




H E0T3 


REL 


589 




00000198 




H INT CA 


ABS 


694 




004 78000 




H~ISR~PM 


ABS 


234 




0OO00C1C 




H ISR PR 


ABS 


232 




00000014 




H ISR SL 


..(-, 


233 




00000C18 




IO"COrftSM BINAND 


REL 


131 




00000014 




IOCOMASM 8INCMF 


REL 


161 




00000038 




IOCOMASM BINEOR 


REL 


151 




0000002C 




IOCOMASM~BINIOR 


REL 


141 




00000020 




lOCOMASr. BIT SET REL 


lie 




00000002 




IOCOMASM DMA RELEASE REL 


722 


C00001F4 




IOCOMASM DMA REQUEST RE 


L 


700 


C00001C4 




IOCOMASM I0CCM3SM REL 


113 


OOOOOOOO 




IOE ERROR" 


ABS 


337 




FFFFFFE6 




IOE RSLT 


ABS 


339 


IODECLARATIONS + 


FFFFFFBE 




IOE SC 


ABS 


340 


IODECLARATIONS * 


FFFFFFBA 




10 RISC 


ABS 


335 




00000C17 




10 SC 


ABS 


233 




0000002D 




ISR" ENTRY 


ABS 


230 




OOOOOCOO 




ITXFR 


REL 


522 




00000134 




ITXFR) 


REL 


540 




00000166 




ITXFR2 


REL 


538 




00000164 




ITXFR3 


REL 


528 




00000144 




LOGEOT 


REL 


575 




00000178 




LOGINT 


REL 


605 




0000019A 




MA 


:-ies 


244 




00000033 




MA Ul 


ABS 


243 




00000C32 
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NOT HPIii 


BBL- 


Hi 


00000002 


NOT LSTM 


HBS 


32c 


0O0O0O10 


NOT TALK 


RP- 


327 


OOOOOOOF 


NO RCTL 


BBS 


315 


00000003 


NO CARD 


BBS 


313 


00000001 


NO DRTfi 


BBS 


318 


00000006 


NO DMA 


033 


325 


OOOOOOOD 


NO DRV 


BBS 


324 


OOOOOOOC 


NO DVC 


HBS 


316 


00000004 


NO SCTL 


BBS 


330 


00000012 


NO SPACE 


B3S 


317 


00000005 


NO WORD 


BBS 


326 


OOOOOOOE 


RCVR BLK 


BBS 


343 SYSGLOBBLS 


+ FFFFFFF6 


SC BOSV 


BBS 


320 


00000008 


SFC 


STRFG 





00000009 


sp 


BREG 





00000007 


SR 


STREG 





00000006 


STBSY 


REL 


644 


0O0001H8 


STBSY1 


REl 


649 


00000188 


ST8SY2 


REL 


650 


000001BC 


STCLR 


REL 


557 


00000168 


STCLR1 


REL 


639 


00000166 


SYSFLAG2 


HBS 


346 


FFFFFEDB 


TBCT OFE 


HBS 


260 


00000007 


TBSZ OFF 


HBS 


2 83 


00000018 


TBUF OFF 


HBS 


282 


00000014 


TCHR OFF 


HBS 


279 


OOOOOOOE 


TCNTFRR 


HBS 


322 


OOOOOOOB 


TCNT OFF 


HBS 


2 3 1 


0O0OOO1O 


TDIR OFF 


BBS 


277 


OOOOOOOD 


TEMP~OF> 


BBS 


234 


0000001C 


TEND OFI 


BBS 


2'5 


OOOOOOOB 


TERR B 


REL 


353 


ooooo oin 


TERR C 


REL 


39" 


00000046 


TERR D 


REL 


361 


0000004E 


TESTUMP 


REL 


811 


00000254 


TESTDMfi fl 


REL 


822 


0000027B 


TESTDMfl'B 


REL 


8 30 


00000294 


TESTDMfi'C 


REu 


831 


00000296 


TFIL OFF 


BBS 


285 


00000020 


TFR ERR 


BBS 


319 


0)000007 


T I HE'D OUT 


REL 


916 


000002F2 


T I HE OUT 


BBS 


240 


0000002E 


TIHEREX1ST5 


REL 


830 


000002E6 


TIHER PFE5ENT 


HB5 


34 5 


0O000001 


TMO ER"R 


hi ■ 


329 


00000011 


TTMP OFF 


HBS 


293 


00000000 


TT BURS! 


HBS 


203 


00000003 


TT DMA 


HBS 


295 


00000002 


TT FHS 


BBS 


29 7 


00000004 


TT INT 


BBS 


294 


OOOOOOOl 


TUS~R OFI 


BBS 


261 


00000009 


T BU OFF 


BBS 


2 73 


OOOOOOOB 


T OMHPRI 


BBS 


210 


00000030 


T PF1 OFF 


HBS 


229 


0000002C 


T PR OFF 


HBS 


286 


00000024 


T SC OFF 


BBS 


2H9 


00000005 
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T SL OFF 
USER ISR 
USP 
VBR 

UHIT TFR 
UT_DFjNE 
UT_LOOP 
UT_TIM 
UT TIM1 
UT TIM2 



HBS 


288 


BBS 


231 


STREG 





STREG 





REL 


478 


REL 


490 


REL 


49b 


REL 


482 


REL 


4 94 


REL 


500 



00000028 
00000014 
00000007 
OOOOOOOB 
0O0000F4 
00000116 
0000010B 
00000118 
0000011E 
00000130 
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DC 



Description 

DC contains assembly language low-level I/O drivers. 



Usage 

DC is used for the 98628 and 98629 interfaces. 



Requirements 

DC_DRV 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). ' 
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PfiSS 1 COMPLETE. ERRORS: 



iGE .: [3.0] 12/26/84 21:32:35 IOLIB EXTDC - DATA COMtl DRIVERS »** File name: DC 

3 ****** ******* ******************************************************* ************ 

4 * 

5 * COPYRIGHT (C) 1984 BY HEWLETT-PACKARD COMPANY 

6 * 

8 * 

9 * 

10 * IOLIB EXTDC 

11 * 

12 * 

14 * 

15 * 

16 * 

17 * Library - IOLIB 

18 * Authors - 

19 * Phone 

20 * 

21 * Purpose - This set of assembly language code is intended to be used as 

22 * a PASCAL module for I/O drivers for use by the external I/O 

23 * procedures library. 

24 * 

25 * 

26 * 

27 * The code was taken almost directly from the 9826 BASIC data 

28 * corrni code. 

29 * 

30 * Date - 10/26/81 

31 * Update - 05/03/84 

32 * Release - 5/15/84 

33 * 

34 * 

35 * Source - IOLIB: DC .TEXT 

36 * Object - I0LIB:DC.CODE 

37 * 

38 * 

40 * 

41 * 

42 * RELEASED 

43 * VERSION 3.0 

44 * 

45 * 

46 ******************************************************************************** 
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File name: DC 



49 
60 
61 
52 
53 
54 
66 
56 
57 
58 
69 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 



BUG FIX HISTORY 
BUG # BY / O'J 
1249 



SPRyyy 



01/08/82 
06/15/82 



07/30/82 



09/17/82 



08/11/83 
05/03/84 



- after releas 

LOC 

file DCJNTEP 
inxexl 

file DC_COtin 
alvinit 



file DC INTER 
t r y hocF 
try hock P 
inxd"nl 
outxdnl 



1 .0 

DESCRIPTION 



no 



*here 



gain_access 
di rect_cont rol 
di rect_command 
wait_outxf rdone 
output data 
putctrTblk 
release_access 

***************** 



1fr count is off by one 
byte for overlap tfrs. 

missing instruction in the 
reset code - not a problem 
for current use - but for 
future smart card intrfcs. 

eot and user isr's were 
not getting a parameter. 



Change BSRs into JSRs to 
allow re-placement of the 
modules. Also in GPIO and 
HPIB. No refs were used 
in the data comm modules. 

Timing/exception fixes for 
680xx processors. 



******** 



PAGE 
87 
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File name: DC ** 



91 
92 
93 
94 
95 
96 
97 



100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 



**####:*** 





do 


doc 




comdcl 




dr. 


decls 




dc 


buff 




dc 


comm 




dr 


inter 




dc. 


rxbuf 




dc 


trans 




dc. 


.txbuf 


spr 


int 




lie 


n 


132 
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123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
ISO 
151 
152 
153 
154 
155 
156 
157 
1S8 
159 
160 
161 
162 



DBTB COMM DRIVERS 
******************* 



The following lines are used to tell the LINKER/LOADER what this module 
looks like in PPSCAL terms. 



Note that it is possible to create assembl 
These routines are called through an indi 
facil it y which does NOT permit functions. 

This module is called 'EXTDC ( upper or 1 
independent of the file name ( by use of t 

fill the externally used procedures are cal 
this module. If you are using assembly to 
'EXTDCja«SK3@W name. If you are using Pa 
name . 



MNfmE EXTDC 

SRC HODULE EXTDC; 

SRC IMPORT iodeclarations; 

SRC EXPORT 

PROCEDURE alvinit 
PROCEDURE alvinisr 
PROCEDURE enter data 



***** 



y modules that are functions, 
ect pointer using the CALL 



ower case - doesn't matter j 
he nNAME pseudo-op ) . 



led 'EXTDC_ 

access them use the 
seal use the '<3 



************ 



SRC 
SBC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 



PROCEDURE output^data 



PROCEDURE output end 
PROCEDURE direct_status 



PROCEDURE direct_control 
PROCEDURE control bfd 



PROCEDURE starttf r_out 
PROCEDURE start tfr in 



SRC END; < of extdc > 



[ temp 
( temp 
( temp 


DNYPTR 
PISRIB 
ANYPTR 


( temp 


PNYP'R 


( temp 
( temp 


ANYPTR 
ANYPTR 


( temp 


flNVPTR 


( temp 


RNYPTR 


( temp 
( Temp 


flNVPTR 
ANYPTR 



PNYPTR 
INTEGER 
ANYPTR 
INTEGER 

io_word 
io_word 
io_word 
io_word 
io_word 
io word 
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*** File name: DC 



164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
173 
173 
180 
181 
182 
133 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
20S 
2 05 
207 
208 
209 
210 
211 
212 



********** 



SYMBOLS FOR EXPORT BS PROCEOURE NAMES 

DEF EXTDC_EXTDC 

DEF EXTDC HLVINIT 
DEF EXTQC_ALVINISR 
DEF EXTDC_ENTER DATA 
DEF EXTDC_OUTPUTjjATA 
DEF EXTDC_OUTPUT END 
DEF EXTDC_DIRECT STATUS 
DEF EXTOC_DIRECT CONTROL 
DEF EXTOC_CONTROL BFD 
DEF EXTDC_START TFR IN 
DEF EXTDC START TFR OUT 






SYMBOLS FOR IMPORT 



**** 


************ 


REFP1 


ST8SY 


REFA 


STCLR 


PETS 


ITXFR 


REFA 


ABORT 10 


REFA 


LOGINT 


REFA 


GETDnfl 


REFfl 


DROPDnn 


REFfl 


TESTDnp, 


REFfl 


DMA STBSY 


REFfl 


CHECK TIMER 


REFfl 


M68KTVPE 



EXCEPT FOR CHECK_TlMER,M68KTYPE tttt JS 8/11/83 
if they are ever used - use a JSR to call them 

*************************************************** 



change references to allow long jumps 

modules get moved 
LnODE STBSY 
LnODE STCLR 
LM0DE ITXFR 
LMODE ABORT 10 
LMOOE LOGINT 
LnODE GETDhP 
LMODE DROPDMA 
LMODE TESTDMA 
LMODE DMA STBSY 
LMODE CHECK TIMER 



'hen the I/O 



tttt JS 8/11/83 



475 TM 9/17/82 
475 TM 9/17/82 



tttt JS 8/11/83 
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2 1 5 
2 i 6 

217 
218 
219 
220 
221 
222 
22 2 
221 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
236 
239 
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* PBSCBL DRIVER ENTRY POINTS FOR GPIO CARDS 



*** File name: DC 
**************** 



*********** 



MODULE initialization 



0000 0000 EXT0C_EXT0C 
0000OO0O 4E75 



00000002 
00000006 
OOOOOOOf) 
OOOOOOOE 
00000012 
00000016 
0000001R 
0000001E 
00000022 
00000026 



6000 0112 
6000 0372 
6000 0910 
6000 087C 
6000 09FE 
6000 01C8 
6000 0144 
6000 0S78 
6000 0680 
6000 06H2 



EXTOC 

EX'OC" 
EXTOC" 
EXTOC" 
EXTDC" 
EXTDC" 
EXTDC" 
EXTDC 
EXTDC" 
EXTDC" 



ENTRY POINTS 

ALVINIT 

PLVINISR 

ENTER DATS 

0UTPUT_DflTfl 

OUTPUT_END 

DIRECT_STHTUS 

DIRECT CONTROL 

CONTROl BFD 

STHRT^TFR^IN 

STHRT_TFR_CUT 



EOU 



BRH HLVINIT 

BRH TOP ISR 

BRH ENTET? DfiTFl 

BRfi OUTPUTjjflTH 

BRH OUTPUT_END 

BRH DIRECT STATUS 

BRH DIRECT CONTROL 

BRfi CONTROU BFD 

BRH STHRT_TR"flNSFER_IN 

BRH STHRT_TRHNSFER OUT 



242 
24 3 
244 
245 
246 
24 7 
24 8 
24 9 
250 
251 
262 
233 
254 
255 
256 
257 
23S 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
27 5 
276 
277 
278 
279 
280 
281 
232 
283 
284 
285 
286 
287 
233 
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*********************************************** 
* 

* The following escapes are possible: 
* 

* EOD_SEEN - on ENTERJIHTH only, 

* signifies termination with control 

* block when too few bytes Uave been 

* read. 
* 

* TMO_ERR - on ENTER_DHTfl if Rx queue 

* was empty for too long 

* - on OUTPUT DRTfl if Tx queue 

* goto blocked up Tor too long 

* - on CONTROL_BFD if Tx control 

* queue got blocked up for too lonq 

* - on OUTPUT END if Tx control 

* queue got blocked" up for too long 
* 

* 

* CRDJjUN - on every routine if card 

* was totally locked up for more than 

* one second. 
* 

* There are no checks for nested I/O. 
* 
*********************************************** 



*** File name: DC *** 



* module: DC_C0HM 



********** 



procedure DIRECT CONTROL ( 

var S*CT: select code table; 
REG: 1..127; 

VPL: 0..255 ); 

The ranges of REG & VRL are not checked 
for validity. 



*************** 
nosyms 



***************** 
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2 90 
292 

;n 

234 
295 
296 
237 

2 98 

2G2 
30) 
302 
303 
304 

3 OS 
306 
30? 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 



:35 DC..DOC: DOCUMENTATION INFO 

module: DC_C0r1rt 
************************************ 



File name : DC 



*********** 



procedure DIRECT STATUS ( 

var SCT: select code table; 
REG: 0..127; 

var vflL : word ) ; 

These registers are intercepted: 
0: Gives value from RESET_ID 
1: Returns true if hardware interrupts 
2: Returns 
5: Returns 2 bits saying state of Rx 

buffer 
9: Returns last ENTER TERM 
10: Returns last ENTER MODE 
11: Returns ft bytes available in Tx 
queue, or if there's not 3 
control block positions available 

The range of REG is not checked for 
va lid it y. 



module: DC TRANS 



************** 



procedure OUTPUT DATS ( * 

var S"CT: select_code_table; * 

PTR: " data_bytes; * 

COUNT: longword ); * 

This operation may hang waiting for space. * 

********************************************** 
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336 
237 
338 
339 
340 
341 
342 
343 
344 
3iS 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
365 



module: DC_INTER 



******* 



ocedure S TART_TRANSFER_IN ( 

var SCT: select_code_table ); 

This starts the card doing a transfer. 
T'-.e calling code must have already 
linked the transfer block in to the 
s>.' lect_code„table structure. 

it****!*********************************** 



module: ...CINTER 



procedure STBRT_TRANSFER_OUT ( 

var SCT: select_code_table ); 

This starts the card doing a transfer. 
The calling code must have already 
linked the transfer block in to the 
selectcode table structure. 
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368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
37 9 
379 
380 
381 
3S2 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 



procedure ENTERJDBTP, ( * 

var 5CT: select_code_table; * 

PTP : ~ data_bytes; * 

var COUNT : longword ) ; * 

COUNT initially passes the number of bytes * 

which the upper level wants to read. THE * 

ROUTINE DOES NOT NECESSARILY READ THIS MANY! » 

Upon exit COUNT will be reflect the number * 

of data bytes entered, whether or not there * 

is an escape . * 

escape(EOD): Terminated by reaching a control* 

block when not enough bytes have been * 

entered. TERI1&MGDE may be read with * 

STATUS 9 and 10. * 



module: DC_TRHNS 

procedure OUTPUT END ( * 

var SXT: select_code_table ); * 

Equivalent to the BASIC OUTPUT Sc;END. * 

* 

This operation may hang waiting for space. * 

* 

********************x******** ******************* 



procedure CONTROL BFD ( 

var SCT: select code table; 



REG: 
VPL: 



0. .127; 
0. .255) ; 
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408 

409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
4 1 3 
420 
421 
422 
423 
424 
425 
426 
427 
428 
4va 

430 
431 
432 
4 33 
434 
4'>5 
436 
437 
433 
439 
440 
441 
44 2 
44 3 
444 
445 



File name: DC *»* 



Control register is intercepted and 

if M0DE=0 no action is performed, otherwise 

the card is reset IMMEDIATELY . 

This operation may hang waiting for space. 

The ranges of REG & VfiL are not checked 
for validity. 



****************************#***************** 

Unresolved problems: 

How is the hardware ISR linked in? 

How are registers saved/restored on int? 

How does the ISR find the select code & 
select_code_ record? 

Should we do busybits? 

How are overlapped transfers implemented? 
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447 

448 
449 
450 
451 

451: 

453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
4 6-6 
467 
468 
4 69 
4 70 
471 
472 
473 
474 
475 
476 
477 
478 
479 
4 80 
481 
482 
483 
484 
485 
4 86 
487 
488 
489 
490 
491 



:35 DC._D0C: DOCUMENTATION INFO 
******************** ************* 



This code is required to check The 
of a 9862S/9 card: 



■ a T id i t y 



DSDP: 
ATTR: 



0. .65535; 
. .255; 



if binand ( readio(SC. 1 ) ,60)=S2 then begin 
DSDP : = readia(SC, 16395 * 256 

+ readio(SC, 16393); 
if (DSCP<32768) then begin 

BTTR : = readio(SC.DS0P*2+l) ; 
if binand (ATTR,127)=1 then 

(*»> CLAIM CARD! <«*) ; 
end ; 
end; 



Remember that the 
can bus error! 



eadio operations above 



One of the arguments to all routines is a 
structure I call SCT:select code_table. 
This is a structure allocated by the hiqher 
level Modcal code, the last 34 bytes of" 
which I INITIALIZE AFTER T10DCAL HAS 
INITIALIZED THE FRONT PART. 

THE C ADR FIELD MUST BE INITIALIZED BEFORE 
CALLING THIS ROUTINE: 

procedure ALVINIT ( 

var SCT: select /-ode_table ) 

This routine also resets the card. This 
routine should be used at INITIALIZE time 
but not at RESET (that's CONTROL 0;1). 
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File name: DC 



4 34 
4 36 



493 

4 ■ 9 
500 
5 ' 1 
= 02 

5 "i i 
SI. I 



5 J / 
508 
SO 2 
510 
511 
5!2 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
523 
5 30 
531 
532 
533 
534 
535 
536 

53 7 
53S 
539 
540 
541 
542 
S«3 
544 
545 
546 
547 
6-18 

54 9 



set_serial, clear serial 

CONTROL_BT"0(REG-:=8) 

serial_line - OIRECT_STATUS (REG<=8 ) 

set_baud_rate 

ID :■ DIRECT STATUS (REG<=3) ; 
DIRECT CONTROL (REG<=20, VAL<=speed) ; 
if ID-T then 

DIRECT .CONTROL (REG<=21 , VAL<= speed ) 

('speed' must go through a mappiigl) 

set_char_.length - C0NTROL_BFD (REG<=34) 

set_5top_bits - C0NTR0L_BFD(REG<=35) 

set_parity - C0NTR0L_BFD (REG<=36) 

break - 0IRECT_C0NTR0L (REG<=6 ) 

abort - DIRECT CONTROL (REG<=12S,VAL<=0) 
this also aborts transfersl 

clear - 0IRECT_C0N T R0L (REG<=101 , VHL<=0 ) 

ioreset - CONTR0L_BFD(REG<=0, VAL<=1 ) 

readchar - ENTER DATA (C0UNT<=1 ) 

(ENTER_DA~TA will terminate on 
a control bloc kill) 

writechar - 0UTPUT_0ATA (C0UNT<= 1 ) 

set__timeout - write to value in 

select_code_table (units=lms) 

LEVEL 2 functions - 
& writechar 

handshake transfer - ENTER DATA or 

OUTPUT_DATA (ENTER_DATA will 
terminate on a conTrol block] 



supersets of readchar 



outbound transfer end 
OUTPUT END 



inbound transfer_end 



■ OUTPUT_DATA then 
ENTER DATA 



overlapped transfers - set up the transfer 
control block and then call 
START_TRANSFER_IN or 
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* STflPT_TRAN5FER_0UT. 

*********************************** 

list 



*** File name: DC *** 



55C 
551 
552 
553 
554 
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557 include COMDCL 



**» File name: DC «»* 
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[3.0] 12 



560 
561 
562 
563 
564 
S65 
666 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
536 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 



> /S4 21:32:35 I OL IE C0I1DCL - COMMON EQUATES AND DEFINITIONS 



File name: DC 
************ 



modified: 02/22 '82 J PC added parm to user EOT 8 ISR proc's 

03/01/83 JS added t imer_present and sysflag2 equ's 



HPL CONVENTIONS 

Much of this code is taken intact from the 9826 HPL 
language system EIO ROM ( extended I/O ROM ). 

The Pascal that will be calling this code uses 
the stack for parameter passage. The HPL code 
uses the Ax and Dx registers for all parameters. 
The Pascal driver entry points on the previous pages 
take care of getting trie parameters into the correct 
registers . 

GENERAL HPL ENTR//EXIT CONDITIONS: 

HI . L = CflRO fiDDRESS 

A2.L = DRIVER TEMP ADDRESS 

UNLESS OTHERWISE INDICATED, THESE REGISTERS ARE UNALTERED. 

NEW ENTRY/EXIT CONDITIONS FOR PASCAL USE : 

A3.L = BUFFER CONTROL BLOCK fiDDRESS 

In addition to the A1/A2 convention, Pascal will use 
A3 for a pointer to the buffer control block. 
The HPL system kept much of the transfer 
information in the s.c. temps. 

TIME0UT1A2) = contains timeout information 

Timeout was a global temp in HPL and a timeout 

generated an e - - o r , 

In PASCAL each card has a timeout value stored in 

its temporary area. A timeout error 

generates an ESCAPE ( which can be trapped ). 
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606 
607 
608 
609 
610 
811 
612 
613 
614 
615 
616 
617 



6IS 
620 
621 
622 
623 
524 
625 
626 
fi?7 
628 
629 
630 
631 
632 
633 
634 



21:32:35 IOLIB COMDCL - COMMON EQUATES AND DEFINITIONS 

* 

* DRIVER TEMPS TEMPLATE 
* 

* OFFSET FROM P2 

* HPL DECLARATIONS ( MODIFIED ) 



File name: DC ** 



0000 0000 ISR ENTRY 
00»0 0014 USER" ISR 
0C-J0 00 14 B_ISI?_PP 
1 1 0018 H_ISR_SL 
001)0 00 10 H_ISR_PM 
OOOO 0020 ADR 
0000 0024 B0FIJDFF 
OOOO 0028 BUFO OFF 
OOt'O 002C EIRB OFF 
0000 002D 10 SC 
0000 002E TIMEOUT 



OOOO 0032 MAJJ 

0000 0033 MA 

0000 0034 AVAIL OFF 



EQU 





.19 


PASCfi 


t ii 


20 




use r 


E lu 


20 


.23 




E J'l 


24 


. 27 




EQU 


28 


31 




EQU 


32 


. 35 


card 


EQU 


36 


39 


buffe 


EQU 


40 


.43 


buf fe 


EQU 


44 




eir b 


EQU 


4 '5 




selec 


EQU 


46 


.49 


t imeo 


En, 


50 


.51 


• 
word 


EQl 


51 




byte 


EQu 


52 


nf 


st and 




52 


.83 


norma 




52 


.179 


98628 



L ISR LINK & UNLINK area 

ISR: do NOT change the prjc/stat link/parm ordering! 

procedure ptr 

static link. 

paramete r 

address 

r pointer offset 

r pointer offset 

yte 

t code ( i.e. 7, 22, 

Lit value 

: no timeout 

: value of timeout 
access to my address 
access to my address 
ard space taken frcm temps 

1 cards ( 32 bytes ) 
card [ 128 bytes J 



; 
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63 6 
637 
33 8 
639 
640 

64 1 
642 
643 
644 
643 
64 6 
64? 
648 
649 
6S0 
651 
652 
653 
654 
355 
656 
657 
653 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
67 5 
676 
677 
678 
679 
680 
681 
■332 
683 
684 



File name: DC 
************ 



TRANSFER OFFSETS IN BJFFER CONTROL BLOCK 
OFFSET FROM A3 
PASCAL DECLARATION 






0000 0000 TTMP_OFF EQU 

0000 0005 T SC OFF EQU 5 

0000 0007 TffCTJjFF EQU 7 

0000 0009 TUSR OFF EQU 9 



pointer to driver temp offset 
transfer select code 
actual transfer mode 
transfer mode 

00 - not used 

01 serial DMA 

02 serial FHS 

03 serial FASTEST ( DMfi or FHS 

04 - not used 



0000 OOOfi T_BUJ_OFF 

0000 OOOB TEND_0FF 

0000 OOOD TCIR_OFF 

* 
0000 OOOE TCHR_OFF 

0000 0010 TCNTOFF 
0000 0014 TBUF_OFF 
0000 0018 TESZ_OFF 
0000 001C TEMP_OFF 
0000 0020 TFILJFF 
0000 0024 T PR OFF 



0000 0028 T_SL_OFF 
OOCO 002C T_FM OFF 
0000 0030 T_Dt1PTPRI EQU 48 



searched for 



FQU 


14 


. . 15 


FQU 


16 


. .19 


Fill. 


'/() 


. .23 


Kli 


24 


. .77 


i l,U 


/K 


.31 


1 1.31 


12 


. .33 


EQU 


its 


. . 33 


FQU 


40 


.43 


LOU 


44 


. .4'; 



0000 0001 TT_INT 

0000 0002 TT DMA 

0000 0003 TT_BURST 

0000 0004 TT FHS 



TRANSFER EQUATES 

EQU 1 
EQU 2 
EQU 3 
EQU 4 



05 overlp INTR 

06 overlp DMA 

07 overlp FHS ( BURST ) 

08 overlp FASTEST ( DMA or BURST ) 

09 overlp OVERLAP ( DMA or INTR ) 
ransfer byte/word indicator 

= byte / 1 = word 
ransfer EOI/END indicator 

= no eoi / 1 = eoi sent 
ransfer direction 

- input / 1 = output 
ransfer terminate character 

-1 = no termination character 
ransfer count 
ransfer buffer pointer 
ransfer buffer maximum size 
ransfer empty pointer pointer 
ransfer fill pointer 
ransfer pointer to eot procedure 
IL no procedure 
ransfer eot proc static link 
ransfer eot proc parameter 
ma priority request 



inter rupt 

DMA 

burst 

fast handshake 
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330 
691 
592 
393 
694 
694 
635 
696 
637 
63S 
- - 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
723 
723 
724 
725 
725 
725 
726 
727 
728 
728 
728 
729 
730 
731 
732 
733 
734 
735 
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* EXTERNAL REFERANCES for escape 
* 

REFA iodeclarat ions 
REFA sysglobals 



*** File name: DC *** 






*************** 
reference the 



*************** 
lib var . area 







* E 


scape 


code 






********** 


0000 


oooi 


NO CARD 


EQU 


1 


3 00.) 


0002 


NOT HPIB 


EQU 


2 


0000 


0003 


NO HCTL 


EQU 


3 


303 


0004 


NO DVC 


EQU 


4 


oooo 


0005 


NO SPACE 


EQU 


S 


0030 


0006 


NO DATA 


tuu 


6 


0000 


0007 


TFR" ERR 


ECU 


7 


oooo 


0006 


sc Susy 


EQU 


8 


oooo 


0008 


BUF BUSY 


LOU 


9 


oooo 


00OA 


TCNTERR 


EGU 


10 


oooo 


500B 


BADTflO 


■ ' 


11 


oooo 


3003 


NO DRV 


EQU 


12 


oooo 


OOOD 


NO DMA 


ECU 


13 


oooo 


OOOE 


NO WORD 


. ' 


14 


oooo 


OOOF 


NOT TALK 


EQU 


15 


oooo 


0010 


NOT LSTN 


E QIJ 


16 


0003 


0011 


TMO ERR 


fQU 


17 


oooo 


0012 


NO 5CTL 


EQU 


18 


0003 


0013 


BAC RDS 


CO. j 


19 


000 3 


3014 


BAD SCT 


EQU 


23 


oooo 


3015 


CRD DUN 


EQU 


21 


oooo 


0016 


EOD SEEN 


EQU 


22 


oooo 


0017 


10 RISC 


EQU 


23 



no interface 

not an hpib interface 

no active controller 

5C ( not device ) specified 

not enough space in the buffer 

not enough data left in the buffer 

t f r error 

sc is currently busy 

the buffer is Dusy 

bad count 

bad timeout value 

no driv' 

no dma 

no word 

not add 

not add 

timeout 

not sys 

b^d 



bad se 
int e rfa 

end of 
misc. ■ 



installed 

t ransfe rs allowed 
ressed as talker 
ressed as listener 

tem cont roller 

d status / write control 

/clear/test 

ce is dead 

data has happened 

rror 



FFFF FFE6 IOE ERROR EQU 



FFFF FFBE I0E_RSLT EQU 
FFFF FFBPI IOE SC EQU 



FFFF FFFE ESC CODE EQU 
FFFF FFF6 RCVR~ BLK EQU 



io sub system error escape code 



IODECLPRPriCMS 66 
ICDECLARATIONS-70 



SYSGLOBPLS-2 
SYSGL0BAL3-10 



0000 0001 TIMER PRESENT EQU 
FFFF FEDR SYSFL&&2 EQU 



1 JS 
SFFFFFEDfi 



8/1/83 SYSFLAG2 BIT -- 
JS 8/1/83 



0=>TIr1ER PRESENT 
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~38 
739 
740 
741 
742 
743 
744 
745 
746 
747 
74 8 
749 
750 
751 
752 
753 
754 
75S 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 



■ /St 21:32:35 DCJ3ECLS: COMMON DATA COMM DECLARATIONS 



************ J******************** 

Data Comm card RAM locations 
(byte offsets from base address) 



** File name: DC 



OCOO OCOO RESET ID equ 

0000 0C02 INT OHfi equ 

OCOO 0C04 SEMAPHORE equ 

OCOO 4000 INT COND equ 

OCOO 4002 COMMAND equ 

OCOO 4004 DATA REG equ 

OCOO 4006 PRIMHRY ADDR equ 

OCOO 4008 DSDP "' equ 

OCOO 400C ERROR CODE equ 



0000 OOOO ATTRIBUTES equ 
OCOO 0002 TR QUEUE BDOR equ 
OCOO 0006 PRTnj)_AD~DR equ 



0000 0000 TXENO6L0CKSPRCE equ 

0000 0001 RXDATABUFF_NUMB equ 

0000 0004 TXBUFF equ 

0000 0024 RXBUFF equ 

0000 0000 CTRL_RREA equ 

0000 0010 DATA_AREA equ 



0000 OOOO ADDR equ 

0000 O0O4 SIZE equ 

OOOO 0008 FILL equ 

OOOO OOOC EMPTY equ 

******************** 

OOOO OOOO POINTER equ 

OOOO 0004 TERMFIELD equ 

OOOO 0006 MODEFIELD equ 

00)0 0008 CTRLBLKSIZE equ 



SOOOOOO 
$000002 
$000004 
$004000 
$004002 
$004004 
$004006 
$004008 
$00400C 

*** Data Structures Descriptor ***************** 

$000000 
$000002 
$000006 



$000000 
$000001 
$000004 
$000024 

$000000 
$000010 

******* Buffer record ****************************** 



$000000 
$000004 
$000008 
SOOOOOC 



Cont rol block 



$000000 
$000004 
$000006 
$000008 



select_code_table 



OOOO 0034 ovrlaper equ AVAIL_OFF*00 ..1 : word 

OOOO 0036 usrOmask equ BVflll OFF+02 ■ byte 

OOOO 0037 which_RXbuf equ AVAIL_0FF*03 ; byte 

OOOO 0038 last_enter_term equ AVAIL_0FF*O4 ; byte 

last_enter_mode equ AVAIL_0FF+05 ; byte 

equ AVAIL_0FF+06 : 8 bits 
07 
* The following 26 bytes are saved at 
OOOO 003C term_and_mode equ AVAILJDFF*08 



OOOO 0039 
OCOO 003A intblts 
* unused 



interrupt 
09 ; Encompasses the two below 
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File name: DC ** 



735 
796 
797 
798 
799 
800 
801 
802 
8 03 
901 
805 
3 06 
307 
30 = 
3 OS 
810 
811 
812 
813 
814 
815 
816 
817 
818 
319 
S20 
821 
"22 
823 
824 
825 



OOOO 003C term 
OOOO 0030 mode 
OOOO 003E data_address 
OOOO 0042 da ta_n umber 
OOOO 0046 outer_tx_count 
OOOO 004A timeout counter 
OOOO 004E inner_counter 
OOOO 0052 inner_tx_count 

* This :ls where 
OOOO 0056 int savespace 
OOOO 0070 SR Tmaje 
OOOO 0072 RCR_hook 
OOOO 0070 err_hook 
OOCO 0082 trc_hoot 
OOCC 008A bt6_hook 
OOCO 0092 bt7_hook 



equ AVAIL OFF+08 




byte 


equ AVAIL OFF+09 




byte 


equ AVAIL OFF+10 


. 13 


pointer 


equ AVAIL 0FF«14 


. 17 


integer 


equ AVAIL 0FF*18 


. 21 


integer 


equ AVAIL OFF+22 


. 25 


integer 


equ AVAIL 0FF*26 


. 29 


integer 


equ AVAIL 0FF*30 


. 33 


in teger 


they are saved: 






equ AVAIL 0FF*34 


. 59 




equ AVAIL 0FF*60 


. 61 


word 


equ AVAIL 0FF*62 


. 69 


procedure 


equ AVAIL 0FF*70 


. 77 


procedure 


equ AVAIL 0FF*78 


. 85 


procedure 


equ AVAIL 0FF+86 


. 93 


procedure 


equ AVAIL 0FF*94 


. 101 


procedure 



OOOO 0Q9A sctablebytes 

OOCO OOOO error_int 
OOOO O0O1 rx_int 
OOOO 0002 tx_int 
OOCO 0003 ON INTR int 
OOOO 0004 RC reset' int 
OOCO 0005 trace_int 

************* 



equ flVRU_OFF+102 



size of the entire table for allocation 



equ 

equ 1 

equ 2 

equ 3 

equ 4 

equ 5 



Bits f o r interrupt 
registe r 
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826 
829 

830 * **** * * ***** 

831 ****** 

832 * ***** 

833 * **** * * ***** 

834 ****** 

836 * *»** *** * 

837 

838 

83S 

840 

841 ******************************* 

842 * 

843 * 

844 * 

845 * 



File name: DC 



04 7 
84 8 
849 
850 
861 
852 
853 
354 
8SS 
836 
857 
858 
859 
860 
861 
562 
863 
864 
855 
866 
867 
868 
869 
970 
871 
872 
873 

874 
875 

876 
877 
878 
879 

830 

881 
382 



yx*****)*****;**** 



routine gain_access: gets access to SEMAPHORE on card for buffer 
=========== utilities. If access is not gained in a 

er to rmed . 



preset time, 



escape is per 



At entry: 



a3.1 = card base address (SOOxxOOOl ) 

Upon normal exit : 

If escape performed then 

Timeout occurred 
Otherwise 

Access was gained 

SR has been set to disable all but level 7 interrupt. The 
SR has been pushed on the stack and RELEASE ACCESS MUST BE 
CALLED AT THE SAME LEVEL ON THE STACK!!!!! 

This bashes d2 . 1 . 



0000 
0000002A 241F 
0000002C 4E4B 

0O0OOO2E 2F02 
00000030 007C 



00000034 0838 0001 



********** 



on 
move 
and . 



scs 
sc s 
scs 



(sp)+,d2 
#11 

d2 -jsp) 
#$2700, sr 
4(sp),d2 
#$F0FF,d2 
#$0600, d2 
d2,sr 



SR 



; Get ret urn address 

get into supervisor, 

; Push on old SR 

; end push on return address 

lock out all interrupts 
Now get old SR into d2 
Strip off old int level 
Set interrupt level 6 
and put into SR 



0000003A 
0O0O0O3C 

00000042 
000000*6 
00000048 
0000004A 



FEDA 
6718 
24 3 C 
67 3 C 
4A2B 
6A5C 
53 S 2 
66 F6 



#timer_present , sysf lag2 check if t imer present 



0002 
0004 gal 



beq . s gat imed 

move.l #157500,d2 [CPLIBRATED 1 SEC] 

tst .b 
bpl . s 
subq. 1 
bne . s 



0000004C 584 F 



SEMAPHORE (a3) 
gadone 
#l.d2 
galoop 

Timed ou t : escape , 
#4,sp 



if so then go use it 
"" I nit ialize counter 



Fetch semaphore bit in bit 7 (sign) 
I f bit 7 t rue then done! 
Loop for preset time 



but first . . , 

pop return addres 
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383 


000OOO4E 


46DF 






move 


(sp)+,sr 


334 








* scs 


move 


4(sp),sr 


336 


00000050 


6000 


0306 




bra 


lunched 


836 








* 






887 


000000 54 


4PI2B 


0004 


gat imed 


tst .b 


semaphore (a3 


888 


00000038 


6H4H 






bpl . s 


gadone 
*l,-(sp) 
#1000, -(sp) 


889 


0000003R 


1F3C 


0001 




move .b 


890 


0000005E 


2F3C 


0000 




move . 1 






0363 










891 


00000034 


243C 
00 FE 


0000 


gatlpl 


move . I 


*254,d2 


892 


0000003B 


4F2B 


0004 


gatlp2 


tst .b 


semapho re ( a3 


393 


0000006E 


6F12 






bpl.s 


gatexi t 
#1 ,d2 


393 


00000070 


5332 






subq . 1 


895 


00000072 


66 F 6 






bne 


g a 1 1 p2 


896 


000000 74 


4 85 7 






pea 


(sp) 


897 


00000076 


4EE8 

occo 


0000 




Isr 


check__timer 


338 


0000007C 


6 RE 6 






bpl 


gatlpl 
#6,sp 


393 


0000007E 


6C4F 






addq 


300 


00000030 


60CR. 






bra 


gater r 
»6,sp 


901 


00000032 


5C4F 




gatexit 


addq 


902 


00000034 


4E75 






rts 





restore user mode 
; Get old SR back 
; Now escape 

first do quick test 
before timing 
set up timing record 
US followed by boolean 

quick loop -- 1 ms 16 rlHz 

check semaphore 
if ok then get out 
else hang in tight loop 

now check the t imer 
parameter is ptr to record 

if not timeout do tight loop 
else fix t he stack 
and do timeout escape 
normal exit is here 



tttt 


JS 


tttt 


.IS 


tttt 


JS 


tttt 


JS 


tttt 


JS 


tttt 


JS 


tttt 


JS 


tttt 


JS 


tttt 


.is 


tttt 


JS 


tttt 


JS 


tttt 


JS 


tttt 


.IS 


tttt 


.IS 


tttt 


JS 


tttt 


JS 
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904 ******************************************************* x****** ******* *********** 

905 * * 

906 * routine release_access : releases access To SEMAPHORE on card which * 

907 * ============== was previously gained with gain_access. * 

908 * Read the notes with the above routine to * 

909 * see description of stack funnies. * 

910 * THIS MUST BE COLLED UITH ft BSR INSTRUCTION! * 

911 « * 

912 « fit entry: * 

913 * .3.1 = card base address ($00xx0001) > 

914 * » 

915 * Upon normal exit: * 

916 * no registers are bashed. * 

917 * « 

919 

920 0000 0086 rele.ise_3ccess equ * 

921 O0O00086 1740 0004 move.b dO .SEMAPHORE ( a3 ) ; Store don't-care into semaphore. 
922 

923 00000080 JF2F 0004 move.w 4(sp),-(sp) switch SR and return address scs 

924 0000008E 4fl38 0000 tst.b m68ktype is this a 68000? tttt JS 

925 00000092 660P bne.s release 10orl2 br if not tttt JS 

926 00000094 2F6F 0002 move . 1 2(sp),4["sp) scs 

0004 

927 0000009H 3E9F move.w (sp)*,[sp) scs 

928 0000009C 4E73 rte restore user mode, return scs 

929 * 

930 0000 009E release_10orl2 equ * 

931 00O009E 426F 0006 clr.w 6(sp) fake vector offset word where SR was tttt JS 

932 000000H2 4E73 rte and do an rte back to user mode tttt JS 
933 

934 0OO00OA4 4E75 gadone rts ; Now return to the return address. 
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937 * 

938 * routine find_TRBUF: Sets up pointer in a2 to point to the record 

939 * =========== describing the card's TRBUFF structure. 

940 * 

941 * routine find TXBUF: Sets up pointer in a2 to point to the record 

942 * =========== describing the card's TXBUFF structure. 

943 * 

944 * routine find_RXBUF: Sets up pointer in a2 to point to the record 

945 * =========== describing the card's RXBUFF structure. 

946 * 

947 * fit entry: 

948 * a3,l = card base address (SOOxxOOOl) 

949 * 

950 * Upon exit : 

951 « a2.1 = buffer record base address (CTRLBUFF PlDDR, 

952 * CTRLBUFF^SIZE, CTRLBUFF^FI LL , CTRLBUFF_EnPTY , 

953 » DhThBUFF HDDR, etc). (shifted, +l*selectcode) 

954 * This bashes al , d"4 and d5 . 

955 * 

956 ******************************************************************************* 
957 

958 0O00 0OH6 find_TRBUF equ * 

959 O0O000H6 7(100 moveq «0,d5 

960 OOO00OR8 247C 0000 movea . 1 #TR QUEUE PlDDR, a2 

0O02 

961 O0O000HE 6O0C bra.s findTR 
962 

963 0O00 00B0 find_T;iBUF equ * 

964 OOO00OBO 7(104 moveq »TXBUFF,d5 

965 OOO00OB2 6002 bra.s find 
966 

967 0000 00B4 find_K«[UF equ * 

968 000000B4 7(124 moveq »RXBUFF,d5 

969 000000B6 247C 0000 find movea. 1 #PRIM HCDR,a2 

0006 
970 

971 000000BC 41:84 findTR clr.l d4 

972 0000008E 0H0B 4008 movep.w DSDP(a3),d4 

973 OOO000C2 EL5C ror.w #7,d4 

974 000000C4 DS8B add.l a3,d4 

975 0OO000C6 2244 movea. 1 d4 , a 1 ; al points to Data Struct Descriptor 
976 

977 0OOO0OC8 4,84 clr.l d4 

978 0OOO0OCH D3CP adda.l a2,al : add offset to which queue table 

979 OOOOOOCC 0=09 0000 movep.w 0(al),d4 

980 00O00ODO El 5C ror.w »7 , d4 

981 00O00OD2 0: 8B add.l a3,d4 

982 0OO000D4 Dc8S add.l d5,d4 

983 0OO00OD6 2444 movea. 1 d4,a2 ; a2 points to buffer record 

984 OO000OD8 4175 rts 
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96" 
988 
389 
990 
99: 
992 
993 
994 
995 
996 
99' f 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
ICC 8 
1009 

1010 
1011 
1012 
1013 
1014 
1015 



routine find R> DATA: 



At entry: 

a3.1 
a2.1 



84.1 

Upon exit : 

al .1 
d4.1 
dS.l 



Sets up pointers to point to the appropr 
receive data buffer. This is to be used 
the routine find_RXBUF which sets up the 
pointer (in a2) to the receive control b 
descripto' "ecord structure. 



card base address (SOOxxOOOl) 
Buffe- record base address [CTRLBUFF flDDR, 
CTRLBIJFF SIZE, CTRLBUFF _FILL , CTRLBUFF EMPTY, 
DATA6UFF0"_ADDR, etc), "(shifted, +l + seTectcode ) 
pointer to select.j:ode_table structure 



data area base address (shifted, +l+selectcode ) 
address of first byte PAST data area (shifted, ■• 
XXxxx;<8UFF_SIZE (unshifted, not adjusted) 



iate * 
after * 



0000 00DA find_RX_QATR equ 



0O0O0OOH 227C 0000 

0010 

OO0O0OEO 4285 

OOOO0OE2 1A2C 0037 

000000E6 E98S 

000000E8 D3CS 

OOOOOOEA 600E 



movea.l *OATH_HREH , al 



clr.l 
move .b 
asl .1 
adda . 1 



whlch_RXbuf (a4) ,d5 

#4,d5 

d5,al 



bra . s 



; compute offset for UHICH rx dat 
; buffer we are using 



; Now go do the rest of it! 



1046 
1047 

1048 
1049 

1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 



routine find DATfl_AREA: 
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1017 

1018 
1019 
1020 
1021 
1C22 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
10.30 
1031 
1032 
1033 
1034 
103S 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 



File name: DC ** 



Sets up pointers to point to the data buffer. 
=== = = = ;: = - ===— This is to be used in conjunction with the 

routines find XXBUF which will set up the 
pointer (in a2~] to the buffer we are using. 
THIS SHOULD NOT BE USED WITH THE RECEIVE 
BUFFER! USE THE PREVIOUS ROUTINE INSTEAD! 

routine f indCTRL^AREA : Sets up pointers to point to the Ctrl buffer. 
^= = = = = : : = = = = = ~^ This is to be used in conjunction with the 
routines find XXBUF which will set up the 
pointer (in a?) to the buffer we are using. 



At entry: 

' a3. 1 = 
a2.1 = 



card oase address (SOOxxOOOl) 

Data suffer record base address (CTRLBUFF ADDR, 
CTRLBJFF_SIZE, CTRLBUFF_FILL, CTRLBUFF_EMPTY, 
DnTABJFF_ADDR, etc). (shifted, +l<-selectcode) 



Upon exit : 

al.l = data 3rea base address (shifted, -M+selectcode) 

d4.1 « address of first byte PAST data area (shifted, +l+sc) 

d5.1 = XXxxxxBUFF_SIZE (unshifted, not adjusted) 



****************************** 

0000 00EC find_DATH_AREP equ * 
0000OOEC 227C 0000 movea.l #DATH_AREA , 3 I 

0010 
O00OOOF2 6006 bra.s findare 

0000 O0F4 find_CTRL_AREA equ * 
OO0O0OF4 227C 0000 movea.l tCTRLJIREH, al 
0000 






************* 



************* 



OOOOOOFA D3CA 
0O0000FC 4285 
OOOOOOFE 0B09 0004 
00000102 E05D 

00000104 4284 

000001.06 0909 0000 

OO00O1.0A EE5C 

000001.0C D88B 

000001.0E 2244 

0O0001.1O D88S 

00000112 D88S 

00000114 4E7S 



findare adda.l a2,al 

clr.l dS 

movep.w SIZE(al) ,dS 

ror.w #8,d5 

clr.l d4 

movep.w ADDR(al) ,d4 

ror.w »7,d4 

add.l a3,d4 

movea.l d4,al 

add.l d5,d4 

add.l d5,d4 

rts 



al points to data/ctrl part of record 
dS = SIZE in bytes 



al points to front of buffer area 
d4 points past end of buffer area 
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1068 
1069 
1070 * *** *** * * * * *** * * **** 

1072 * * *************** 

1073 * * ****** ***** ***** 

1074 * * ************ 

1075 » ************** 

1076 * *** **»*»**».*» **** 
1077 

10 78 
1079 
1080 
1081 

1083 * ' ************************************** 

1084 * procedure ALVINIT(var SCT: select_code_table) * 

1086 ******************************************************************************** 

1087 

1088 0)00 0116 alvinit equ * 

1089 00000116 205F movea.l (5p)*,a0 

1090 00000118 23SF movea.l (sp)*,a4 

1091 00O0011FI 4850 pea (aO 

1092 0000011C 2'>6C 0020 movea.l c adr(a4),a3 

1093 00000120 528B addq . 1 #T,a3 
1094 

1095 00000122 243C 0000 move.l #sc tablebytes-1 -AVAIL 0FF,d2 

0!)65 

1096 00000128 4234 2034 clrloop clr.b AVAIL 0FF(a4,d2) 

1097 0000012C BICfi FFFA dbf d2,cl7loop 

1098 ' H 

1099 00000130 102B 0002 move.b INT DMA(a3),dO ; This SR is used to 



1100 00000134 0240 0030 



1107 00000146 6100 0286 

1108 



move . b 
andi . w 
addi .w 
asl .iv 
move .w 


INT DMfl(a3).dO 
*tS0530,cO 
#$0230, GO 
#4,d0 
dO,SR_image(a4 ) 


CLR.B 


UHICHJ?XBUF(fl4) 


b 5 r 


chk_e r r 


bsr 


do_reset 


bra 


check ov error 



set the interrupt level 



1101 00000138 01540 0230 addl.w #$0230, dO ; equal to that of the 

1102 0000013C E:)40 asl.w #4.d0 : card 

1103 0000013E 3!!40 0070 . — . 
1104 
1105 00000142 4:'2C 0037 CLR.B UIHI CH_RXBUF( H4 ) ; ( SPRyyy TM 6/15/82 ) 



See if card is giving 
overlapped error 



1109 0000014H 6100 01D0 bsr do_reset ; This can escape if card bad 

1111 0000014E 6000 01EC bra check_ov_error ; Escape if any error 
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***** 



No registers are changed. 



1113 ********* 

1114 * 

1116 * routine eir: Enables interrupts on this card only. 

1117 * 

1118 * Fit entry: 
IJIS * a3.1 = card's base address (SOOxxOOOl) 

1121 * Upon normal exit: 

1122 * 

1123 * 

1124 ********** 
1125 

1126 0030 0152 eir equ * 

1127 00000152 177C 0080 move.b #S80 , INTJJMA (a3) ; Set enable-inter rupt bit true 

1128 00000158 4E' !S rts 
1129 

1130 

1132 * * *""»****»******«***»****«*»»«*»»**«»»«*«**»******»********* 

1133 * routine dir: Disables interrupts on this card only. * 

1135 * = " * 

1136 * At entry: * 
11|? » »3.1 - card's base address (JOOxxOOOl) * 

1139 * Upon normal exit: 

1140 * " 

1141 * 

1142 ************ 
1143 
1144 0000 015A dir equ * 

Wll In^l? 2^1 ° 002 clr ' b INT_Dnfl(a3) ; Clear enable-inter rupt bit 

114b uOUOOloE 4E. 5 rt5 



No registers are changed. 

************ ***************** ********** 
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File name : DC 



1148 








******* 


******** 


************* 


******************** 




1149 








* 






* 




1 ISO 








* pre 


cedure DIRE'"! CONTRO,. 


( * 




lis: 








* 




var SCT: se 


ect code table; * 




1152 








* 




REG: 1, 


127 & 255 S 257; * 




1153 








* 




VHL: 0. 


255 ) ; * 




1154 








* 






* 




1155 








******* 


******** 


************* 


******************** 




1155 


















1157 




0000 


0160 


direct 


cor 1 rol 


equ f 






1158 


00000160 


205F 






movea . ] 


(sp)*,aO 






1159 


00000162 


321F 






move .w 


(sp)*,dl 


; VRL 




1160 


00000164 


341F 






move .w 


(Sp)*,d2 


; REG 




1161 


00000166 


28=F 






movea . > 


(sp)*,. S 4 


; SCT 




1162 


00000168 


4850 






pea 


(aO) 






1163 


000001 6H 


266C 


0020 




movea . '. 


c .sdr (a4 ) ,a3 






1164 


0000016E 


52tEJ 






addd . 1 


#1, a3 






1165 


















1166 


00000170 


6100 


OlCfl 




bsr 


check_ov_e r ro r ; Escape if any error 




1167 


















1168 


000001 74 


1741 


4004 




move .b 


dl .ORTP REG(a3l ; Send VRL 




1169 


00000178 


1742 


4002 




move .b 


d2, command (a. 


) ; then REG 




1170 


00000 17C 


B4 3C 


007D 




emp . b 


#125, d2 






1171 


000001 80 


660? 






bne . s 


not 125 






1172 


00000182 


6 ICO 


047C 




bsr 


o u t v . f r done 


; For Ctrl 125 (abort ) 




1173 


00000186 


610O 


048H 




bsr 


inxf r__oone 


; abort transfers 




1174 




ooco 


018H 


notl25 


equ * 








1175 








* 






(tm) mod - 12/02/81 




1176 


00000 18fl 


B47C 


0100 




CMP.U 


#256, D2 


(tm) CHECK FOR ABORT TFR IN 




1177 


000001 8E 


67 CO 


0482 




BEQ 


INXFR DOME 


(tm) 




1178 


00000192 


B4 7C 


0101 




CMP.U 


#25 7,B2 


(tm) CHECK FOR ABORT TFR OUT 




1179 


00000196 


6700 


0468 




BEQ 


OUTXFR __DCiNE 


(tm) 




1180 


















1181 


000001 9fi 


0838 


0001 




btst 


#timer__present , sysf lag2 check if timer present tttt 


J5 






FEDfi 














1182 


000001 SO 


6718 






beq . s 


ct 1 t ime 


if so then go use it tttt 


JS 


1183 


















1184 


000001 A2 


203C 
265B 

SS2B 


0002 




move . 1 


#181851, dO [1 


ALIBRATED 1 SEC] ; Now start counter fo 


r timeou 


1185 


000001 A8 


4002 


ct loop 


tst ,b 


command (a3) 






1186 


000001 AC 


6708 






beq . s 


ct Idun 


; Done when CCMMAND=0 




1187 


000001 AE 


5 .3 60 






subq.l 


tl JO 






1188 


000001 BO 


56F6 






bne . 5 


c t 1 o o p 


; Otherwise decrement counter 


1189 
1190 
1191 


000001 B2 


60C0 


01P4 




bra 


lunched 


; & escape 




000001 B6 


60CO 


0184 


ctldun 


b ' & 


check _cv__e r n 


r 




1192 


















1193 


000001 Bfi 


1F3C 


0001 


ctltime 


move .b 


#l,-(sp) 


set up timer record tttt JS 


8/11/83 


1194 


OO0001BE 


2F3C 

53E8 


0000 




move . 1 


#1000, -(sp) 


tttt JS 


8/11/83 


1195 


O00001C4 


4fi?B 


4002 


ctltlor 


tst .b 


command [ a3 ] 


see if done tttt JS 


8/11/83 


1196 


000001 C8 


5710 






beq . s 


ctlexit 


if so then return tttt JS 


8/11/83 


1197 


OOOOOlCfl 


4857 






pea 


(sp) 


else push pointer to time rec tttt JS 


8/11/83 


1198 


000001 cc 


4E39 
0000 
SflFO 


0000 




jsr 


chec k_T ime r 


and see if timed out yet tttt JS 


8/11/83 


1199 


00000102 






bpl 


ctitlop 


no -- keep trying tttt JS 


8/11/83 


1200 


00000104 


5C4F 






aadq 


#6 , s p 


yes, give one more try tttt JS 


S/3/84 
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1201 OOC001D6 700H 

1202 00000108 60CE 

1203 0000010FI 5C4F 

1204 O000O10C 6000 015E 



moveq 
bra 
ctlexit addq 



#10, dO 
ct loop 
#6,sp 



using short count 

in normal timing loop 

normal exit -- clean stack 



check_ov _e r ror and go check errors 



*** File name : DC 

tttt JS S/3/84 

tttt JS S/3/84 

tttt JS 8/11/83 

tttt JS 8/11/83 
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i;ot 








1207 








12 38 








12"? 








1210 








1211 








1212 
























1214 








1216 








1216 








1217 








1218 








1219 








1220 








122! 








1222 








1223 








1224 








122S 








1226 








1227 








1228 




oooo 


01E0 


1229 


000001E0 


M5F 




1230 


000001E2 


2 25F 




1231 


000001E4 


3 01 F 




1232 


000001E6 


2:<SF 




1233 


000001E8 


4:i50 




12 34 


OOOOOlEfi 


;o6c 


0020 


1235 


000001EE 


E38B 




1236 








1237 


000001F0 


6 -00 


014B 


1238 








1239 


000001F4 


4.. '41 




1240 


000001F6 


2009 




1241 








1242 


000001F8 


4000 




1243 


OOOOOlFfi 


t '38 




1244 


000001FC 


croo 


0002 


1245 


00000200 


6 -38 




1246 


00000202 


6 '44 




1247 


00000204 


31'OC 


0006 


1243 


00000208 


6 '58 




1249 


0000020R 


Ol'OO 


0009 


12 60 


0000020E 


6 '66 




1251 


00000210 


Oi'OO 


OOOfl 


1252 


00000214 


6 '66 




1253 


00000216 


OCOO 


OOOB 


1254 


0000021P, 


6 '66 




1255 


0000021C 


0O3C 


0080 


12S6 


00000220 


1040 


003C 


1267 








12S8 


00000224 


6 100 


0092 


1259 


00000228 


122C 


003D 


1260 








1261 


0000022C 


2. 5F 




1262 


0000022E 


3281 





cedure DIRECT STATUS ( 

var S*CT: select code table; 
REG: 1..127; 

var VfiL: word ) ; 

se registers are intercepted: 

0: Gives value from RESET ID 

1: Returns true If hardware interrupts 

2: Returns bit 2 = in xfr active; 
bit 3 = out xfr active 

5: Returns 2 b:ts saying state of Rx 
buffer 

9: Returns last ENTER TERM 

10: Returns last ENTER MODE 

11: Returns # bytes available in Tx 
queue, or if there's not 3 
control block positions available 



addr (VOL) 
REG 

SCT 



movea 


1 


[sp)*,aC 


movea 


1 


(sp)'.al ; 


move . \ 




(sp)*,d0 ; 


movea 


1 


(sp)+,a4 ; 


pea 




(aO) 


movea 


1 


c adr (a4 ) , a3 


addq . 




#T,a3 


bsr 




check ov error ; 



dr.* dl 
move .1 al , 



(sp; 



tst .b 
beq . s 
cmpi . b 
bit .5 
beq . s 
cmpi . b 
beq . s 
cmpi . b 
beq , s 
cmpi . b 
beq , s 
cmpi . b 
beq . s 
add.b 
move . b 

bsr 



dO 

stsO 

#2,d0 

stsi 

Sts2 

#5,d0 

Sts5 

#9,dO 

5ts9 

»10,dO 

stslO 

#11, do 

stsll 

#128, dO 

d0,term(a4) 

direct command 
mode (a4~) ,dl 



; Escape if any error 
dl will hold result 



Check for intercepted regs 



movea. 1 (sp)+,al 
move . w dl , ( al ) 



Return value 
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1263 


00000230 


6(00 


OlOfi 




bra 


check_ov_e rror 


1264 














1265 








« 






1266 








* Sp, 


cial intercepted registers 


1267 














1268 














1269 


00000234 


122B 


0000 


StsO 


move. b 


REStT_ID(a3) ,dl 


1270 


00000238 


6CF2 






br a .s 


gots t s 


1271 














1272 


0000023ft 


0'2B 
03 02 


0007 


stsl 


btst 


#7,INT_DMfl(a3) 


1273 


00000240 


5 1 CI 






sne 


dl 


1274 


00000242 


C27C 


CCC1 




and.w 


#$0001 ,dl 


1275 


00000246 


6CE4 






bra.s 


gotsts 


1276 














1277 


00000248 


246C 


0024 


5t52 


movea . 1 


8UFI 0FF(a4) , a2 


1278 


0000024C 


2 'Oft 






move . 1 


a2,d'0" 


1279 


0000024E 


6 704 






beq . s 


sts2a 


1280 


00000250 


03C1 


0002 




bset 


«2,dl 


1281 


00000254 


246C 


0028 


sts2a 


movea . ; 


BUFO DFF(a4) ,a2 


1282 


00000258 


2:'0fl 






move . 1 


a2,d0" 


1283 


0000025ft 


6 ;do 






beq . s 


go t s t s 
#3,dl 


1284 


0000025C 


08C1 


0003 




bset 


1285 


00000260 


BOCH 






bra.s 


go t s t s 


1286 














1287 


00000262 


6100 


FE50 


stsS 


bsr 


find RXBUF 


1288 


00000266 


6130 


FEF2 




bsr 


dir 


1289 


0000026ft 


b 100 


0S80 




bsr 


Rx stuff avail 


1290 


0000026E 


3,:' 30 






move .w 


dO,dl 


1291 


00000270 


6100 


FEEO 




bsr 


ei r 


1292 


00000274 


60B6 






bra.s 


gotsts 


1293 














1294 


00000276 


12 2C 


0038 


sts9 


move . b 


last enter term(a4 ) ,dl 


129S 


0000027ft 


6CB0 






bra.s 


gotsts 


12S6 














1297 


0000027C 


122C 


0039 


stslO 


move . b 


last_enter_mode(a4 ) ,dl 


1298 


00000280 


60flfl 






bra.s 


gotsts 


1299 














1300 


00000282 


6100 


FE2C 


stsll 


bsr 


find TXBUF 


1301 


00000286 


6100 


FED2 




bsr 


dir 


1302 


0000028ft 


6 ICO 


FE68 




bsr 


find CTRL flREB 


1303 


0000028E 


6 1 CO 


0840 




bsr 


TXCTR"LBUFFroom 


1304 


00000292 


4241 






clr.iv 


dl 


1305 


00000294 


CO 33 
OOOC 


OOOO 




subi . 1 


#12, d3 


1306 


0000029H 


6330 






bit .5 


go t s t s 

find DPTfi RREfl 


1307 


0000029C 


6 i 30 


FE4E 




bsr 


1308 


0OO002BO 


e, i 30 


0840 




bsr 


TXOfiTfl8UFFroom 


1309 


000002A4 


3203 






move . w 


d3,dl 


1310 


000002A6 


6 100 


FEftfl 




bsr 


ei r 


1311 


0OO002RB 


6080 






bra 


go t s t s 



1-126 
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1313 
1314 
1315 
1316 
1317 
1518 
I;!* 
1320 
132! 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 

1331 

1332 
1333 
1334 
1335 

1330 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
134 5 
1346 
1347 

1348 

1349 
1350 

1351 
1352 
1353 

1354 

1355 
13 = 6 
1357 
1358 
1359 
1350 

1361 

1362 



Sends the value in usrOmask to the card. 



routine put_IKTrfflSK : 

fit entry: 

a3 . 1 = card base address (JOOxxOOOi) 

a4.1 = address of sc_subt ab let ype structure 

sc_subtaolet ype . usrOmasf has value to send to card. 

This bashes term and mode in the select code subtable. 

This bashes do . 



0000 02AC 
000002AC 197C 0079 

003C 
000002B2 196C 0036 

003D 



put_INTriR.SK equ « 

move.b #121 , term(a4 ) 

move.b usrOmask (a4) , mode (a4 ) 

*** bra direct_commarid 

* routine direct command 



Send the new driver interrupt mask 
down with cont rol #121 



Uses 
This bashes do 



a3 . 1 = Base address of card 

a4 . 1 = Address of SCT: select_code_t able 



000002B8 
OO0O02BE 

000002C4 

O00002CH 

000002CC 

000002D2 
000002D6 
000002D8 
000002DA 
000002DC 

000002EO 

000002E6 



oooc 

1761' 
4304 
176C 
4002 

0838 

FEDfi 
671C 

203C 
C65B 
4A2B 

6708 
5380 

66 re 

6000 

136B 

0030 
4E7S 



02B8 

003D 



C03C 
0001 



0002 
4002 



di rect^command equ * 

move.b mode (a4) ,DRTA_REG (a3] 

move.b term(a4) .COMMAND ( a3) ; Send TERM 

btst #timer_present,sysflag2 is timer available? tttt JS 8/11/83 
beq.s dctime if so go use it tttt JS 8/11/83 

move.l #181851, dO [CALIBRATED 1 SEC] ; Now start counter for timeout 



dcloop tst.b COMMAND(a3) 

beq.s dcdone 

subq.l 11 dO 

bne.s dcloop 

007A bra lunched 

4004 dcdone move.b DHTH_REG ( a3) .mode (a4) 

rts 



Done when C0MMAND=0 



; Otherwise decrement counter 
; & escape 
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1363 


000002E8 


1F3C 


C001 


dcti 


tie 


move ,b 


»l,-(sp) 


1364 


000002EC 


2F3C 
07E8 


0000 






move . 1 


#1000, -(sp) 


1365 


000002F2 


462B 


4002 


dctl 


oop 


tst .b 


commard ( a3 ) 


1366 


000002F6 


6710 








beq . s 


dctexi t 


1367 


000002F8 


4357 








pea 


(sp) 


1368 


000002FA 


4EB9 
0000 


0000 






jsr 


check_timer 


1369 


00000300 


6 FIFO 








bpl 


dct locp 


1370 


00000302 


SC4F 








addq 


#6,sp 
#10, dC 


1371 


00000304 


700B 








moveq 


1372 


00000306 


eocn 








bra 


dcloop 


1373 


00000308 


5C4F 




dcte 


«it 


addq 


#6,sp 


1374 


0000030A 


60D4 








bra 


dcdone 


1375 

















see if done 

if so then return 

check timer 



if not timeout, br 
timeout , clean stk 
and try once mo re 
with snort count 
normal exit, cleanup 
and return 



*** File name: DC *** 



set up timer record tttt JS 8/11/83 
for 1 sec wait tttt JS 8/11/83 



tt JS 8/11/83 

tt JS 8/11/83 

tt JS 8/11/83 

tt JS 8/11/83 

tt JS 8/11/83 

tt JS S/3/84 

tt JS 5/3/84 

tt JS S/3/84 

tt JS 8/11/83 

tt JS 8/11/83 
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1423 
1424 
1425 
1426 
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routine get_INTMASK: 
At ent^y: 



1377 








** 


1378 








* 


1379 








* 


13 80 








* 


1382 








* 


! 38? 








* 


1383 








* 


1384 








* 


1385 








* 


1 3S6 








* 


1337 








+ 


1368 








x 


1389 








* 


1330 








• 


135! 








:« 


1392 








* 


1393 








** 


13S4 










1395 




ocoo 


030C 


ge 


1396 


0000030C 


1V7C 

0i'3C 


0CF9 




1397 


00000312 


6 i P4 






1398 


00000314 


13 6C 
o::36 


0C3D 




1399 


0000031A 


4L75 






1400 










1401 










1402 








*# 


1403 








* 


1404 








* 


1405 








* 


1406 








* 


1407 








« 


1408 








* 


1409 








* 


1410 








>K 


1411 








* 


1412 








■* 


1413 








. 


1414 








** 


1415 










1416 










1417 




ocoo 


03 1C 


do 


1418 


0000031C 


6130 


0?H2 




1419 


00000320 


6100 


02F0 




1420 


00000324 


6100 


FE34 




1421 








* 


1422 


00000328 


17 7C 


0080 





«»* Ftle na 
Reads the value of usrCmask from the card. 



a3.1 ^ card base address (SOOxxOOOl) 

a4 . 1 = address of sc_subtable type structure 

Rt exit : 

scsubt ablet ype . usrOmask has value frorr. the card. 

This bashes term and mode in the select code subtable. 

This bashes dO. 



; Get the current interrupt mask 



move.b #121+128, term(a4) 

bsr direct command 

move.b mode ( a4~) , usrOmask (a4 ) ; from register #121 

rts 



************ 



do_reset: resets the card, waits for it to complete powerup and 
„ = „ = = = then gets INTMASK again. 



Uses: a3.1 

a4.1 



Base address of card 

Address of SCT: select_code_table 



This leaves interrupts ENABLED 
This bashes do. 



******** 



0030 

0000032E 6100 FCFA 
00000332 6100 F0S2 
00000336 6134 
00000338 60)0 I E18 



bsr 
bsr 



bsr 
bra 



outxfr do 
inxf r_d*on 



#J80,RESET_ID(a3) 

gain_access 
release access 
get_INTRfiSK 
eir 



Abort transfers 



Disable card interrupts to prevent 

conflicts 

Send reset ($80) to card 

Uait until SEMAPHORE is freed 
and then give it back 
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14 28 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 



routine check_ov_e r re r 



If the 'ovrlaper' location is nonzero then 
this escapes with that error. 



* Uses: a3.1 = Base address of card (SOOxxOOOl'i 

* a4.1 = Address of SCT: select_code_table 

* This leaves interrupts ENABLED 

* 



0000 C33C check 
0000033C 6100 FE1C 
00000340 2FO0 
00000342 4280 
00000344 302C 0034 
00000348 426C 0034 
0000034C 6100 FE04 
00000350 4A40 
00000352 660A 
00000354 201 F 
00000356 4E75 



error 
bsr 

move . 1 
clr.l 


equ * 
dir 

dO,-(sp) 
dO 


move .w 


ovrlaper (a4 


clr.w 


ovrlaper (a4 


bsr 
tst ,w 


eir 
dO 


bne . s 
move . 1 


escape 
(sp)+,dO 



**** Escapes 



**************** 



00(0 0358 lunched equ 
00000358 7015 rroveq 

000003SA 6QC2 bra.s 

OOCC C35C time_e rr equ * 

0000035C 7011 moveq #tmo_err,dO 



ttcrd_dwn ,d0 
escape 



routine escape : 



a 3 


1 




a4 


1 


= 


aS 


1 


= 


dO 


1 


= 



performs Pascal "escape" function, 
number is to be passed in dO . 

8ase address of card 
Address of SCT: select_code_t able 
Global pointer for escape arguments 
Escape number 



Error ex 



This leaves interrupts ENABLED 



********** 



0000 035E escape equ * : Escape point for errors 

0000035E 2B40 FFBE move.l dO.IOE RSLT{a5) 

00000362 42£5 clr.l dS ; Tim's magic escape stuff 

00000364 1P,:C 002D move.b 10 SC(a4),d5 

00000368 2B4S F : FGfi move.l dS.IOE st(aS) 

0000036C 3B7C F-FEI6 move.w #I0E ERROR, ESC COOE(aS) 

FFPE 
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FPGE 39 [3.0] 12/26/84 21:32:35 0C_.C0I1M: COMnBNC NODULE •«** File name: DC 

1483 00000372 177C 0080 move.b #S60, INT JMfi i s3) ;Re-enable card interrupts if off 

0002 

1484 00000376 4E4B trap #10 
1485 



PSGE 40 [3.0] 12/26/84 21:32:35 0C_INTER: HfiRDUARE INTERRUPT HANDLER »** File name: DC 

1488 
1489 

1491 * * ** * * * ******** * 

1492 * * *** * * ******** * 

1493 * ***** *** **** **** * * **** * 

1494 * ***** ******* * 

1495 * * ** * * ******* * 

1496 * ***** * * * ***** * * * * *** * * 
1497 

1498 
1499 
! = 00 
1501 

1503 * * 

1504 * DHTP, COMH THRO TOP LEVEL INTERRUPT SERVICE ROUTINE * 

1505 * * 

1506 * This is reached thru the softpoll table for the appropriate * 

1507 * interrupt level. * 

1508 * * 

1509 * This handles a hardwa-e interrupt from the data comm card. First it * 

1510 * enquires to find out what interrupt conditions are pending, then it * 

1511 * calls the appropriate routines to handle the conditions. * 

1512 * * 

1513 * fit entry: * 

1514 * a5.1 - pointer to globals area * 

1515 * * 

1516 * During this routine: * 

1517 * a3.1 = card's base ad.-ess ($00xx0001) * 

1518 * a4 . 1 = address of sc subtabletype structure * 

1519 * * 

1521 

1522 0000 037H top_is- equ * 

1523 0000037A 205F movea.l (sp)+,a0 ; Save return addr 

1524 0000037C 285F movea.l (sp)+,a4 ; Get sc_subt abletype 

1525 0000037E 4850 pea a0) : Replace ret addr 
1526 

1527 0000038C 266C 0020 movea.l C HDR(a4),a3 ; Get card base addr 

1528 

1529 00000384 528B addq . 1 #1 , a3 ; Now a3 . 1 = OUR base address of card 

1530 

1531 ********** TRY SECTION: RECOVER IS BT END OF ISR 

1532 

1533 00000386 48E7 0018 movem.l a3/a4,-(sp) 

1534 00000380 2F2D FFF6 move.l RCVR BLK ( aS) , - ( sp) 

1535 0000038E 2F0E move.l a6,-Tsp) 

1536 00000390 487H OOCE pea recove r_secuon 

1537 00000394 2B4F FFF6 move.l sp.RCVR BLK(a5) 
1538 

1539 ********** END OF 'TRY' keyword 

1540 

1541 00000398 396C 003C move.w term_and_motJe ; a4) , int_savespace ( a4] 

0056 

1542 0000039E 4CEC 003F movem.l term and_mode-2 (a4 ) ,dO-d5 

O03E 
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1S43 00000364 48i:C O03F movent . 1 d0-dS,int savespace*2 (a4) 

0058 
1544 
1545 000003AA 19HB 4000 move.b INT COND ( a3 ) , intbit s ( a4 ) ; Ge t all the interrupt condition bits 

OO.ifi 
1546 

1547 * From now on, each handler routine checks for its particular interrupting 

1548 * condition and then jumps to the next. This is done primarily for speed. 
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1551 * * *" .......... . ^ 

1552 * routine remcont_reset_isr : Takes care of communicating a * 

1553 * ======^=========^ card's remote-cont *ol-reset to the * 

1554 * operating system * 

1555 * f 3 / ^ 

1S57 

1558 0000 0360 remcont reset_isr equ * 

1559 000003BO 082C 0004 btst #RC reset int , intbits (a4) ; Test for bit #4 for this condition 

003A 

1560 000003B6 6703 beq.s error isr 

1561 000003B8 43FC O072 lea RCR_hook ( a4 ) , al 

1562 0000038C 6100 00DC bsr try hook 
1563 

1564 
1565 

1567 * * * * 

1568 * routine error_isr: Handles the communication of an error from the * 

1569 * ========= interface card back to BASIC, or the hook. * 

1570 » « 

1571 * fit entry: * 

1572 » a3.1 = card base address (SOOxxOOOl) * 

1573 * a4.1 = address of SCT: select code table « 

1574 » - * 

1575 * Upon normal exit: * 

1576 » » 

1577 * The ' c h k err' routine is used also at powerup time. * 

1578 * » 

1579 ** ****************************************************************** ************ 
1580 

1581 0000 03C0 error_isr equ * 

1582 000003CO 082C 0000 btst terror int , intbits ( a4) ; Test for bit #0 for this condition 

003A 

1583 000003C6 6724 beq.s data rx isr 

1584 - ~ 

1585 0OO003C8 6105 0004 bsr chk_err 

1586 000003CC f.olE bra.s data rx isr 

1587 - ~ 

1588 000003CE 4240 chk_err clr.w dO 

1589 000003D0 1023 400C move.b ERR0R_C00E (a3) ,d0 ; fetch error number 

1590 000003D4 6714 oeq.s errdone ; ignore ERROR C0DE=0 

1591 000003D6 422B 400C clr.b ERROR C0DE(a3) 

1592 000003DA D07C 012C add.w »300,30 : add offset 



1593 

1594 000003DE 394) 0034 move.w dO ,ov r lape r ( a4 ) 

1595 000003E2 43E0 007A lea er r_hook (a4) , al 
1696 000003E6 6100 O0B2 bsr try hook 

1597 

1598 000003EA 4E75 errdone rts 
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1601 » * 

1602 * routine data_rx_isr : Handles moving received data to the user's * 

1603 » =========== buffer for an inbound TRANSFER. * 

1604 * * 

1606 

1607 0000 03EC data_rx_isr equ * 

1608 000003EC 082C 0001 btst #rx_int , intbi t s ( 34 ) ; Test for bit #1 for this condition 

003fi 

1609 000003F2 6704 beq . s data t* isr 

1610 000003F4 6100 00CE bsr do inxfr 
1611 

1613 » * 

1614 * routine data_tx_isr: Handles moving transmit data from the user's * 

1615 * =========== buffer to the card for an outbound TRANSFER. * 

1616 » * 

1618 

1619 0000 03F8 data_tx_isr equ * 

1620 000003F8 082C 0002 btst #tx int , intbi t 5 (a4 ) ; Test for bit #2 for this condition 

003R 

1621 000003FE 6704 beq . s ON INTR isr 

1622 00000400 6100 0186 bsr do outxTr 
1623 

1625 » * 

1626 * routine 0N_INTR_isr: Handles the communication of an ON INTR trigger * 

1627 * = = = = = = = = = == f rorn the interface card back to BASIC. " * 

1628 * * 

1629 ****************************** *x*************x*******************x***x********** 
1630 

1631 0000 0404 0N_INTR_isr equ * 

1632 00000404 082C 0003 btst t0N_ INTR_i nt , intb it s ( a4 ) ; Test for bit #3 for this condition 

003fi 

1633 0000040ft 6700 0016 beq trace_isr 
16?4 

1635 0000040E 08AC 0003 bclr #0N_ INTR _i nt , us rOmask ( a4 ) 

0036 

1636 00000414 6704 beq . 5 Olisrl ; If already don't send again 

1637 00000416 6100 FE94 bsr put_INTMRSK 
1638 

1639 0000041ft 43EC 0014 Olisrl lea USER ISR(a4),al 

1640 0000041E 6100 0094 bsr try_Tiock_P (Tfl) 7/30/82 bug 158 
1641 

1642 0000 0422 trace_isr equ * 

1643 00000422 082C 0005 btst *t race_int , ir tbit s (a4 ) ; Test for bit #5 for this condition 

003ft 

1644 00000428 6708 beq . s bit_6_isr 

1645 0000042ft 43EC 0082 lea t rcjhock (a4) , al 

1646 0000042E 6100 006ft bsr tryLhock 
1647 

1648 0000 0432 bit_6_isr equ » 

1649 00000432 082C 0006 btst #6 , i ntb l t s ( a4 i ; Test for bit #6 for this condition 

003A 

1650 00000438 6708 beq.s bit 7 isr 
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1651 0000043H 43EC 008ft lea bt6_hock (a4) , al 

1652 0000043E 6100 005ft bsr try_.hock 
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1654 OCOO 0442 bit_7_isr equ « 

1655 0000044.1 0S2C 0007 b t s t #7 , intblt s ( a4 J ; Test for bit #7 for this condition 

0C ip 

1656 00000448 0708 beq.s end_isr 

1657 0000044 fi 4 SEC 0092 lea bt7_hook ( a4 ) , al 

1658 0000044E 6100 C04P, bsr try hook 
1659 

1660 

lEei * End of the ISR 

1662 

1663 00)0 0452 end isr equ » 

1664 

166S ».*****»»« RECOVER SECTION FROM 'TRY' RBOVE »*»*« 

1666 

1667 00000452 2B0F O0O8 move.l 8(sp),RCVR BLK(aS) 

FFI"6 ' 

1668 00000458 DFIC 0000 adda.l #12, sp 

OOOC 

1669 0000045E- 60:E bra.s rcvdone 
1670 

1671 0000 0460 recover section equ * ; On escape, flag overlapped error 

1672 00000460 2Cff "movea.l (sp)*,a6 ; to background 

1673 00000462 265F -:F6 move.l (sp)* , RCVR_BLK (aS) 
1674 

1675 » Body of 'RECOVER' block: 

1676 00000466 0C6D FFE6 cmpi.w #I0E ERROR, ESC C0DE(a5) 

FFIE 

1677 0000046C 6610 bne.s rcvdone : Throw away non-1/0 errors 

1678 0000046E 102C 002D move.b 10 SC(a4),d0 

1679 00000472 BC2D FFBfl cmp.b IOE" SC(aS),dO 

1680 00000476 6606 bne.s rcv<Jone 

1681 00000478 3900 FFBE move.w I0E_RSLT ( a5 ) ,ov r lape r ( a4 ) 

0024 

1682 * That was it ! 
1683 

1684 0000047E4C1F 1800 rcvdone movem . 1 (sp)*,a3/a4 

1685 00000482 S1C0 FCCE bsr eir 

1686 00000486 39EC 0056 move.w int_savespace ( a4) , term and mode (a4 ) 

OOJC 

1687 0000048C 4CEC 003F movem . 1 int savespace*2 ( a4 ) ,dO-dS 

0068 

1688 00000492 48EC 003F movem. 1 <10-d5,term and mode*2(a4) 

003E " ~ 

1689 00000498 4E75 rts ; Return from ISR 
1690 

1691 

1692 0000049F! 201 1 try_hook move.l (al),dO 

1693 0000049C 6714 beq.s hookl 

1694 0000049E 48E7 0018 movem . 1 a3/a4,-(sp) 

1695 000004P2 2040 movea.l dO.aO 

1696 000004P.4 2029 0004 H00K4 move.l 4(al),d0 (tm) 12/03/81 

1697 00000408 6702 beq.s hook3 (tm) If there is static link - push it 

1698 000004B' 2F0O move.l dO,-(sp) (tm) said this is okay 

1699 000004RC 4E90 hook3 isr (aO) 

1700 000004P.E 4CCF 1800 hook2 movem. 1 (sp)*,a3/a4 

1701 000004B2 4E;5 hookl rts 
1702 
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1703 

1704 00000484 2011 try_hook P move.l (al),dO (Trl) 7/30/82 bug 158 

1705 O0O004B6 67FP, Beq.s hookl 

1706 000004B8 481-7 0018 movem . 1 a3/a4,-(so) 

1707 000004BC 2040 movea.l dO,aO 

1708 000004BE 2F29 0008 MOVE.L 8(H1),-(SP) (TM) 7/30/82 bug 168 

1709 000004C2 6OE0 BRfl H00K4 (T!1) 7/30/82 bug 158 
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FAGE 

17il 
1712 
1713 
1714 
1715 
1716 
1717 
1716 
1719 
1720 
1721 
172 2 
1723 
1724 
1725 
1726 
1727 
1728 

1729 
1730 

1731 
1732 
1733 
1734 
!735 
1736 
173? 
1738 
! 739 
1740 
1741 
1742 
174 3 
1744 
1745 
1746 
174 7 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 

1757 

1753 
1759 

1760 
1761 
1762 
1753 
1764 



[3.0] 12/26/ 



21:32:35 DC INTER: HARDUARE IVcRRUPT HANDLER 



routine do_inxfr: Transfers data in until: * 

- User buffer filled; * 

- Card buffer empty; or * 

- Control block reached. * 



File name: DC 



fit entry: 
a3.1 = 
a4 . 1 = 



card base adcress (SOOxxOOOl) 
address of select code table 



0000 04C4 
246C 0024 
6700 00811 

296H 0010 
0042 

6700 0090 
29SA 0020 
O03E 



000004DC 6100 FB06 



000004C4 
000004C8 



00000402 
000004D6 



do_inxfr equ * 

movea.l BUFI_0FF(a4) 
beq inxdone 



move . 1 
beq 



000004EO 
000004E4 
000004E6 

000004EA 
000004EE 
000004FO 

000004F2 
000004F6 

000004F8 
000004FC 
00000500 



6100 030ft 
4A00 
6700 008C 

6100 035E 

4A00 

663E 

4AAC 0042 
675C 

226C 0024 
3029 OOOE 
6C06 



00000502 6100 
00000506 60D4 



00000508 
0000050B 
OOOOOSOE 

00000516 
0000051R 
000O051E 
00000522 
00000524 
00000528 
OO0OOS2C 
OOOO0S2E 



0000 0508 
1F00 

2F2C 0042 
297C 0000 

0001 0042 
6100 0260 
295F 0042 
S3AC 0042 
101F 

206C 003E 
8028 FFFF 
6726 

6C = C 



TCNT_0FF(a2) , dat a_number ( a4 ) 



inxdnl 

TFIL _0FF(a2) , dat a^add ress ( a4 ) 



inxfrl 
inxf r4 



tst . 
beq 



bsr 
tst . 



tst .1 
beq . s 



find RXBUF 



RX_stuff_avail 

dO 



ctrlblknext 

dO 

inxf r3 

data__number (a4 ) 
inxdone 



Set up a2.1 = buffer descriptor record 

base address 
See if buffer is empty 
If so, just sit here & wait 



If a control block is next, then 



see if chars to transfer 
yes, go do it 



Check for term char desired 
Yes - goto slow section 



move some data 

& go back to check for Ctrl blk 



movea.l BUFIJJFF (a4) , al 
move.w TCHR_OFF(al) ,d0 
bge . s inxf r5 

bsr getchars 

bra . s inxfrl 



equ * ; SLC'U ENTER - search for char 

move.b dO,-(sp) ; Save search char 

move . 1 data_nLmber (a4 ) , - (sp) 

move.l ftl ,dat a_numbe r ( a4 ) 

bsr getchars 

move.l (sp) + ,cat a__number (a4) 

subq.l #l,data rumber(a4) 

move.b (sp) + ,cO~ ; Check for term chr 

movea.l data acd ress ( a4 ) , aO 

cmp.b -l(au"),dC ; If equal, exit 

beq . s inxdone 

bra.s inxfrl 
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1765 

1766 00000530 6100 020C inxfi3 bsr qetctrlblk 

1767 00000534 0C2C OOFF cmpi.b #255 , te rrn( a4 ) 



File name: DC ** 



1768 
1769 

1770 
1771 
1772 

1773 
1774 
1775 
1776 
1777 
1778 
1779 

1780 

1781 
1782 
1783 
1784 
17-35 
1786 
1787 
1788 
1789 

1790 

1791 
1792 



00000530 6100 020C inxf i 3 bsr 

00000534 0C2C OOFF cmpi.b 

003C 

0000053A 6608 bne.s 

0000053C 196C 303D move.b 

0037 

00000542 6098 bras 

00000544 396C 303C inxft'2 move.w 
0038 



; Get it, and check for the special 
; case TERM=25S 



0000054H 246C 0024 
0000054E 4A2A OOOB 
OO000SS2 6788 



inxf r2 

mode(a4) ,which_RXbuf ( a4 ) ;If so, do the buffer switch 

inxfrl ; And go back for more 

term_ard_mode :a4),last_ente r_te rrn(a4 ) 

Othe-wise save the control block & leave 



movea.l 8UFI_0FF(a4) , a2 
tst.b TEM0_0FF(a2) 
beq . s inxfrl 



If EOI term bit set tghen 
leave else ignore 



00000554 246C 3024 inxdone movea.l BUFIJ3FF (a4 ) , a2 
00000558 256C 303E move.l 

0020 
0000055E 256C 0042 move.l 

0010 
00000564 6100 OOAC inxdnl 
00000568 200H 



dat a_add ress (a4) , TFI L_0FF (a2 ) 
ta_number(a4) , TCNT_0FF ( a2 ) 



O000056A 671A 
0000056C 43EH 0024 
00000570 6000 FF42 



bsr 

move . 1 
beq . s 
lea 

b ra 



inxf r_done 

a2,d0 

inxexl 

T_PR 0FF(a2) , 

try_Fook_P 



il 



(TM) 



7/30/82 bug 158 



0000 0574 inxexit equ 



00000574 246C 0024 
00000578 256C 003E 

0020 
0000057E 256C 0042 

0010 
00000584 67DE 
00000586 4E75 



movea.l BUFI_0FF [a4 ) , a2 

move.l data_addressla4) ,TFIL_0FF(a2) 

move . 1 data^number ( a4 ) , TCNTJ3FF (a2 ] 

beq.s inxdnl 
r ts 



BUG 1249 TM 01/08/82 
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32:35 D2.JNTER: HP.RDUHRt INTERRUPT HANDLER **« File name; DC 

* * 

* routine do_outxfr: Transfers data out til: * 

* - User buffer emptied; or * 
» - Card buffer filled. » 

* * 

* fit entry: * 

* a3.1 - card base address (SOOxxOOOl) * 

* a4 . 1 = address of select_code_t able * 

* * 

* During execution: * 

* a2.1 - address of xfr record * 



movea.l BUFO 0FF(a4),a2 

move.l a2,dv" 

beq.s outxexl 

move. 1 TCNT_OFF(a2) , d at an umber (a4 ) 

beq.s outxdO 

move. 1 TEMP_0FF(a2) ,data_address ( a4 ) 

bsr find_TXBUF ; a2 ■ buff descr rec addr 

1 move.l data numbe r ( a4 ) , - ( s p) 

bsr putctTars ; Send some chars 

move . 1 (sp)+ ,dO 

cmp.l data^numbe r ( a4 ) ,d0 

beq.s outxlt ; If no chars transferred 

tst.l data number(a4) ; then exit 

bne.s outxT ; Check buffer empty 

1827 

1828 00O005B8 24tC 0028 outxdun movea.l BUF0_OFF (a4 ) , a2 

1829 000005BC 2SEC C03E move.l data add ress (a4 ), TEMP 0FF(a2) 

ooic 

1830 000005C2 2S6C 0042 move.l da ta_numbe r ( a4 ) , TCNTJ5FF ( a2 ) 

0O10 

1831 00O005C8 24tC 0028 outxdO movea.l BUF0_OFF( a4) , a2 

1832 000005CC 4R2P 0008 tst.b TEND 0FF(a2) ; Check for END termination 

1833 000005DO 670C beq.s outxrjnl 

1834 000005D2 6100 FhDC bsr findTXBUF ; a2 = buff descr rec addr 

1835 000005D6 6100 0660 bsr t ry_sending_E0F 

1836 000005DH 4R00 tst.b dO ; If couldn't send it then 

1837 000005DC 6720 beq.s outxexl ; return, wait for next interrupt 
1838 

1839 0000050E 6100 0020 outxdnl bsr outxf r_done 

1840 000005E2 200P move.l a2,d0 

1841 000005E4 6718 beq.s outxexl 

1842 000005E6 43EP 0024 lea T_PR 0FF(a2),al 

1843 OOOOOSEFI 60CO FEC8 bra try Wook P (Trl) 7/30/32 bug 158 
1844 

1845 000005EE 24FC 0028 outxit movea.l 8UFO_0FF( a4 ) , a2 



HOE 46 [3.0] 12 


2t 84 21: 


1794 








1795 








: ■ " 








i 7 98 








1799 








180C 








ISO: 








1302 








1303 








1804 








1805 








1806 








1807 








1808 








1809 




0000 


0588 


1810 


00000588 


24 6C 


0028 


1811 


0000058C 


20 up 




1812 


0000058E 


67r:E 




1813 








1814 


00000590 


2 9 OP 

CO 4 2 


oo io 


1815 


00000596 


e 7 , o 




1816 


00000598 


2 91 F 

oo-je 


00 1C 


1817 








1818 


O0O0059E 


6100 


FB10 


1819 








1820 


ooooosh.: 


2f:c 


0042 


1821 


000005P.6 


61(0 


055C 


1822 


000005RH 


201 F 




1823 


000005HC 


B C : C 


0042 


1824 


O00005B0 


672C 




1825 


00000SB2 


4PPC 


0042 


1826 


000005B6 


66EP 
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1846 00000SF2 2S6C 0O3E move.l da t a_add re ss ( a4 ) , TEMP_OFF ( a2 ) 

OOIC 

1847 000005F8 256C 0042 move.l data numbe r ( a4 ), TCNT 0FF(a2) 

0010 

1848 000005FE 4E!5 outxexl rts 
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[3.0] 12/26/84 


21:32: 


35 DC_INTER: HARDWARE INTERRUPT HANDLER 


x*x F 


le name: DC «»* 




1850 






,, 


»***«»****»***»**»»**« *»**«««x*»««»*«*»*»»*»*»* 








1851 






* 


* 








1852 






* 


routine outx f r_done : Terminates the * 








1853 






* 


outbound transfer, if any. * 








1854 






* 


* 








1855 






* 


routine inxfr_done: Terminates the inbound * 








1856 






* 


transfer, if an v . * 








1857 






* 


* 








1858 






* 


Rt entry: * 
a3 . 1 = card base address (SOOxxOOOl) * 








1859 






* 








1860 






* 


a4 . 1 - address of select code table * 








1861 






* 


* 








1862 






*# 


X********************************************** 








1863 
















1864 


0000 


C600 


outxfr done equ * 








1865 


00000600 08AC 
0036 


0002 




bclr #tx_int , usrOmask [a4 ) 








1866 


00000606 6704 






beq.s outxdl ; If already don't send ag 


un 






1867 


00000608 6100 


FCB2 




bsr put INTMASk 








1868 


0000060C 41EC 


0028 


outxdl led BUFu OFF (34 ; , aO 








1869 


000006:0 6010 






bra.s xfrdun 








1870 
















1871 
















1872 


0000 


06 i 2 


in 


xfr done equ * 








1873 


000006:2 08AC 
0036 


0001 




bclr #rx_int , usrOmask (a4) 








1874 


000006:.8 6704 






beq.s inxdl ; If already don't send ag 


ain 






1875 


000006:.A 6100 


FC90 




bsr put INTI10SK 








1876 


000006:.E 41EC 


0024 


inxdl lea BuFT OFF ( a4 ) , aO 








1877 
















1878 


00000622 2450 




xf 


rdun movea .1 (aO) , a2 








1879 


00000624 2000 






move.l a2,d0 








1880 


00000626 670C 






beq.s rtsin 








1881 


00000628 1S7C 
0005 


OOFF 




move.b #255 ,T_SC_OFF ( a2) 








1882 


0000062E 4220 


0007 




clr.b TACT 0FF(a2) 








1883 


00000632 4290 






clr.l (aO) 








1884 


00000634 4E7S 




r! 


sin r ts 
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[3.0] 12/26/84 


21 :32 


35 DC_INTER: HARDWARE INTERRUPT HANDLER 


*xx File name: DC *** 




1886 






X* 


»x*»*x««*x»xx*»x»x*xx«x*x*xxx*xxxx»x»x»»x*»x»x« 








1887 






* 


x 








1888 






* 


routine wait outxfrdone: waits until an * 








1889 






* 


outbound transfer is complete * 








1890 






* 


[if any) . Also has timeout * 








1891 






* 


escape. * 








1892 






* 


* 








1893 






* 


routine wait^inxf rdone : waits until an * 








1894 






* 


Inbound transfer is complete * 








1895 






* 


[if any). Also has timeout * 








1896 






* 


escape. * 








1897 






* 


* 








1898 






* 


At ent ry: * 
a3.1 = card base address flOOxxOOOl) * 








1399 






* 








19C0 






* 


a4 . 1 - address of select code_t at ie * 








1901 






* 


x 








19C2 






X 


This bashes nothing. * 








1903 






* 


* 








1904 






* 


This routine may escape! * 








1905 






« 


* 








1906 






* 


MODIFIED 12/02/81 * 








1907 






* 


from 12/01/81 code to 11/23/81 » 








1908 






* 


* 








1909 






*» 


***xxx**x*xxxx*x*x*xxxx*xxx**x*xxxxxx***xxx*xx* 








1910 
















1911 


0000 


0636 


wait _outxf rdone equ * 








1912 


00000636 48E7 


0080 




movent. 1 d0/d2/a0 , - (sp) 








1913 


OO00063A 206C 


0028 




movea. 1 BUF0_0FF(a4) , aO 








1914 


0000063E 6008 






bra.s wait 








1915 
















1916 


0000 


0640 


wait inxfrdone equ * 








1917 


00000640 48E7 


0080 




mcvem.l d0/d2/a0 , - (sp ) 








1918 


00000644 206C 


0028 




movea. 1 BUF0_0FF ( a4 ) , aO 








1919 
















1920 


00000648 2408 




wait move.l a0,d2 ; 0=no xfr block 








1921 


OO0OO64A 6730 






beq.s waitdun 








1922 


0000064C 0C28 
0009 


0005 




cmpi.b *S,TUSR_OFF(BC) ; >4 - interrupt 








1923 


00000652 6D28 






bit . s waitdun 








1924 


00000654 2426 


002E 




move.l t imeout [ a4 ) ,d2 








1925 


0CC00658 0838 
FECA 


0001 




btst #t imer_present , sysf lag2 is timer available 


? tttt IS 


8/11/83 




1926 


OOOCObjE 6722 






beq.s wait_ti-ner if so then use it 


tttt IS 


8/11/83 




1927 
















1928 


00000660 203C 


0000 


waitl move 1 «256, dO [UtvCAL I 6RATED] - guess based 


upon check_tfr loop 






0100 














1929 


00000666 4028 


0007 


waitZ tst.b TACT OF- ;aC I ; 0-=mactive (tm) 


tst.l -» 


tst .b 




1930 


00000660 6710 






beq.s waitdun 








1931 
















1932 


0000066C 5380 






subq.l ttl,dO ; Timeout computation 








1933 


000006SE 66F6 






bne.s wait2 








1934 


00000670 4082 






tst.l d2 








1935 


00000672 67EC 






beq.s waitl 








1936 


00000674 5382 






subq.l »l,d2 tug fix -- was dO 


tttt JS 


8/11/83 




1937 


00000676 66E3 






bne.s waitl 








1938 


00000678 6000 


FCE2 




bra time_err 








1939 
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PA.^E 5- [3.0] 12/JI/S4 21:32:55 DC_INTER: HARDWARE INTERRUPT HANDLER «»* Kile name: DC *»* 

1910 0000067C 4; OF 0105 waitdun movem.l ( sp ) * , d0/d2/a0 

1941 00000680 4F7S rts 
194 2 

1943 0C0O 0632 wait_timer equ * 

1944 00000682 4A82 tst.l d2 check for infinite timeout tttt JS 8/11/83 

1945 00000664 67DA beq waitl use loops if infinite tttt JS 8/11/83 

1946 000006S6 HOC 0C01 mcve.b #l,-(sp) set up timer record tttt JS 8/11/83 

1947 0000068B 2 F 02 move . 1 d2,-(sp) 02 has ms to wait tttt JS 8/11/83 

1948 0000068C 4F28 0007 wait3 tst.b tactoff(aO) xfrdone? t t t t JS 8/1 1/83 

1949 00000690 6 'OE beq.s wait* if so then exit loop tttt JS 8/11/83 

1950 00000692 4.;S7 pea (sp) push ptr to time rec tttt JS 8/11/83 

1951 00000694 4EB9 0000 jsr check timer and check the timer tttt JS 8/11/83 

OCOO 

1952 0000069H 6F.F0 bpl wait3 if no timeout, keep trying tttt JS 8/11/83 

1953 0000069C 6C0O FCBE bra 1 ime_e r r timeout -- go escape tttt JS 8/11/83 

1954 000006AO 5C4F wait4 addq #6,sp normal exit -- clean stack tttt JS 8/11/83 

1955 000006B2 60D8 bra waitdun and return tttt JS 8/11/83 
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1958 ********************************************** **# 

1959 * * 

1960 * procedure START_TRANSFER_IN ( * 
19^1 » var SCT: select code table ); * 

1962 * * 

1963 * This starts the card doing a transfer. * 

1964 * The calling code must have already * 

1965 * linked the transfer block in to the * 

1966 * select code table structure. * 

1967 * » 

1968 * During use: * 

1969 * a3.1 = card base address (SOOxxOOOl) * 

1970 * a4 . 1 - address of select code table * 

1971 » * 

1973 

1974 OOijO 06(14 START TRANSFER IN equ 

1975 000006A4 206F 

1976 000006A6 286F 

1977 000006A8 4860 

1978 000006HA 266C 0020 

1979 000006AE 528B 
1980 

1981 0OO006B0 4E4B trap #11 get into supervisor mode 

1982 * scs move sr,-(sp) ; Funny code to disable 

1983 000006B2 46FC 0070 move SR image(a4),sr : interrupts 

1984 00O006E6 OSEC 0001 bset trx in! , us rOmask (a4 1 

00(6 " 

1985 000006BC 6100 FBEE bsr put INTMASK 

1986 000006CO 61(0 FE02 bsr do Tnxfr 

1987 OOO006C4 46CF move (spU,sr 

1988 000006C6 60CC FC74 bra check ov error ; Will enable ints 
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Pm3E 

1990 
1991 
J992 
iS9; 
199"! 
:895 
1396 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 

2017 

2018 

2019 
2020 
2021 



[3-0] 12/26/84 21 :32: 



000006CB 
0O0OO6CC 
000006CE 
000006DO 
000006D4 



0G0O 
20SF 
285 F 
4350 
266C 
5286 



5 DC_INTER: HfiRDuBRE INTERRUPT HP.NDLER 

proce.. u re STBRT_TRFNSFER_OUT ( 

var SCT: selec t_code_t able ); 

This starts the card doing a transfer 
The calling coce must have already 
linked the trarsfer block in to the 
select_code_table structure. 

During use: 

a3.1 = card base adciess ($00xx0001) 
a4 . 1 = address of select code table 



06CB STBRT_TRBNSFER OUT equ » 
movea.T (sp)+,aO 
movea.l (sp)+,a4 
pea jaO} 

0020 movea.l c adr(a4) 



File name: DC 



000006D6 4E4B 



000006D8 
000006DC 

000006E2 
000006E6 
000006EB 
000006EC 



4 6EC 
08EC 
0036 
6100 
6100 
46CJF 
6000 



0070 

0C02 



FBC8 
cEflO 



addq.l »T,a3 



trap 

move 
move 
bsM 



#11 

sr,-[sp) ; Funnv code to 
SR_image ( a4 ) , sr ; interrupts 
#tx_int , usrOrnask (a4 ) 

put JNTI1BSK 
do outxfr 



check cv errci 



Will enable ints 



PflGE 

2024 

2025 
2026 

2027 

202 8 
2029 
2030 
2031 
2032 

203 3 
203« 
2035 
2036 
2037 
2038 
2029 

204 
2041 
2C42 
2043 
2044 
204 5 

204 6 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 

205 6 
2057 
2058 
2059 



[3.0] 12/26/84 21:32:35 DC_RXBUF: RX BUFFER UTILITIES 



File name: DC 



**** **** 



routine set r XBUF_a6: 



fit entry: 



Routine to set a6 as the base address 
pointer to whichever Rx buffer is being used. 



a2 . 1 = data buffer base address [shifted, +l+selectcode) 

a3.1 - card base address (ICOxxOOOl) 

a4 . 1 = pointer to sc_subtablet ype structure 

Upon exit : 

a6.1 = Base address of DflTB JUFFERS [UHICH_RXBUF] 
This also bashes do . 



*** * ******* * 



**************** 



0000 06F0 set RXBUF a6 equ * 
000006FO 4280 cTr.l dO 

000006F2 102C 0037 move.b which_RXbu f (a4 ) , dO 
000006F6 E980 asl.l »4,d0 

000006F8 4DF2 0010 lea DBTfi PREB ( a2,d0) , a6 
000006FC 4E75 rts 



Setup d0.1=offset 
to which Rx buffer 
being used 
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r'fHGE 

2061 

2062 
2063 

2064 
2066 
2065 

2oe? 

2oef 

2069 
20~0 
2071 
2072 
20 '7 3 
2074 
207S 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
208S 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 



[3.0] 12/:&/84 21:52:35 uC_RXBUF: RX BUFFER UTILITIES 



routine RX_BUFF_bytes : 



Function which returns the number of 
characters until the first cortrol block in 
the Receive Buffer. If there are no control 
blocks, this just returns the number of 
characters in the buffer. This only works 
on the current Px data buffer, and does not 
extract TERM=255 control blocks! 



Pt entry 



a2.1 = data buffer base address (shifted, 

a3.1 = card base address (JOOxxOOOl) 

a4 . 1 = pointer to sc_subt abletype structu 



t-l+se lectcode ) 



Upon exit 



dO.l = Number of characters. 

al, d4 and d5 are left with values from f ind_RX_DflTfl . 

This also bashes aO, dl and d2 . 

This routine uses the card's SEMAPHORE to gain access. 

This routine calls gain_access, release_access, and f ind_RX_DATR . 



0000 06FE 
000006FE 6100 F9Dfl 



RXJUFF_bytes equ 



00000702 2F0E 
00000704 61EH 

00000706 4280 
00000708 4281 
0000070B 0300 000C 
0000070E 6100 F91R 
00000712 010E 0008 
00000716 050R 0008 
00000710 6100 F96H 
0000071E B242 
00000720 6 70A 
00000722 EE59 
00000724 D28B 
00000726 2041 
00000728 0108 0000 

0000072C E0S8 
0000072E 030E 000C 
00000732 E059 

00000734 9041 

00000736 6002 

00000738 D045 

00000730 2C5F 

0000073C 4E7S 



bsr 



move . 1 
bsr 



find RX DRTfi 



a6, - ( spl 

set RXBUF a6 



clr.l 

clr.l 

movep 

bsr 

movep 

movep 

bsr 

cmp.w 

beq . s 



dO 
dl 



CTRL_nRFfi*EMPTV(a2) ,dl 

gain access 

FILLTa6) ,d0 

CTF__AREPH-FILL (a2j , d2 

re lease access 

d2.dl 

RBbl 

*7,dl 

a3,dl 

movea.l dl.aO 

movep. w POINTER(aO),dO 

ror.w »8.d0 
movep. w EMPTY(a6) ,dl 
ror.w #8,d! 

sub .w dl , dO 
bge.s RBb2 



add.l 



***********#*k****:i(<**:******:**:(:***** 

Setup al = data buffer base addr 

d4 - end of data buffer addr 
d5 = RX0ATA6UFF_SIZE 



Get garbage out of top of dO, dl 

Fetch pointers (bytes in wrong order) 
Need access to FILL pointers 



If the two ctrl block pointers are not 
equal, then we want to use the pointer 
field from the next control block to 
indicate how much data may be removed 

— Use it as the "FILL" pointer 

Switch bytes for FILL 

and get EMPTY and switch bytes 

dO-'TILL", dl=EMPTY 

Compute dO :== FILL-EMPTY 

If negative, add data buffer size 



add.w d5,d0 
movea .1 ( sp) + , a6 

Now dO = ("FILL"-EMPTY) mod SIZE --- of data buffe 



rts 
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File name : DC 



2118 






2119 






2120 






2121 






2122 






2123 






2124 






2125 






2126 






2127 






2128 






2129 






2130 






2131 






21.32 






2133 






2134 






2135 






2136 






2137 






2138 






2139 






2140 






2141 






2142 






2143 






2144 






2145 






2146 




OOOO 


2147 


0000073E 


6100 


2148 






2149 






2150 






2151 


00000742 


4 280 


2152 


00000744 


CiCfl 


2153 


00000748 


ti- S3 


21S4 


0000074R 


or SB 


2155 


0000074C 


2040 


2156 






2157 


0000074E 


1968 

o: 3C 


2158 


00000754 


; - 68 

003D 


2159 






2160 


0000075A 


DC7C 


2161 


0000075E 


B:r40 


2162 


00000760 


6602 


2163 


00000762 


3009 


2164 


00000764 


CO 80 


2165 


00000768 


ErS8 


2166 


0000076R 


6100 


2167 


0000076E 


018P. 


2168 


00000772 


6100 


2169 


00000776 


4E7S 



routine getct rlblk : 



Routine which gets a control block from the 
Receive buffer. It must have already been 
determined that there is a control block at 
the front of the buffer, since this routine 
does NOT check for that condition. The TERM 
and MODE fields of the removed block are left 
in the appropriate (.term and .mode} in the 
sc_subt abletype st met lj re . 



RX buffer record base address from find_PXBUF 
card base address (SOOxxOOOl) 
pointer to sc_subt able type structure 



fit entry: 

a2. 1 = 

a3.1 - 

a4.1 = 

Upon exit: 

sc__subtablet ype. term = TERM field of control block (8 bits) 
sc_subtablet ype .mode = MODE field of control block (8 bits) 
al, d4 and db are left with the values from find_CTRL_AREP . 
This bashes do, d2, and aO . 

This routine uses the card's SEMAPHORE to gain access. 

This routine calls gain_access, release_access , and f ind_CTRL_AREP . 

*****************#*********:******;(:*:*********#********#*** *************** 



073E get 
F9B4 



0004 
0006 



0000 gcbl 
F8BE 

ococ 

F912 



■Iblk equ 
bsr 



clr.l 
movep .■ 



find CTRL AREA 



CTRL AREA+EMPTY(a2) 

#7,d0" 

a3,d0 



movea .1 dO, aO 

move.b TERMFIELD(aO),term(a4) 



move . b MODEFIELD ( aO ) ,mode ( a4 ) 



Setup al = ctrl buffer base addr 

d4 * end of ctrl buffer addr 
d5 = TRCTRL8UFF_SIZE 

Clear top of dO 

Get control buffer EMPTY pointer 

Now make it into a 68O00 pointer 

Move to aO so we can use it 

Store term & mode fields 



add.w #CTRLBLKSIZE,dO 

cmp.w d0,d4 

bne.s gcbl 

move .w al ,d0 

bclr #0,d0 

rol.w #7,d0 

bsr gain access 

movep. w dO CTRL_AREA+EMPTY(a2) 

bs r release access 

rts ;«<CAN T T COMBINE WITH ABOVE! 



Bump pointer by control block size 
and check for wraparound. 

If so, set to front of buffer 
Make it into a Z80 
type pointer with bytes reversed 
Now store the updated EMPTY pointer 



1-138 
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2171 
2172 
2173 

2174 
2175 
2176 
2177 
2178 
2179 
2180 
213! 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2130 
2191 
2192 
2193 
3194 
2195 
219S 
2197 
'193 
2199 
2200 
2201 
2 202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2231 
2222 
2223 
2224 
2225 
...'. 
2227 



RX BUFFER UTILITIES 



File name: DC 



******** 



rout ine getchar s : 



poi 
aid 
7-ie 



12; 
ana 



Thi 

ref 

is 

tra 

by 

ctr 



tine which takes characters from the 
eive buffer and puts them in the area 
nted to by sc_subt ablet ype .data_address 

sized by sc_subt abletype .data_numbe r . 

number of characters 
ually transfered is the minimum of: 

the number of characters available before 

first Receive buffer control block; 

sc subt ablet ype .data_number; 

(31 the number of characters 
liable until the Receive buffer wraparound 
nt. THIS NUMBER ttAY BE ZERO! 
s alters data_address and data_number to 
lect where to start going next time this 
called. The criteria for ending the 
nsfer at a higher level must be determined 
data_number, RX_st uff_avail and 
l_blk_next/getctrlblk . 



At entry: 



32. 

33. 



RX buffer record base address from find_RXBUF 
card base address ($00xx0001) 
pointer to sc_subt abletype structure 



Upon exit : 

dat i_add ress 3nd data_number are updated, plus the ErtPTY 

pointer in the card's Receive data buffer. 

In .,c_subt ablet ype last_ente r_te rm and last_enter_mode are 

zeroed if anv data is moved. 

al ind d4 are left with the values from f i nd_RXJ)ATA . 

Thi: bashes do, dl, 02, d3, d4, d5, aO, and al . 

This routine uses the card's SEMAPHORE to gain access. 

This routin calls gainaccess, release_access, and RX_BUFF_bytes . 






0000 0778 getchars equ 



00000778 6134 



0000077F 2600 

0000077C 48E7 0022 

0000078C 6100 FF6E 

00000784 4230 

00000786 010E O00C 

0000078F EES8 

0000078C O08B 

0000078E 2440 

0000079C 9084 



RX_tiUFF_bytes 



move.l dO, )3 



movem.l a2/i6,--(sp) 
bsr set RXBUF a6 



clr.l dO 






move p. w ErIP Y 


ah ' 


, rIO 


ror.w #7 ,10 






add.l a3,d0 






movea.l dO, ;2 







Setup al - data buffer base addr 

d3 = offset to which Rxbuff used 
d4 = end of data buffer addr 
d5 = RXDP,TflBUFF_SIZE 

d3.1 = available characters 

Saved for local use 



Get RXDATflBUFF EMPTY and make 
it into a 6800-3" pointer 

Save EMPTY for later! 
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2228 


00000792 


4480 






neg.l 


dO ; 


2228 


00000794 


COBC 
FFFE 


0000 




and.l 


#$0000FFFE,d0 


2230 


0000079S 


E258 






ror .w 


ttl.dO ; 


2231 














2232 


0000079C 


B630 






cmp. 1 


d0,d3 ; 


2223 


0000079E 


6E02 






bgt . s 


gel 


2234 


000007BC 


2003 






move . 1 


d3,:0 


2235 














2230 


000007A2 


242C 


0042 


9-1 


move . 1 


data number (a4) ,d2 : 


2237 


000007A6 


R480 






cmp. 1 


dO,r(2" ; 


2236 


00000708 


6E02 






bgt .s 


9ci 


2 239 


000007AP 


2002 






move . 1 


d2,r0 


2240 














2 24 1 


000007AC 


2600 




gc2 


move . 1 


d0,..3 ; 


2242 














2 24 3 


000007AE 


6736 






beq . s 


qedene ; 
last enter term[a4) ; 


2244 


00000780 


426C 


0038 




clr .w 


2245 


00000784 


5340 






subq .w 


ttl.dB ; 


2246 


000007B6 


206C 


003E 




movea . 1 


dat a_add ress f a4 ) , aO ; 


2247 














2248 


000007BP 


1002 




gcloop 


move .b 


la21 (a0)+ ; 
#2,a2 ; 


2249 


000007BC 


S44A 






addq .w 


:250 


000007BE 


S1C8 


FFFFl 




dbf 


dO, gcloop ; 


,.251 














2252 


000007C2 


9483 






sub.l 


d3,d2 ; 


2253 


000007C4 


2942 


0042 




move . 1 


d2,cata number (a4) ; 


2254 


000007C8 


2948 


003E 




move . 1 


aO,data_address (a4 ) ; 


2255 














2256 


000007CC 


220A 






move . 1 


a2, al ; 


2257 


000007CE 


B88P, 






cmp. 1 


a2 d4 ; 


2258 


00000700 


6602 






bne . s 


S" ; 


2259 


C00007D2 


2209 






move . 1 


al.dl ; 


2260 


00000704 


0881 


0000 


gc3 


bclr 


»0,dl ; 


2261 


000007D8 


EF59 






rol.w 


#7,dl ; 


2262 


000007DA 


6100 


F84E 




bsr 


gain access 


2263 


0000070E 


038E 


oooc 




movep.w 


dl EHPTYU6) ; 


2264 


000007E2 


6100 


F8A2 




bsr 


release access 


2265 


000007E6 


4CDF 


4400 


gcdone 


movem. 1 


(spi*,a67a2 


2266 


000007EA 


4E75 






rts 





*** File name: DC 
dO = wraparound address - EMPTY 

dO.l = number of bytes till wraparound 
If d0>d3 then set dO := d3 



Fetch number of positions available 
If d0>d2 then set dO := d2 



d3.1 saves number of chars actually 

transferred below 

If zero, no wck to be done 

This also clears last_ente r_jnode . 

Make offset correct for dbf~instr. 

Get character pointer into aO 

Transfer a character & bump dest ptr 
Sump source pointer (odd bytes) 
Then decrement dO S loop 

Decrement datacnt by tt bytes 
Now store adjusted address and 
number fields 

Store pointer for computations 

Now check to see if EMPTY was moved 

past end of buffer. If so, set to 

the front of the buffer. 

Fix up the 68000 pointer to be the 

card's type of pointer 

Remember dl = card's EMPTY pointer. 
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RX stuff avail equ 
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22 68 
22 69 
2 2 72 
2271 
2272 
2273 
2 2 74 
22 75 
2276 
2277 
2 276 
22'7S 
2280 
2281 
22B2 
2283 
2284 
228S 
2286 
2287 
2288 
2289 
2220 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
230S 
2306 
2307 
2=08 
2309 
2310 
2311 
?:>)? 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 



RX BUFFER UTILITIES 



File name: DC 



routine RX_s t u f f avail : Routine which determines whether there is 
„„= = = = „ = = „ ANYTHING (data or control blocks) in the 

Receive buffer. This consumes any TERM=255 
control blocks before returning the function. 



RX buffer record base address from find_RXBUF 
card base address (JOCxxOOOl) 
pointer to sc^subt able t ype structure 



$00 if buffer is empty, 
$01 if Ctrl buffer is empty and data buffer is not, 
$02 if data buffer is empty and Ctrl buffer is not, 
$03 if both data and Ctrl buffers ^re not empty. 

al and d4 are left with the values from find RX_DATA . 

This bashes dO, dl, 62, d3, 04, d5, aO and aT. 

This routine uses the card's SEMAPHORE to gain access. 
This routine calls gain_access and releaseacce ss . 



At 


ent 


y: 

8 2 
a3 


1 
1 


; 






a4 


i 


= 


up 


sn e> 


it : 










dO 


1 


= 



Oi'OO 07EC 
O0O007EC 6 .00 F8EC 



000007FO 2F0E 
000007F2 6:00 FE FC 

000007F6 6100 F832 
000007FH O.'OE 0008 
000007FE 0-:0A 0008 
00000802 6100 F882 
00000806 1: 82 
00000808 4; 80 
OOOOOSOS C: Cfi 2O0C 
0000080E B441 
00000810 6bOE 
00000812 05 OE OOOC 
00000816 B£43 
00000818 6702 
0000081P 5. 00 
0000081C 21 5F 
0000081E 4t 75 

00000820 5-iOO 
00000822 E»5A 

00000824 D48B 

00000826 2142 

00000828 0208 0000 

0000082C OfOE OOOC 

00000830 B242 



bsr 



find RX DATA 



a6,- (sp) 
set_RXBUF_a6 



bsr 

movep . 
movep . 



clr .1 

clr .1 



gain access 

FILLT/a6),d3 

CTRL_ARER*FILL ( a2 ) , dl 

release_access 

d2 

dO 

movep. w CTRL RREPt-EMPTY (a2 ) ,d2 
cmp.w dl ,d? 
bne . s setbit 1 
i movep. w EMPTY (a6) ,d2 
cmp.w d3,d2 
beq.s return 
addq.b #l,dO 
movea .1 (sp) + , a6 
rts 

addq.b #2,d0 
ror.w #7,d2 

add.l a3,d2 

movea .1 d2 . aO 

movep. w POINTER(a0),dl 

movep. w EMPTY(a6),d2 

cmp.w d2,dl 



Setup al = data buffer base addr 

d4 = end of data buffer addr 
dS = RXDATABUFF_SIZE 



Fetch FILL 8 EMPTY (bytes reversed but 
we're -just checking equality) 



Compare Ctrl buff FILL & EMPTY 
If not equal, then set bit 1 



Compare data buff FILL S EMPTY 
And set bit C if not equal 



Set "ctrl not empty" bit 
Something in control buffer - see if 
this control block is at the head of 
the queue (bytes reversed!) 



if POINTER fieldoDATABUFF EMPTY 
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2325 00000832 6':DE 

2326 00000834 0C28 OOFF 

03 04 

2327 0000083A 66D6 
2328 

2329 0000083C 6100 FFOO 

2330 00000840 126C 003D 

0037 

2331 00000846 2L5F movea. 1 (sp)t,a6 

2332 00000848 6CA2 bra.s RX stuff avail 



bne , 5 
cmpi . b 


chkd 3t a 
#255,TERMFIELD(aO) 




bne . b 


chkci.it a 




bs r 

move . b 


getc T r lb 1 k 

mode(a4J ,which_RXbuf 


a4) 



File name : DC 



then go check: data buff 
else if it's a TERM=25S control block 



No, go back and check data buff 



Otherwise consume the control block 
;and switch to new data buffer 



find go back and re-compute result 
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PGE 63 [3.0] 12 


26/84 


21 : 32: 2 


i DCJ2XBUF: 


■rX BUFFER LIT I L I 


2334 










************ 


!***»*«*******« 


2235 








* 






2-36 








* 


routine 


ctrlblknext : 


2 33 7 








* 






2333 








* 






2339 








* 






2 HO 








* 






2 241 








* 






234 2 








* 


Ht ent r 


/: 


2243 








* 




32.1 - RX bu' 


2344 








* 




33.1 = card b 


2245 








* 






2246 








* 


Upon exit : 


2347 








* 




dO.b = IFF i' 


2348 








* 




This bashes d2 


2243 








* 






2350 








*** 


************ 


*************** 


23 51 














235 2 




0000 


084H 


ctr 


lblknext equ 


* 


2353 


0000084H 


5 IOC 


57uE 




bsr 


gain access 
CTRL~RR£A*FILL 


2364 


0000084E 


C30fi 


3003 




movep.w 


2355 


00000852 


6100 


F832 




bsr 


release access 


2256 


00000856 


4280 






clr.l 


dO 


2 25 7 


00000868 


01 OH 


OOOC 




rnovep . w 


CTRL f)REfl + Er1P~ 


2258 


0000085C 


B440 






cmp.w 


dO,d? 


2359 


0000085E 


6723 






beq . 5 


cbnl 


2 26 3 


00000860 


EE58 






ror .w 


#7, do 


2261 


00000862 


D3SB 






add.l 


a3,d0 


2262 


00000864 


2 340 






movea . 1 


dO.aO 


2263 


00000866 


0103 


0000 




rnovep .w 


POINTER* aO) ,d0 


2 264 














2365 


0000086H 


4285 






clr.l 


d5 


2366 


0000086C 


1322 


0037 




move ,b 


which RXbuf(a4 


2367 


00000870 


E98S 






asl.l 


»4,d5 


2368 














2369 


00000872 


48E7 


8002 




movent. 1 


d0/a6 , - ! sp ) 


2270 


00000876 


6100 


FE78 




bsr 


set RXBliF a6 


2 271 


OO00087H 


050E 


OOCC 




movep.w 


EMPTV(a6) ,d2 


2272 


0000087E 


4CDF 


40G1 




movent. 1 


(sp]-»,d0/a6 


2373 














2374 


00000862 


B440 






cmp.w 


d0,d2 


2375 


00000864 


57C0 






seq 


dO 


2376 


00000866 


4E75 






rts 




2377 














2378 


0000086:8 


4280 




cbr 


1 clr.l 


dO 


2379 


0000088R 


4E75 






rts 




2 36 















File name: DC 



Routine which determines whether the next 
thing to be consumed from the Receive buffer 
is a control block. THE RESULT OF THIS 
FUNCTION IS NOT VP.LID UNLESS RX_BUFFER_empt y 
RETURNS FHL3E1II 



r er record base adc r ess from find_RXBUF 
sse address (SOOxxOOOl) 



control block is next, $00 if data is next. 
dS and aO. 



a2),d2 ; Check if Ctrl buffer is empty 



7(a2),d0 ; Fetch Ctrl buffer EMPTY pointer 
; If equal then return d0.b=$00 



Fetch the POINTER field from the 



Setup d5.1=offset 
To which Rx buffer 
being used 



first Ctrl block and compare to the 



data buffer EMPTY pointer 
Then set dO if equal 



2429 

2430 
2431 
2432 
2433 
2434 
2435 

2436 



0000 C006 in_timeoi.it 
0000 0007 out_timeout 



equ 
equ 



[UNCALIBRPTED 1 MS] 
[UNCHLIBR9TED 1 MS] 



procedure OUTPUT DATA ( 

STCT : select code table; 
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2383 
2384 

2385 * ***** **** *** * * 

2386 * * ******* 
2367 
2333 
2369 
2390 
2 36: 
2732 
2 333 
2394 
23SS 
2396 
2 397 
2398 
2339 
2400 
2401 
2402 
2403 
2404 
240S 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
241S 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 



*** File name: DC «« 



*** *** 



PTR: 
COUNT: 



data_bytes; 
longword ); 



This operation may hang waiting for space. * 

This routine calls find_TXBUF and putchars. * 

* 



0000088C 
0000088E 
00000890 
00000892 
00000894 
00000896 
0000089A 

0000089C 
000008110 

000008H4 
000008H8 

000008HC 

000008B2 

OOOOOSISB 
000008ISE 
000008CO 
000008C6 



0000 088C output_data equ 



20SF 

221F 

225F 

28SF 

4850 

266C 0020 

S28B 

2949 003E 
2941 0042 

6100 FH96 
6100 FD8C 

296C 002E 
004A 
297C 0000 
0007 004E 

6100 F7F4 

6730 

0838 0001 

FEDfl 
672fl 



movea. 1 (sp)+,aO 

move .1 ( sp) + ,dl 

movea .1 ( sp) + , al 

movea. 1 (sp)+,a4 

pea (aO) 

movea .1 c adr (a4 ) , a3 

addq.l #T,a3 

move.l al ,data_address (a4) 

move.l dl ,data jiumber (a4 ) 



COUNT 

PTR 

SCT 



bsr 
bs r 

move . 1 

move . 1 

bsr 
beq . s 
btst 
beq . s 



chec k_ov_e rror 
wait _outxf r done 



initialize address/count 
Escape if o/v error 



timeout (a4) ,timeout_counter(a4) 
ttout _t imeout , inne r__counte r ( a4 ) 



find_TX6UF 

outdone 

*t imer_present , sysf lag2 check for timer 

outtimer if got it, use it 



; Set up a2.1 = buffer descriptor record 
base address 



tttt JS 8/11/83 
tttt JS 8/11/83 
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PAGE 

2437 
£4 38 
2439 
2440 
2441 
2442 
2443 

2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
245S 
2456 
2457 
2458 
2469 
2460 

2461 

2462 
2463 
2464 
2465 



65 [3.0] U 



21:32:35 3C_TRANS : HANDSHAKE TRANSFER CODE 



File name: DC 



00O008C8 4RBC 0042 out 2 



000008CC 
00O008CE 
00000802 
00O008D6 
000008D3 

000003EO 
000008E4 
000008E6 
000008EA 
000008EE 



6722 
'5100 0234 
MAC 004E 
66FC 

>97i( 00O0 
004E 
004(1 



7 
A or 
J f . 

,;n 

700 
003 



Fh70 



beq . s 
bsr 
5ubq . 1 



tst .1 
beq . 5 
subq.l 
beq 

b ra . 5 



000008FO 4E75 



outdone rts 



000008F2 4AAC 002E out timer tst.l 



000008F6 B7D0 
000008F8 !F3C 0001 
000008FC 2F2C 002E 
00000900 4AAC 0042 
00000904 6712 
00000906 6 IOC 01 FC 
0000090B 4857 
0000090C 4EB9 0000 

0000 
00000912 IHEC 
00000914 6000 FA4S 
00000918 6C4F 
0000091B 4E75 



beq 
move . 
move . 



out t loop tst.l 
beq . 5 
bsr 

pea 
jsr 

bpl 
bra 
outtexit addq 
rts 



dat a_numbe r ( a4 ) 

outdone 

putchars 

#1 , inner_counter ( a4 

out_2 

#out_t imeout , inner _counter(a4) 

t imeout_counter f a4 ) 

out_2 

#1 , timeout_counter ( a4 ) 

time err ; if so, escape 

out 7 



; And transfer characters until done 
; Test for timeout condition 



t imeout (a4 ) 

out_2 

»l.-(sp) 

t imeout (a4 ) , - ( sp) 

dat a_numbe r (a4 ) 

out texit 

putchars 

(sp) 

check_t ime r 

U t t 1 C ( p 

t ime_er r 
#6, sp 



see if infinit timeout 
if so don't use this 
else setup timer record 

check if all done 
if so then get out 
else send chars 
push ptr to time rec 
and check the timer 



tttt JS 8/11/83 

tttt JS 8/11/83 

tttt JS 8/11/83 

tttt JS 8/11/83 

tttt JS 8/11/83 

tttt JS 8/11/83 

tttt JS 8/11/83 

tttt JS 8/11/83 

tttt JS 8/11/83 



if not timeout keep going tttt JS 8/11/83 
else do timeout escape tttt JS 8/11/83 
normal exit -- cleanup tttt JS 8/11/83 
and return tttt JS 8/11/83 
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2467 
2468 

2469 
2470 
2471 
2472 
24 73 
2474 
247S 
2476 
24 77 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2S01 
2502 
2503 
2504 
2505 



2506 

2507 
2508 
2509 
2510 
2511 

2512 
2513 

2514 
2515 
2516 
2517 
2516 
2519 
2520 



35 DC_TRANS: HANDSHAKE TRANSFER CODE 

* 

procedure ENTERDATA ( * 

var SCT: se lect_code_t able ; * 

PTR : - data_bytes; * 

var COUNT: longword ) ; * 

* 
COUNT initially passes the number of bytes * 
which the upper level wants to read. THE * 

ROUTINE DOES NOT NECESSARILY READ THIS MANY! » 
Upon exit COUNT will be reflect the number » 
of dati bytes entered, whether or not there * 

e-cape(EOD): Terminated by reaching a control* 
block. TERfl&nODE may be read with STATUS « 
9 and 10. * 

* 
This routine calls find_RXBUF, * 

getctrlblk, getchars, ctrlblknext, and * 



File name: DC 



getct rlblk, getc 
RX_BUFFER_EMPTY. 



***** 



«*** 



0000 091C 
0000091C 205F 
0000091E 245F 
00000920 2.1SF 
00000922 28SF 
00000924 4850 
00000926 2l>6C 0020 
0000092A S2.8B 

0000092C 2349 003E 

00000930 6100 FAOP, 
00000934 6:00 FDOA 

00000938 2!!6C 002E 

004 A 
0000093E 2<i7C 0000 

0O06 004E 

00000946 2US2 0042 
0000094A 2F0A 

0000094C 0U38 0001 

FT DA 
000009S2 6614 
0O0O09S4 1F3C 0001 
00000958 2F2C 002E 

000009SC 600A 

0000095E 6100 F7F2 
00000962 4 A AC 0042 
00000966 6 (76 



nter_data equ * 

movea.l fspl+,aO 

movea.l ?sp)+,a2 

movea.l fsp)+,al 

movea.l (sp)+,a4 

pea (aO) 

movea.l c adr(a4 



*««******#******** 



addr (COUNT) 
PTR 

SCT 



addq . 1 
move . 1 



bsr 
bsr 



move . 1 
move . 1 



move . 1 
move . 1 



bne . s 
move .b 
move. 1 



♦T, a3 

al , dat a^address (a4 ) 



check ov error 
wait__TnxTrdone 



; initialize address 
; Escape if o/v error 



t imeout ( a4 ) , timeout_counte r ( a4 ) 
tt in t imeout , inne r_counter (a4) 



(a2 ) , data_number (34 ) 
a2,-(sp) 



tt time represent ,sysflag2 
in_l 



is timer present? tttt JS 8/11/83 



. -(sp) 
t imeout (a4 ) , -( sp) 



if not, continue 
else stack time rec 



tttt JS 8/11/83 
tttt JS -8/11/83 
tttt JS 8/11/83 



bsr 
tst .1 
beq . s 



eir 

dat a_numbe r (a4 ) 

in exit 



See if all characters transferred 
If so, leave 
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PAGE I 

2521 
2522 
20J3 
2524 

2625 
2526 
252" 
2528 
2529 

2S30 
2S31 
2532 
2533 
2534 
2535 
2S3S 

2537 

2533 
2539 

254 
2541 
234 2 
2543 
2544 
2545 
2545 
2 54 7 
2548 
2549 

255 
2551 
2552 
2553 
2554 
2555 
2556 
2557 

2558 
2559 

2560 

2561 
2562 

2S63 

2564 

2565 
2566 

2567 
2568 
256S 
2670 
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00000966 6100 F74B in_l 

O0000S6C 0838 0001 

FEOfi 
00000S72 6614 
00000874 4BBC 002E 
00000278 6736 
00000S7P 4857 
O00OOS7C 4E69 0000 

OOOO 
O00OOS82 6H2C 
00000S84 5C4F 
00000986 601S 

00000988 53BC 004E in_lb 
0000098C 6622 
0000098E 297C 0000 
0006 004E 
00000996 4BBC 004B 
00000990 6714 
0000099C S3BC 004F1 
000009BO 660E 
000009R2 20SF in_lc 
000009B4 2010 
000009B6 90flC 0042 
000009AR 2080 
000009BC 6000 F9BE 

000009B0 6100 F7B8 in_4 
00000984 6100 FE36 
000009B8 4B0O 
000009Bfl 67R2 

000009BC 6100 FE8C 
000009C0 4BC0 
000009C2 6740 

000009C4 6100 FD78 
000009C8 0C2C OOFF 

003C 
000009CE 6608 
000009D0 196C 003D 

0037 
00000906 6090 

00000908 396C 003C in_2 
0038 



00C0O9DE 0233 0CC1 

FEOfi 
000009E4 6602 
000009E6 5C8F 
000009E8 6100 F768 
000009EC 20SF 
000009EE 2010 
OO00O9FO 90BC 0042 



TfifiNS: HBNOSHStE TRANSFER CODE 

bsr find_RX6UF 

btst «t imer__present , sysf lag2 



File name: DC 



Set up a2.1 = buffer descriptor record 

base address 
using timer? 



bne . s 
tst . 1 
beq . s 
pea 
jsr 

bpl.s 
addq 



subq . 1 
bne . s 
move . 1 

tst .1 

beq . s 
subq . 1 
bne . s 
movea . 1 
move . 1 
sub.l 
move . 1 
bra 

bsr 
bsr 
tst .b 
beq . s 



t imeout ( d4 j 

in_4 



in_4 
#6,sp 
in 1 c 



if not then skip 
infinite timeout? 
then skip checking 
pusn ptr to time re 
and cneck timer 

if not timeout, keep trying 
else clean stack 
and do timeout stuff 



tttt JS 8/11/83 

tttt JS 8/11/83 

tttt JS 8/11/83 

tttt JS 8/11/83 

tttt JS 8/11/83 

tttt JS 8./11/83 

tttt JS 8/11/83 

tttt JS 8/11/83 

tttt JS 8/11/83 



#1, inner _counter ( a4 ) 

in_4 

#in_timeout , inner_counter ( s4 

t imeou"_coun:e r ( a4 ) 

in_4 

#1 , t imeout_counter ( a4) 

in_4 

(spjt.aG 

(aOI ,dO 

data_nurnbe r ( ai ) ,d0 

dO, (aO) 

time err 



Test for timeout condition 



bsr 
tst . 
beq . 



bsr 
cmpi -b 



bne . s 
move .b 



dir 

RX_stuff_avail 

dO 

in_0 

ct rlblknex t 

dO 

in_3 

getct rlblk 
#25S,term(a4) 

in 2 

mo3e(a4) ,which_RXbuf (a4) ;If so, do the buffer switch 

inl ; Bnd go back for more 

!..- rm_and_mode (a4 j ,last_enter_term(a4) 



; See if buffer is empty 

; If so, just sit here & wait 



If a control block is next 



Get it, and check for the special 
case TERn=2SS 



in exi* blst 



ttt ime represent ,sysflag2 



; Otherwise save the control block & leave 
using timer? tttt JS 8/11/83 



bne . s 


in ex2 




addq . 1 


#6,sp 




bsr 


eir 




movea . J 


(5 P ) +I 30 




move . 1 


(aO) ,d0 




sub.l 


data njmber 


(34 



no -- skip ahead 
else clean stack 



tttt JS 8/11/83 
tttt JS 8/11/83 
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2571 


000009F4 2080 




move . 1 


dO, (aO) 


2572 


000009FB 4BBC 


0042 


tst .1 


dat a_numbe r (a4) 


2573 


000009FH 6700 


FEF4 


beq 


outdone 


2574 


000009FE 7016 




moveq 


#E0D SEEN.dO 


2575 


00000900 6000 


F95C 


bra 


escape 


257 6 










2577 


0O0OOH04 4BHC 


0042 in_3 


tst.1 


data number(a4) 


2578 


OOOOOH08 67D4 




beq . s 


in_exit 


257 9 










2580 


00000R0R 6100 


FD6C 


bsr 


geichars 


2581 


OO0O0B0E 6000 


FF4E 


bra 


in_0 



*** File name : DC *** 



If nonzero then early EOT; escape 



see if chars to transfer 
yeSj go do it 



; move some data 

; & go back to check for ctrl blk 
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?1 :32:35 0: TRBNS 



HflNDSHfiKE TRANSFER CODE 



It S3 






25 84 






2585 






2586 






258? 






28PE 






2589 






2S9C 






2 59 1 






2592 






2593 






2534 






2595 






2596 






25 97 


0000 


0R12 


2598 


0OO00B12 2(>5F 




2539 


00000B14 25SF 




2600 


OOO00H16 i860 




2601 


0OO00B18 256C 


0020 


2602 


0OO00H1C 5188 




2603 






2604 


00000B1E 6100 


F91C 


2605 


00000B22 6100 


FC12 


2606 






2607 


OOOO0R26 6100 


F688 


2608 






2609 


0OO00B2B 296C 
0146 


002E 


2610 


0OO00B3O 297C 


0000 




0,'OB 


0052 


2611 


0OOO0B38 48fiC 


0046 


2612 


0OO00B3C 6 i'08 




2613 


0OO00B3E 0838 

FT OB 


0001 


2614 


OOOO0B44 6728 




2615 






2616 


00000B46 6100 


01F0 


2617 


00000B4B 4800 




2618 


OOOO0B4C 661E 




2619 






2620 


0OOO0B4E 5 3 AC 


0052 


2621 


OOOO0BS2 6; F2 




2622 


00000BS4 237C 


0000 




OOOB 


0052 


2623 


0OOO0B5C 48AC 


0046 


2624 


OOOOOB60 67E4 




262S 


0OO00B62 5 3AC 


0046 


2626 


00O00H66 66DE 




2627 


O0OO0B68 6000 


F8F2 


2628 






2629 


00000B6C 4E7S 




2630 






2631 


OOOO0B6E 1F3C 


0001 


2632 


00000B72 2F2C 


002E 


2633 


00000H76 6100 


01C0 


2634 


0OOO0B7B 4H00 




2635 


0OO00B7C 6616 





procedure OUTPUT END ( * 

var SCT: selec t_code_t able ); * 

* 

Equivalent to the BP3IC OUTPUT Sc;END. * 

This operation may hang waiting for space. * 

This routine calls find_TX6UF and * 

t ry__sendi ng_EOF. " * 



output _end equ * 

movea . 1 (sp) +, aO 
movea.l (sp) + ,a4 
pea (aO) 

movea .1 c ad r (a4 ) 
addq.l #T,a3 



bsr 



check_ov__e rror 
wait outxfrdone 



; Escape if o/v error 



bsr find_TXBUP ; Set up a2 . 1 = buffer descriptor record 

base address 
move.l timeout(a4)jOuter_t x_count (a4) 

move . 1 #sEt imecut , inne r_t*_count ( a4 ) 



tst .1 
beq . s 
btst 



oute r_tx_C0Lint ( a4 ) 

t r ysend 

ttt ime represent , sysf lag2 



beq. s try_ timer 



infinite loop? tttt JS S/3/84 

yes, normal loop tttt JS 5/3/84 

timer avail? tttt JS 5/3/84 

if so, use it tttt JS S/3/84 



trysend bsr 

tst . b 



subq . 1 

bne . s 
move . 1 



try sending EOF 

dO 

sentEOF 

#1 , inner _tx_count (a4) 

trysend 

#sEt imeo „t , inner_tx_count (a4) 



tst.l outer_tx_count(a4) 

beq . s t rysend 

subq. 1 #l , outer_tx_count (a4) 

bne .s trysend 

bra time_err 

sentEOF rts 

try_ timer move.b #l,-(sp) 

move.l time out (a4),-(sp) 

try_timer2 bsr try_sending EOF 

tst.b dO 

bne . s t ry_t ime r-3 



setup timer record tttt JS 5/3/84 

tttt JS 5/3/84 

tttt JS 5/3/84 

successful? tttt JS 5/3/84 

yes, get out tttt JS 5/3/84 
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2636 
2637 

2638 
2639 
2640 

2641 
2642 
264 3 
2644 



OO000A7E 4857 
0OOO0A8O 4Fi39 0000 

00 1)0 
C0000fl$6 6p-:f 
0OO00R88 5C4F 
0OO00A8R 29 'C 0000 

0001 0046 
00000R92 6092 
00000R94 5C4F 
OOO00H96 4E '5 



pea 
jsr 

bpl 
addq 



(sp) 
check^t ime r 

t ry_t ime r2 

#6,sp 

#l,outer_ 



point to t imer rec 
and check time" 



File name: DC 



tttt JS 5/3/84 
tttt JS 5/3/84 



.count (a4) 



if no timeout, loop tttt JS 5/3/8 
timeout, one more try tttt JS 5/3/8 
tttt JS 5/3/8 



with short count 



bra 
t ry_t ime r3 addq 
rts 



clean st ack 
and return 



tttt JS 5/3/84 
tttt JS 5/3/84 
tttt JS 5/3/84 
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AGE 7 


1 [3.0] 12 


'26/8' 


21 :32: 


2646 








»» 


2647 








* 


2643 








* 


2649 








* 


26S0 








* 


26? I 








* 


2652 








* 


;653 








* 


2554 








* 


29S5 








* 


2656 








* 


2657 








* 


2658 








* 


2659 








* 


2660 








* 


2661 








* 


2662 








* 


2663 








* 


2664 








** 


2665 










2566 




0000 


0A98 


CO 


2667 


OOOOOR98 


205 F 






2668 


OO0OOA3P 


321F 






2669 


OOOOOfWC 


34 IF 






2670 


OO0OOB9E 


285 F 






2671 


00000R30 


4850 






2672 


00000AA2 


266C 


0020 




267:5 


ooooofipe 


5263 






2674 










2675 


0OO00AA8 


6100 


F892 




2676 








* 


2677 


OOOOOARC 


1942 


003C 




2678 


00000B30 


6710 






2679 










26S0 


OO0OOA32 


6100 


FB82 




2681 










2532 


00000A36 


194 1 


0030 




2683 










2684 


00000A3R 


6100 


F5F4 




2686 


00000R3E 


6000 


00 B4 




2636 










2687 


OO0OORC2 


4A01 




ct 


2688 


0O00ORC4 


6 708 






26SS5 


ooooofi:6 


6100 


FB78 




2690 


ooooorca 


6000 


F850 




2691 


ooooorce 


4E75 




Ct 


2692 











35 DC TPANS: HANDSHAKE TRANSFER CODE 



CONTROL BFG ( 

var StTT : select_code_tabie ; 
REG: 0..127; 

VHL: 0..255); 



File name : DC 



Cor 
if 
the 



ol register is intercepted and 
MO0E=0 nc action is performed, otherwise 
is reset IMI1EDIATELY , 



This operation may hang waiting for space. 



The 
for 



This routine calls findTXBUF and putctrlblk* 



•anges of REG & VAL are not checked 
' a 1 i d i t y . 



_bfd equ * 
rnovea.l (sp)+,aO 
move .w (sp) + ,dl 
move.w (sp)+,d2 
rnovea.l (sp)+,a4 
pea (aO) 
movea .1 c adr [ a4 ) 
addq.l #T,a3 



bsr 

move .b 
beq . s 

bsr 

move .b 

bsr 

b r a 

tst .b 
beq . s 
bsr 

b r a 
rts 



check_ov_er ror 

d2, term( a4 ) 
ctrlO 

wait_outxf rdore 

dl ,rnode ( a4 ) 

find_TXBUF 
putctrlblk 

dl 

ct r ldun 

wait _i nx f rdone 

do reset 



VHL 
REG 
5CT 



; Escape if o/v error 

(tm) moved 12/02/81 

(Tm) ; Intercept CONTROL 



Set up a2 . 1 = buffer descriptor record 
base address 



0000 000B sEtimeout 
O000 000B pcbtimeout 



equ 

equ 
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2695 
2696 

2697 * ***** * * + *** * 

2698 * * ***** 

2699 * * ***** 

2700 * * * *,** * 

2701 * * ***** 

2702 * * ***** 

2703 * * * * **** ** 
2704 

2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 
2716 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
27 71 
2^32 
2733 
27 34 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 



*** File name: DC ** 



IUNCALIBRATED] 
[CALIBRATED 1 MS] 



routine TXCTRLBUFFroom: Function which returns the number of byte 

============== positions as yet unused in the Transmit ctrl 

Buffer. 

routine TXDATABUFFroom: Function which returns the number of byte 

============== positions as yet unused in the Transmit data 

Buffer. 



At entry: 

a2.1 = 

a3.1 - 

dS.l = 



TXBUFF base address {shifted, +1 tselectcode) 
card base address (lOOxxOOOl) 
TXOBTFBUFF_SIZE or TXCTRLBUFF_SIZE 
(unshifted, not adjusted) 



TXDATP.BUFF^FILL or TXCTRLBUFF J=I LL (unshifted) 
Number of bytes left 



Upon exit : 

dO.l - 

d3.1 = 

This also bashes d2 . 

This routine uses the card's SEMAPHORE to gain access. 

This routine calls gain_access and release^access . 

************************************************************** 



:******** 



0000 OADO 
OOOOOBDO 4280 
OO00OAD2 4283 
00000RD4 010A 0008 
OOO0OAD8 6100 F5S0 
00000ADC 070A 000C 
OOOOOAEO 6010 

0000 0AE2 
O0000AE2 4280 
OO0O0AE4 4283 
00000AE6 010A 001 
00000AEA 6100 ""' 
OO0O0AEE 070A 



53F 
001C 



TXCTRLBUFFroom equ * 
clr.l dO 
clr.l d3 

movep.w CTRL_AREB*FILL (a2) ,d0 
bsr gain~"access 

movep.w CTRL AREFUEMFTY (a2 ) , d3 
bra. 5 roornT 

TXDATABUFFroom equ * 
clr.l do 
clr.l d3 

movep.w DATAJ3RER*FILL(a2) ,d0 
bsr gain_access 

movep.w 0ATA_AREfl+EMPTY(a2) ,d3 



Get garbage out of top of d0&d3 



Need access to EMPTY 

Fetch pointers (bytes in wrong order) 



Get garbage out of top of d0&d3 



Need access to EMPTY 

Fetch pointers (bytes in wrong order) 



1-145 



FfiGF 

2752 

2753 
2754 
2755 
2756 
2757 
27 = 8 
2759 
2760 
2761 
2762 



[3.0] 12 -i» ,"84 21 :32:3b [i 

00000SF2 6 100 FS92 rooml 

00000RF6 E0S8 
00000RF8 EOSB 

00000RFP 9640 

OOOOOPFC 5 <43 

OOOOOfiFE 6802 

OOOOOBOO 0845 

00000B02 4E75 room2 



ror .w 

sub.w 
5llbq. v. 
oge . s 
add.* 

rts 



TX BUFFER UTILITIE 
release access 



#8 ,dC 
»8,d3 



File name: IjC 



d0,d3 
»1 ,d3 
room2 
d5,d3 



Switch bytes in dO & d3 



Compute d3 : EMPTY-FILL 
(EMPTY-FILL-1 ) 



If negative, add size 

Return (EMPTY-FILL-1) mod SIZE 



2811 
2612 
2613 
2614 
2815 
2816 
2817 
28 18 
2819 



routine putchars: 



fit en T ry: 



a2.1 
a3.1 
a4,l 
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2764 ***************##**##******:******** 

2 765 

2766 

2767 

2 768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2 "6 

2777 

2 7/8 

2779 

2 '80 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2 ,'sa 

27 89 
2790 
2791 
2792 
2793 
2794 
2795 
2 7 96 
2797 
2 ,'38 
2 -99 
280C 
2801 
2802 
2803 
23 04 
2805 
2806 
2807 
2803 
2 5 3 
2810 



*** File name: DC ** 

Routine which takes characters from the * 

area sc_subt abletype .dat a_address sized by * 

sc_subt abletype . data_number and moves * 

them to the Transmit buffer. The numcer of * 

characters actually transfered is the minimum * 

of: (1) the number of characters available; * 

(2) the number of byte positions left in the * 

Transmit buffer; and (3) the number of byte * 

positions in the Transmit buffer until the * 

wraparound point. THIS NU1BER CAN BE ZERO. » 

This alters data__address and data_number to * 

reflect where to start going next time this * 

is called. The entire transfer is done when * 

data_number goes to zero. * 



TX buffer record base address (shifted, 
card base address (SOOxxOOOl) 
pointer to sc_sub t able type structure 



+l+selectcode ) 



Upon exit: 

data number and data_address are updated, plus FILL in the 
card7"s Transmit buffer. 

al d4 and d5 are left with the values from f ind_DBTH_RREH . 
This bashes dO, dl, d2, d3, d4 , dS , aO, and al . 

Interrupts: 

This does its own enabling/disabling. Interrupts are left ON. 

This routine uses the card's SEMAPHORE to gain access. 

This routine calls gain_access, release access, TXDRTABUFFroom, 
and find DRTfl_RREfl . 



00C0 0B04 
0OCO0BO4 61C0 F5E6 



find DflTR RREP 



OOOOOB08 6100 F650 
00O00B0C 61D4 
OOOO03OE 22 30 
0OO00B10 2004 
O0O00B12 0280 0000 

FFFE 
00000B13 E2-0 
0OO00B1A 9081 

00000B1C B680 

3CO0OB1E 6E02 
O0OCOB2O 200 3 



O0O0OB22 242C 
00000B26 B4v0 



0042 pel 



bsr 
bsr 

move . 1 
move. 1 
andi . 1 

asr . 1 
sub.l 

cmp.l 
bgt .s 

move. 1 

move. 1 
cmp.l 



dir 

TXDRTRBUFFroom 

dO.dl 

d4,d0 

#$0O0OFFFE,dO 



Setup al 
d4 

3 3 



data buffer base addr 
end of data buffer addr 
rxDRTRBUFF_SIZE 



d3.1 - available buffer positions 
dO.l = dl.l = TXOflTflBU^F FILL 



#l,dO 
dl.dO 

d0,d3 

pel 

d3,d0 

data numbe r (a4 ) , d2 
d0,d2~ 



dO.l 
dO.l 



unshifted TXDRTRBUFF_END 
remaining positions to wr 



If d0>d3 then set do 



Fetch number of chars avail into d2 
If d0>d2 then set dO := d2 
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BUFFER UTILITIES 



2:20 


OO0OOB28 


6E02 






bgt .s 


pc2 


2621 


O00OOB2A 


2002 






move . 1 


d2,d0 


29-22 














2823 


00000B2C 


260C 




pc2 


move . 1 


d0,d3 


2824 














2825 


OO0OOB2E 


6740 






beq . 5 


pcdone 


2826 


OO0OOB3O 


534C 






subq .w 


*1 ,d0 


282'' 


OO0OOB32 


206C 


003E 




movea . '. 


data_address ( a4 ) , aO 


2828 














2825 


OO0OOB36 


E348 






lsl.w 


#1 ,dl 


2830 


OO0OOB38 


228F: 






add.l 


a3,dl 


2831 


OO0OOB3A 


4 8E7 


0040 




rnovem . '. 


al.-(sp) 


2832 


OO0OOB3E 


2241 






movea . '. 


dl ,al 


2833 














2834 


O0000B4O 


1298 




pcloop 


move .b 


(aO)t.(al) 


2S35 


OO0OOB42 


544S 






addq .w 


#2,al 


2836 


OO0OOB44 


S1C8 


FI-FR 




dbf 


dO, pcloop 


2837 














2838 


00000B48 


9483 






sub.l 


d3,d2 


2839 


00000B4R 


2S42 


0042 




move . 1 


d2,data_number ( a4 ) 


2840 


O00O0B4E 


2948 


003E 




move . 1 


aO,data_address (a4) 


2841 














2842 


OO0O0BS2 


2209 






move . 1 


al ,dl 


2843 


OO0O0BS4 


4CDF 


0200 




rnovem , : 


(sp)*,al 


2844 


O00OOB58 


H881 






cmp . 1 


dl ,d4 
pc3 


2845 


O00O0BSB 


6 092 






bne . s 


2846 


OOOOOBSC 


;:■ ;: ;', J 






move . 1 


al.dl 


2847 


OOOOOBSE 


0881 


0000 


pc 3 


bclr 


»0,dl 


2848 


00000B62 


EF5S 






rol .w 


#7,dl 


2849 


00000B64 


610C 


F4C4 




bsr 


gain access 


2850 


OO0OOB68 


033P 


0018 




movep .* 


dl.DHTA AREA*FILL(a2 


2851 


00000B6C 


HOC 


F5 1 8 




bsr 


release access 


2852 


O0000B7O 


6000 


F5E0 


pcdone 


bra 


eir 



File name: DC 



d3 . 1 saves number of chars actually 

transferred below 

If zero, no work to be done 

Make offset correct for dbf instr. 

Get character pointer into aO 



Save al so we can use the register 
Now al is useable pointer 

Transfer a character & bump source ptr 
Bump destination pointer (odd bytes) 
Then decrement dO 8 loop 



Now store adjusted number and 
address fields 

hove 68000 FILL pointer into dl 

Restore al before we forgetl 

Now check to see if FILL was moved 

past end of buffer. If so, set to 

the front of the buffer. 

Fix up the 68000 pointer to be the 

card's type of pointer 

Remember dl = card's FILL pointer. 
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2654 
2655 
2856 
2857 
2858 
28S9 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
266"' 
266? 
2866 
2870 
287. 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2676 
2680 
2881 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2683 
2890 
289 1 
2692 
2893 
2834 
2895 

2896 

2897 

2898 

2899 
2900 
2901 
2902 
2903 

2904 

2905 
2906 



*** File name: DC 
********************* 



routine putct rlblk : 



Routine which puts a control block into the 
Transmit buffer area of the card. The 
appropriate pointers are updated to reflect 
the control block. This routine also contains 
a timeout mechanism which will be adjusted 
to the proper values later. If a timeout 
occurs, an escape is done with NO DAMAGE to 
the buffer. The only thing that can cause the 
timeout is < 4 positions left in the control 
buffer. SEMAPHORE timeout is not handled 
by this rout ine . 



At entry: 



sc_subtabletype.term = TERM field for control block (8 bits) * 

sc_subtablet ype .mode = MODE field for control block (8 bits) * 

a2 . 1 = TX buffer record base address (shifted, +l+selectcode) * 

a3.1 - card base address ($00xx0001) * 

a4 . 1 = pointer to sc_subtabletype structure * 

Upon exit : * 

FILL in the card's transmit control buffer is updated. * 

al, d4 and d5 are left with the values from find CTRL_FIREP). * 

This bashes do, dl, d2, d3, d4, dS, aO and al . * 

This uses inner/outer__tx count for computing timeouts. * 

* 

Interrupts : * 

This does its own enabling/disabling. Interrupts are left ON. * 

* 

This routine uses the card's SEMAPHORE to gain access. * 

This routine calls TXCTRLBUFFroom, escape, gain_access, f ind_CTRL_AREfl ,* 
eir, dir and release_access . * 



*******#*. **** 



**************** 



3006 
3100 



0B74 
F57E 



putctrlblk equ * 

bsr find_CTRL_AREA 



O0O0OB73 
OO00OB7E 



O00O0B8E 
00000B92 
O0000B9S 

O000OB9C 
00000B9E 
00000BA2 



2966 
604 6 
297C 
00OB 

3838 
FEDA 
376C 

5100 

6100 
0C83 
0004 
6C22 
6100 
5396 



6600 
0652 



6566 
F=3C 

0060 



F562 

0)62 



move.l t imeout ( a4 ) ,out e 

move . 1 ttpcbt imeout , inrier_tx_count ( a4 ) 



; Setup al = Ctrl buffer base addr 

d4 = end of Ctrl buffer addr 

d5 = TXCTRLBUFF_SI2E 
count (a4 ) 



Load timeout value 



btst 

beq . s 

pcbwait bsr 
bsr 
cmpi . 1 

bge . s 

bsr 
subq . 1 



ttt ime represent , sysf lag2 

pcbt ime 

dir 

TXCTRLBUFFroom 

#4,d3 

roomok 

eir 

ttl , inner_tx_count ( 



timer present? 
if so then use it 



tttt JS 8/11/83 
tttt JS 8/11/83 



Get d3 
and do 



Kbytes available in buffer 
CTRLBUFF_FILL (unshifted) 



; If >=4 bytes, can go ahead! 
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2907 
2908 

2909 
2910 
291! 
2012 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 

2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
29 33 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 

2943 
2944 
294S 
2946 

2947 
2948 
2949 

2950 
2951 
2952 



0000CBA6 S6E6 bn<» s 

00O00BA8 297C 0000 move.l 

OOOB 0052 

OOOOOEBO 4AAC 0046 tst 1 
00000EB4 £.703 beq 5 

00000EB6 23AC 0046 subq.l 
0OO00B6S f.6D2 bne.s 

OOOOOBBC 6000 F79E bra 

OOOOOBCO E348 roomok lsl.w 
0OO00BC2 B08B add.l 

0OO00BC4 2040 



pebwait ; Loop, then if il 

#pcbt imeout , inner_tx_count (a4 ) 

outer^tx_count (a4 ) 

pcbwaTt 

#1 , outer _tx_count ( a4) 

pebwait 

time_e r r 



*** File name: DC 
times out give an 



#1 ,d0 

a3,d0 

movea .1 dO , aO 



OOO0OBC6 010A 0018 
0OO00BCA 188 0000 
000O0BCE 302C 003C 
0OOO0BO2 0188 0004 
00000BD6 D1FC O0O0 
0008 

0OOO0BDC 2208 

0OOO0BOE B381 
0OO00BEO 6602 
00000BE2 2209 
OOOO0BE4 0381 O0O0 pcbl 
00O00BE8 EF59 
OOOOOBEH 6100 F43E 
00000BEE 038A 0008 
00O00BF2 6100 F492 
OOO00BF6 6000 F55A 



movep.w DATA AREB»FI LL (a2 ) , dO 

movep.w dO, POINTER (aO) 

move.w term and mode(a4),d0 

movep.w dO.TE"RMFTEL0(a0) 

adda.l ttCTRLBLKSIZE , aO 



move . 1 
cmp. 1 
bne.s 
move . 1 
bclr 
rol.w 
bsr 

movep .w 
bsr 
b r a 



00000BFA 4AAC 002E pcbt ime tst.l 

00000BFE 678E bed 

OOOOOCOO 1F3C 0001 move.b 

00000C04 2F2C 002E move.l 

00O00CO8 6100 F550 pcbtloop bsr 



0000020C 6100 FEC2 
00000C10 0083 0000 
0)04 

ooooocie 6 :ic 

00000C18 6 100 FS38 
0OOO0C1C 4:357 
OOOOOCIE 4EB9 0000 

0000 
00000C24 6rtE2 
00000C26 5i;4F 
OOO00C28 2J7C 0000 

0001 0046 
000O0C30 6O00 FF5C 
00000C34 5C4F 
OOOO0C36 6088 



bsr 
empi . 

bge.s 
bsr 

pea 
jsr 

bpl 

aedq 



troomok addq 
bra 



aO.dl 

dl ,d4 

pcbl 

al ,dl 

*0,dl 

»7,dl 

gain access 

dl ,CTRL_f1REfl + FILL(a2) 

release_access 

eir 

timeout { a4 ) 

pebwait 

#1,-(=P) 

timeout (a4), -(s 

dir 

TXCTRLBUFFroom 

#4,d3 



escape (t imeout J . 

Make CTRLBUFF_FILL into a 68000 

pointe r 

Put in aO to use it. 

Get the DATA FILL pointer to put 
into the POINTER FIELD 



Bump pointer by TUO bytes 



Move 68000 FILL pointer into dl 
Now check to see if FILL was moved 
past end of buffer. If so, set to 
the front of the buffer. 
Fix up the 68000 pointer to be the 
card's type of pointer 



see if infinite timeout 
if so use other loops 
else setup time record 

loop checks copied from 
code above 



t roomok 

ei r 

(sp) 

chec k^time r 

pcbt loop 

#6, sp 

#1 ,outer_ 

pebwait 
#6, sp 
roomok 



push ptr to time rec 
t imeout? 

no, do loop again 
yes, clean stack and do 
_count(a4) quick final check 



normal exit -- cleanup stk 
and return 



tt JS 8/11/83 

tt JS 8/11/83 

tt JS 8/11/83 

tt JS 8/11/83 

tt JS 8/11/83 

tt JS 8/11/83 

tt JS 8/11/83 

tt JS 8/11/83 

tt JS 8/11/83 

tt JS 8/11/83 

tt JS 8/11/83 

tt JS 8/11/83 

tt JS S/3/84 

tt JS 5/3/84 

tt JS 5/3/84 

tt JS 8/11/83 

tt JS 8/11/83 
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2954 

2955 
2956 
2957 
2958 

2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2957 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
29S5 
2936 
2987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2926 
2997 
2998 
2999 
3C00 
3001 
3002 
3003 
3004 



3005 
3026 
3007 



21 :32:35 OC_TXBUF: 
* rout ine t r 



TX BUFFER UTILITIES 



y_sending_E0F: tries to send EOF * 
and returns immediately if * 

unsuccessful . * 



**» File name: DC 



At entry: 
a2.i - 
a3. 1 = 
a4 . 1 = 

Upon exit : 
dO.l = 



TX buffe r- record base addr 

card base address 

pointer to sc_subt ablet ype 



if unsuccessful; 

1 if successful . 



This bashes dO.dl , d2 ,d3,d4 ,dS , aO 



0C0O 
0OO00C38 7204 
00O00C3A 4280 
0OO00C3C 102A 
OOOOOC40 671C 
OOOO0C42 2200 
O0OO0C44 6100 



00000C48 6100 
00000C4C 6100 
00O00C5O B681 
00000C52 6C08 
02000054 6100 
00000C58 4280 
OOOOOCSA 4E75 

0OO00C5C 7208 

00O00C5E 6100 



)C38 t ry_sending_E0F 



itiovec 
clr.l 
move . b 
beq -s 
move. 1 
F4A6 sEl bsr 



FFFC 



equ * 

#4,dl 

dO 

TXENDBL0CKSPACE-TXBUFF(a2 

sE3 

dO.dl 

find DATfi AREA 



510 sElloop bsr 
bsr 
cmp. 1 
bge . s 



=E34 
F4FC 



ro room 



bsr 

clr.l 

rts 



sE2 
: 4 94 sE3 



dir 

TXOATABUFFroom 
dl ,d3 
sE2 

eir 

dO 



*8,dl 
find_CTRL_AREA 



0OOO0C62 6 1 10 
0OO00C66 6110 
00O00C6A B631 
0OO00C6C 6016 
C00G0C6E 6100 
0OO00C72 60E4 

OOOO0C74 4H2A 
00000C78 6726 
O00O0C7A 3S7C 

003C 
OOOOOC80 61 10 
0OO00C84 429C 
0OO00C88 19 SB 

OCT 5 



F4F6 sE31oop bsr 
bs r 
cmp. 1 
bge.s 



FE68 
F4E2 



FFFC sE4 

0501 

FEF2 
0042 
FFFC 



bsr 
br a .s 

1 5 1 . b 
beq . s 
move .w 



clr.l 
move.b 



dir 

TXCTRLBUFFroom 

dl,d3 

sE4 

eir 

no room 

TXENDBL0CKSPBCE-TXBUFF(a2) 

sE6 

•$0501 ,term_and_mode(a4) 



l.dO 
If it's zero jump down & wait for 4 
bytes in the control queue 
Setup al = data buffer base addr 

d4 = end of data buffer addr 
dS = TXDBTBBUFF_SIZE 

Now hang until enough space becomes 
available in the data queue 



if TXENDBLOCK3PRCE#0 then wait for 

8 bytes, not 4. 

Setup al = Ctrl buffer base addr 

d4 = end of Ctrl buffer addr 

d5 ■= TX2TRLBUFF_SIZE 

Now hang until enough space becomes 
available in the Ctrl queue 



There's enough room nowl 1 If zero 
then just send 1 block Pelow 



putct r lb Ik 

data number(a41 ; Followed by some space 

TXENBBL0CKSPfiCE-TXBUFF(a2) , dat a_numbe r+3 (a4 ) 
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3008 OO0OOC8E 2S7C FFFF move.l ttlFFFFOOOO , dat a address(a4) ; kluge so it isn't left pointinq 
OOOC 003E ~ i-s 

30°?0 0O0OCC96 610C FE6C sES bsr put chars " """""^ * ^ DU5 '""' 

3011 OO0OOC9H 4RHC 0042 tst.l data number(a4) : Hanq until all sent 

3012 0O0O0C9E 66F6 bne.s sE5 ~ 9 

3013 OOOOC'CflO 397C 0500 sE6 move.w #$05 00, term and mode(a4] 

003C ~ 

3014 OO0O0CR6 610C FECC bsr putct'lblk 

3015 OOOOC'Cftfl 7001 moveq *l,dO 

3016 OOOOOCRC 4E7S rts 
3017 

3018 

3019 end 

PASS 1 ERRORS: 
PfiSS 2 ERRORS: 
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DGLAUTL 



Description 

DGL_AUTL provides assembly language utility routines for DGL scaled moves and draws. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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l-'-L't 

PASS 1 

1 

2 
3 

4 
5 
6 



10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
SI 
52 
53 
54 
55 
56 
57 
58 



1 [3 .0] 12/2i '84 22:38:04 
LOMPLETE. ERRORS: 



ASSEMBLY OF DGL PIUTL .TEXT 



** File name: DGL AUTL 



* Pascal work station graphic library 

* scaling routine 



« Module 

* Programer 

* Date 



= DGLJ9UTL 

= BJS 

= 8/27/82 



Purpose : To provide lev 
Rev history 



level asmb routines for DGL 



Created 
Modified 



8-27-82 
11-23-82 
2-10-82 
6-27-83 



- BJS 

- BJS Removed ck for static link on proc calls 

- BJS Removed gcb, and proc var parms for performance 

- BJS Removed module init body, now in 

module DGL_IB0DY 



(c) Copyright Hewlett-Packard Company, 1983. 
fill rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 



RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
paragraph (b) (3) {&) of the Rights in Technical 
Data and Computer Software clause in 
DAR 7-104 .9(a) . 

HEULETT- PACKARD COMPANY 
Fort Collins, Colorado 



MNAME DGL_AUTL 

src module dgl_autl; 

src export 

src PROCEDURE dgl_sc aled_move ; 

src PROCEDURE dgl_scaled_dr aw; 

src end; 

Define entry points 



ro rg 
def 
def 
def 



dgl_autl_dgl_aut 1 

dgl_autl_dgl_scaled_move 

dgl_autldgl_scaled_draw 



Define externals 



ref a 
Imode 



d g 1 _v a r 5 
dgl_vars 



59 
60 

61 
62 
63 

64 
65 
66 
67 
68 
69 
70 
71 
72 
73 



80 

81 
82 
S3 
84 
85 
86 



89 
90 

91 

92 

93 

94 

35 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

1CS 

'.C7 

108 

109 

110 

111 

112 

113 

1 14 

115 
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* Defile ASMB control information 

nosyms 

* Define constants 

0000 0005 global equ a5 
0000 0003 gle_gcb equ a3 

** global variables 

FT-F FF60 scale factors equ dgl vars-160 

FL "F ILSE short defaults equ dgT_vars-162 

FF'T M":-F s ys terrMni t equ dgl_vars-l 

F I : F H'L disp init equ dgl_vars-2 

Fl ■ F IT- j loc_Init equ dgl_vars-3 

FFiF I I " 4 S gle_gcb._def equ d9l_vars-18S 

include ASM TYPES 
00'iQ 0013 AIJAIT BLINKING equ 2"4 
OC'OO 01 '£ BACKGROUND equ 398 
OCOO 0020 BUFFER MODE equ 32 
OCOO 029C CALC S5FT_TEXT XFORM equ 668 
0C00 020A CALC TEXT XFORM" equ 666 
OCOO 01 D2 CHAR_HEIGFTT equ 466 
0070 01 E6 CHAR JUST X equ 486 
OCOO 01 EA CHAR^JUST^Y equ 490 
0000 0028 CHAR SIZE equ 40 
0000 0180 CHAR_SIZES equ 432 
OCOO 01D6 CHAR SPACE equ 470 
OCOO 01CE CHAR WIDTH equ 462 
00O0 0O30 CLEAR" equ 48 
0000 0O38 CLIPJ.IMITS equ 56 
0000 01F2 CLIP_LIMITS_XMAX equ 498 
OCOO 01EE CLIP LIMITS XMI N equ 494 
0000 01FB CLIP_LIMITS YMAX equ 506 
OCOO 01F6 CLIP LlnlTS'YUIN equ 502 
OCOO 0196 COLOR" MAP SUPPORT equ 406 
0000 0190 COMPLEMENT SUPPORT equ 400 
0000 01PA CONT LINESTYLES equ 426 
0000 023P, COSX TABLE equ 570 
00OO 024A COSY""TAALE equ 586 
0000 0208 CURRENT BUFFER MODE equ 520 
0000 0212 CURRENT~COL0R INDEX equ 530 
000 01 FE CURRENT ~CURSOR"_STATE equ 510 
0000 0200 CURRENT"~CURSOR X equ 512 
0000 0204 CURRENT""CURSOR" Y equ S16 
OCOO 0216 CURRENT"~DRAUING" MODE equ 534 
0000 0214 CURRENT"FILl INDEX equ 532 
0000 020A CURRENT""LINES"TYLE equ 522 
0000 0210 CURRENT""LINESTYLE_MODE equ 528 
0000 020C CURRENT"LINESTYLE_PATTERN equ 524 
OCOO 0218 CURRENT"LINEUIDTH equ 536 
OOCO 020E CURRENT"PATTERNJ.ENGTH equ 526 
OCOO 0220 CURRENT POLYGON 8LUE equ 544 



File name: DGL_ a L)TL 
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116 
117 
118 
119 
120 
12! 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 



3 [3.0] 12/26/84 22:38:04 ASSEMBLY OF DGL_fiUTL .TE.< i 

0000 021A CURREN-_P0LYGON_:0L0F> equ 538 

0000 021E CURREN T _POLYGON_GREEN equ 542 

0000 021C CURREfr_POLYGON RED equ 540 

0000 01B2 CURREN~_POS X equ 434 

0000 01B6 CUPREN" POS Y equ 438 

0000 0040 CURSOR equ 54 

0000 0048 DEFINEJOLOR MAP equ 72 

OOOf 0050 DEF'INE_DRBUIflG MODE equ 80 

0000 314C DEVICE BUF equ 332 

0000 0154 DEVICE~INFO equ 340 

0000 0158 DEVICE INFO CHAP COUNT equ 344 

0000 3150 OEV DEF_STUFF equ 336 

0000 316C DISPLAY_HANDLER_CHAR_COUNT equ 364 

0000 0166 DISPLAYHANDLER NfiriE equ 358 

0000 3186 DISPLflYjlflX X equ 390 

0000 0180 DISPLAYJ1AX Y equ 394 

0000 017E DISPLAY_MIN_X equ 382 

0000 0182 DISPLAY MIN Y equ 386 

O000 01SE DISPLAY^NAMF. equ 350 

0000 0164 DISPLAYNAME CHAR_COUNT equ 356 



** File name : DGL AUTL 



eqi 



366 
374 



0000 016E OISPLAY_RES X" 

0000 0176 DISPLAY RES Y eqi 

0000 OlflO DITHER SUPPORT equ 416 

0000 0058 DRAW equ 88 

0000 0118 DUtiriY XXX equ 280 

O00C 018A END_X equ 442 

0000 01BE END Y equ 446 

0000 0194 ERAS~E_SUPPORT equ 404 

0000 OlSPi ERROR RETURN equ 346 

0000 0060 FILL INDEX COLOR equ 96 

0000 0068 FLUSH_BUFFE'R equ 104 

0000 01A6 GAMUT equ 422 

0000 0070 GET_C0L0R MAP equ 112 

0000 0080 GET POLYGON INFO equ 128 

0000 0078 GET RASTER equ 120 

0000 0088 GLOHD equ 136 

0000 0090 GRAPHICS ON OFF equ 144 

0000 0098 GSTORE equ TS2 

0000 00A0 INDEX COLOR equ 160 

0000 0000 INF01 equ 

0000 0004 INF02 equ 4 

0000 0008 INF03 equ 8 

0000 OOOC INF04 equ 12 

O000 0010 INF0_PTR1 equ 16 

O000 0014 INFO PTR2 equ 20 

0000 00P.8 INC P1P2 equ 168 

0000 0148 I0CB" equ 328 

0000 0120 I0_INQ TinEOUT equ 288 

0000 0128 I0_READ" equ 296 

0000 0130 10 SET TIMEOUT equ 304 

0000 0138 10 TERFI equ 312 

0000 0140 10 URITE equ 320 

0000 01CC KATA equ 460 

0000 00B8 L1NESTYLE equ 184 

0000 00B0 LINEUIDTH equ 176 

OOCO 01AE LINEUICTHS equ 430 

0000 OlOfi LINE_SPP.CE equ 474 



173 
174 
175 
17 6 
177 
178 
179 
180 
181 
182 
183 
184 
185 
136 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
2C8 
2C3 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
22 3 
224 
225 
22 5 
227 
22 8 
229 



4 [3.0] 12/26/84 22:38:04 ASSEMBLY OF DGL_PUTL .TEXT 

0000 OOCO MARKER equ 192 

000O 01C8 MARKER HEIGHT equ 456 

0000 00C8 MARKER SIZE equ 200 

COOO 01C2 MARKER_TYPE equ 450 

OOOO 01C4 MARKERJJIDTH equ 452 

0000 OODO MOVE equ 208 

0000 0192 NON DOMINANT SUPPORT equ 402 

0000 0222 0LD_A5 equ S4~6 

0000 0226 OLD A6 equ S50 

0000 O0D8 OUTPUT ESCRPEI equ 216 

0000 OOEO OUTPUT ESCRPEO equ 224 

0000 01R2 PALLETTE equ 418 

0000 O0E8 POLYGON equ 232 

0000 019C POLYGON FILL FACTOR equ 412 

OOOO 019E POLYGON SOLID" FILL equ 414 

0000 0198 POLYGON SUPPORT equ 408 

OOOO 019R REOEF BACKGROUND equ 410 

OOOO OOFO SET MARKER equ 240 

OOOO 026R SINK" TRBLE equ 618 

OOOO 027R SINY TABLE equ 634 

OOOO 02D2 SOFT_CLIP CPX equ 722 

OOOO 02D6 SOFT_CLIP CPY equ 726 

OOOO 02C0 S0FT_CLIP_SAVEXO equ 704 

OOOO 02C4 SOFT CLIP SBVEX1 equ 708 

OOOO 02C8 SOFT_CLIP SAVEYO equ 712 

OOOO 02CC SOFT CLIP SAVEY1 equ 716 

OOOO 02D0 SOFT CLIP SWITCH equ 723 

OOOO 02A4 SOFT FONT PTR equ 676 

OOOO 02A8 SOFT TEXT~TEMP1 equ 680 

OOOO 02AC SOFT TEXT TEMP2 equ 684 

OOOO 015C SPOOUING equ 348 

OOOO 00F8 TEXT equ 248 

OOOO 01E2 TEXT_COS_DIR equ 482 

OOOO 0100 TEXTJIR equ 256 

OOOO 0108 TEXT JUST equ 264 

OOOO 0232 TEXT LINE X equ S62 

OOOO 0236 TEXT LINE"Y equ S66 

OOOO 01DE TEXT_SIN D~IR equ 478 

OOOO 022A TEXT_SPAC"E_X equ 554 

OOOO 022E TEXT SPACE Y equ 558 

OOOO OHO TEXT SPACING equ 272 

OOOO 02B8 UNCLTPPED DRAU equ 696 

OOOO 02BO UNCLIPPED MOVE equ 638 

OOOO 01AC VECT LINE5TYLES equ 428 



File name: OGL AUTL 



*********************** ********************************************** 

* integer scale 
* 

* aO -> display offset d2 

* window_cfelt a dl 

* display_delta dO 
* 

* end_x := [end_x * di5plav_delt a) / window_delta + display_of f set ; 

* end_y :* . . . 
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'AGE 5 [3.0] i;:,-;-;/(!4 22:33:04 ASSEMBLY OF DGL_RUTL . TEXT «** File name: DGLJHJTL 

230 » 

231 500 0000 d9l_autl_dgl_scaled_draw equ » 
232 

233 OOOOOOOC L36D FF46 movea.l gle_gcb def (global ) ,gle_gcb get gcb 
234 

235 OOOOOOOi 1-12D FF5E tst.b sho rt_de faul ts (global ) is scaling needed? 

236 0000000c t 52(5 bne . s donel 
237 

238 OOOOOOOh 25.2B OlBfl move.] eno_» ( glegcb ) , d6 
239 

240 OOOOOOOE MED FF60 lea sea le_f act or s ( qloba 1 ) . aO 

241 00000012 4598 O03F movem.w (aO)*,dO-d5 get scaling factors 
242 

243 00000016 (MCO muls d0,d6 

244 00000018 85C1 divs dl,d6 

245 0000001A 6364 bvs.s t db 

246 0000001C0542 add.w d2,d6 
247 

248 0000001E 4 3C6 ext .1 d6 

249 00000020 2 746 01BR move.l d6 , end_x (gle_gcb ) 
250 

251 00000024 2 52B 01BE move.l e nd_y (gle_gcb ) , d6 
252 

253 00000028 C.5C3 muls d3 , d6 

254 0000002BS5C4 divs d4 , d6 

255 0000002C63S2 bvs.s tdb 

256 0000002E DG4S add.w d5,d6 
257 

258 00000030 4 JC6 ext .1 d6 

259 00000032 2 746 01BE move.l d6,end v(gle gcb) 
260 

261 0500 0036 donel equ * 

262 00000036 2F0B move.l g le_gcb , - ( sp ) setup to pass gcb ptr 

263 00000038 206B 0058 movea.l d raw (g le_gcb ) , aO no static links 

264 0000003C 4 iE90 isr ( aO ) call draw 
265 

266 0000003E 4i-)7S rts 

267 

268 0000 0040 dgl_autl_dgl_scaled_move equ * 

269 

270 00000040 256D FF46 movea.l glejcb„def (global ) ,gle_gcb get gcb 

271 

272 00000044 4A2D FFSE tst.b shor t_defaults (global ) is scaling needed? 

273 00000048 6>52C bne . s done2 
274 

275 0000004R 2G2B 01BB move.l end_x(gle gcb),d6 
276 

277 0000004E41ED FF60 lea scale factors (global) aO 

278 00000052 4G98 003F movem.w (a0)+,d0-d5 get scaling factors 
279 

280 00000056 CXO muls d0,d6 

281 00000058 8:iCl divs dl,d6 

282 0000005B 6324 bvs.s tdb 

283 O0OO0O5C PG42 add.w d2,d6 
284 

285 0000005E 43C6 ext .1 d6 

286 00000060 2 746 01B0 move.] d6, end_* (g le_gcb ) 



PfiGE 6 [3.0] 12/215/84 22:38:04 ASSEMBLY OF 0Gl__AUTL . TEXT «** File name: DGIJ5UTL 

287 

288 00000064 2 52B 01BE 
289 

290 00000068 C15C3 

291 0000006R 8CC4 

292 0000006C 6312 

293 0000006E L5G4S 
294 

295 00000070 4rfC6 

296 00000072 2 '46 01BE 
297 

298 0000 0076 done2 

299 00000076 ?i-0E 

300 0000007S 2066 O0D0 

301 0000007C 41)90 
302 

303 0000007E 41)75 
304 

305 00000080 41)76 tdb 

306 00000082 4F7S 
307 

308 **********************#********#******#********************* 

309 * 

310 0000 0084 dgl autl dgl autl equ * 
311 

312 00000084 4F.7S rts 

313 
314 end 

PfiSS 1 ERRORS: 
PASS 2 ERRORS: 



move . 1 


e n d_y(gle_gcb) , d6 


mul5 
divs 
bvs . s 
add .w 


d3,d6 
d4,d6 
tdb 
d5,d6 


ext . 1 
move . 1 


d6 

d6, end_y (gle_geb) 


equ * 
move . 1 
movea ■ 1 


gle gcb.-(sp) setup to pass gcb pti 
move(gle_gcb),aO no static links 
( aO ) call draw 


rts 




1 rapv 


ove rf low 
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DGLJBODY 



Description 

DGL_IB0DY contains a routine to set DGL globals to a known, "uninitialized" state. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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SEI1BLV OF DGi._IBnDY.TEXT 



PPSS 1 CJMPlETE. ERFiiRS: 
1 



2 * Pascal work station graphic library initialization body 

3 * 

4 * Module = DGL IBODY 

5 * Programer = BJS 

6 • Date = 8/27/82 

8 * Purpose : To set globals state to known value (uninitialized) 

9 * 

10 * Rev History 

11 * 

12 * Created - 6-27-83 - BJS 

13 » Modified - 

14 * 

15 * 

16 * (c) Copyright Hewlett-Packard Company, 1983. 

17 * fill rights are reserved. Copying or other 

18 * reproduction of this program except for archival 

19 * purposes is prohibited without the prior 

20 * written consent of Hewlett-Packard Company. 

21 * 

22 * 

23 * RESTRICTED RIGHTS LEGEND 

24 * 

25 * Use, duplication, or disclosure by the Government 

26 * is subject to restrictions as set forth in 

27 * paragraph (b) (3) .B) of the Rights in Technical 

28 * Data and Computer Software clause in 

29 * D3R 7-104 .9(a) . 

30 » 

31 * HEWLETT PACKARD C0I1PPNY 

32 * FsM Collins, Colorado 

33 * 

34 * This module is called during module initialization ('pre-run") time. 

35 * It sets the state var scales for the graphics library to indicate that 

36 * the library is not initialized. This is done to indicated to the 

37 * library that pointers in global space may no longer be valid (i.e. 

38 * dynamic space used by the library no longer belongs to the library 

39 * after program termination). This procedure resets variables, which 

40 * might not be reset by the loading process since the library can be 

41 * ' P loaded' . 

42 * 

43 * Linen using segments, 'his module may be dummied out to allow graphics 

44 * routines to be called in many segments without re- initializing the 

45 * library in each segment. However, the library and the display 

46 * (gr aphics_init , d i splay i nit ) MUST be initialized in the main 

47 * program. This is so the dynamic memory for the library will remain 

48 * between segment calls 

49 * 

50 ilNHME 0GL_1B0DY 
SI 

52 src module dglJBOOY; 

53 src export 

54 src end; 
55 

56 * Define entry points 

57 

58 00000000 rorg 



GE I [3.0] 12/26/84 22:39:07 ASSEMBLY OF DGL_1BHDY.TEXT *** File name: DGL_IB0DY 

59 def dgl_ibody_dgl_ibody 

60 

61 * Define externals 

62 

63 refa dgl_vars 

64 lmode dgl_vars 
65 

66 

67 * Define HSMB control information 

68 

69 nosyms 

70 

71 * Define constants 

72 

73 0030 O005 global equ an 

74 0000 0003 _le__cb equ a3 

75 * 

76 ** global variables 

77 * 

78 FFFF FFFF system_init equ dgl_/ars-l 

79 FFFF FFFE disp init equ dgl_/ars-2 

80 FFFF FFFD loc_Tnit equ dgl_vars-3 
81 

83 » 

84 0000 0000 dgl_ibody_dgl_ibody equ 
85 



************** 



* Initialize system variables to not enabled. 

00000000 422D FFFF clr.b system_init (global ) 
00000004 422D FFFE clr.b disp init (global) 
00000008 422D FFFD clr.b loc_ini t (global ) 



89 
90 
91 OO0O0O0C 4E7S 



92 

93 

PP.SS 1 ERRORS: 
PASS 2 fRRORS: 
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DISCINT 



Description 

DISCINT contains assembly language low-level drivers. 



Usage 

DISCINT is used for the 98625 interface. 



Requirements 

DI_DRV and COMASM. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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FSGE 1 [3.0] IZ/l-i/St 21:30:57 ASSEMBLY OF DISCINT.TEXT »»* File name: DISCINT 

PASS 1 COMPLETE. ERRORS: 



IGE ;' [3.0] 12/2E/84 21:30:57 IOLIB EXTDI - 98625 DISC INTERFACE DRIVERS »** File name: DISCINT *«* 

3 *********** ********************************************************************* 

4 * 

5 * copyright (c) 1934 by HEULETT-PACKARD COMPRNY 

7 ******************************************************************************** 

8 * 

9 * 

10 * iolib extdi 

11 * 

12 * 

14 * 

15 * 

16 * 

17 * library- iolib 

18 * author - 

19 * phone 

20 * 

21 * purpose - this set of assembly language code is intended to be used as 

22 * a PASCAL module for i/o drivers for use by the external i/o 

23 * procedures library. 

24 * 

25 * date - 05/03/82 

26 * update - 08/10/83 

27 * release - 5/15/84 

28 * 

29 * 

30 * source - IOLIB :DISCINT .TEXT 

31 * object - IOLIB:DISCINT.CODE 

32 * 

33 * 

34 ******************************************************************************** 

35 * 

36 * 

37 * released 

38 * version 3.0 

39 * 

40 * 

41 ******************************************************************************** 
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4 3 

4 4 
£5 

40 
47 

49 

5 j 
51 
: 2 

54 
^5 



3 [3.0] 12/26/34 21:30:57 ICLIB EKTDI - 9862 c DISC INTERFACE DRIVERS 



** File name : DISCINT 



bug fix history 

bug # by / on 
1 1 1 r 



after release 



descr ipt ion 



di_wfc 
di_TFC 
inpu t_t f r_t e r 



Changes to use timer 
on UW"! boards if avail. 



[3.0] 12/26/ 



21:30:57 IOLIB EXTDI 



57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 



89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 



25 DISC INTERFACE DRIVERS 



*** File name : DISCINT 
j/hat this module 



the following lines a-e used to tell the linker/loader 
looks like in PASCAL terms. 

note that it is possible to create assembly modules that are functions, 
these routines are called through an indirect pointer using the call 
facility which does not permit functions. 

this module is called 'extdi' ( upper or lower case - doesn't matter ) 
independent of the file name ( by use of the mname pseudo-op ). 

all the externally used procedjres are called 'extdi_@@@@@<a@@' in 
this module. if you ^re using assembly to access them use the 
'extdi_@@@@@@<?' name. if you are using PASCAL use the '@-~~-™ 
name . 



mname extdi 



arc 
src 
src 
src 
5 re 
src 
src 
s re 
S re 
src 

5 rc 
5rc 
src 
S'-C 
5 -C 
5 "C 

5 rc 

S "C 
5 rc 
src 

5 "C 
5 "C 

src 



module extdi 

import 

export 



iodeclar at ions ; 

procedure edi_i 

procedure edi_isr 

procedure edi^rdb 

procedure edi_wtb 

procedure edi 

procedure edi_ 

procedure edi_ 



rds 

procedure edi_wtc 

procedure edi__tfr 

procedure edi^send 

procedure edi_end 

procedure edi_ppoll 

procedure edi^clr 

procedure edi_set 

procedure edi_test 



rdw 



( temp 


anyptr J 


; 




( temp 


anyptr , 


; 




( temp 


anyptr ; 


var x 


char J ; 


temp 


anyptr ; 


val 


char) ; 


( temp 


anyptr ; 


var x 


io word) 


f temp 


anyptr ; 


val 


io word) 


( temp 


anyptr ; 


reg 


10 word; 






var x 


io word) 


( temp 


anyptr ; 


reg 
val 


io word; 






io word 


( temp 


anyptr ; 


beb 


anyptr ) 


f temp 


anyptr ; 


val 


Char ); 


( temp 


anyptr ; 


var x 


boolean 


( terriD 


anyptr ; 


var x 


char ) ; 


f temp 


anyptr ; 


line 


io bit ) 


( temp 


anyptr ; 


line 


io bit ) 


( temp 


anyptr ; 


line 


io bit ; 






var x 


boolean 



end; { of extdi } 
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5 [3.0] 1 ../. i/'r 



103 
;04 

105 
106 
107 
108 
105 
110 
111 
1 12 
113 
114 
US 
116 
117 
118 
119 
120 
121 
3 22 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
15S 
156 
157 



21:50:5/ IOlIB EXTDI - 98625 DISC INTERFACE DRIVERS 



symbols for export as procedure names 



File name: DISCINT 



def 


extdi_extdi 


:*f 


ex tdi_edi_ini t 


oef 


extdi_edi_is? 


def 


extdi edi rdb 


def 


extdi_edi_wtb 


def 


ex tdi_edi_rdw 


def 


ex tdi_edi_wtw 


def 


extdi edi rds 


def 


extdi edi wtc 


def 


extdi_edi_t fr 


def 


extdi_edi_send 


def 


extdi edi ppoll 


def 


extdi_edi_5et 


def 


ex tdi_edi_clr 


def 


extdi__edi_t es t 


def 


ex tdi edi_end 



symbols for import - common assembly language routines 
the routines are in the module common_assembly and powerup 

give up DMA resource 

actually get DMA 

check to see if DMA is available 

branch to user is r 

branch to user eot 

set buffer busy 

set buffer not busy 

set buffer DMA busy 

is t he re a t fr act ive ? 

kill any tfr active 

timed wait for tfr active 

timed wait for tfr - direction 



ref a 


dropdma 


refa 


getdma 


ref a 


testdma 


refa 


logint 


refa 


logeot 


refa 


st bsy 


refa 


stclr 


refa 


DMA stbsy 


refa 


itxTr 


refa 


abort io 


refa 


wait tfr 


refa 


checT t fr 


refa 


check timer 


refa 


delay_t imer 



LJ.IMCU »OH IUI Ml UJI BLliUM 

use for timeouis with hw timer tttt ju< 
use for all delays tttt jws 



Imode dropdma, getdma, testdma, logint,. ]ogeot , stbsy 

Imode stclr, DMA_stbsy, itxf r , abort_io,wait_t f r , check^t f r 

lmode check__t imer ,delay_t imer tttt jw 



PAGE -5 [3.0] 12/21/84 21:30:57 IOLIB 
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EX1DI - COMMON EQUATES AND DEFINITIONS 
include C0MDCL 



File name: DISCINT *** 
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;] n 



165 
164 

:6E 

166 
167 
168 
!69 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
2C3 
204 
205 
206 
207 



26/64 21:30:57 ICLIB COMDCL - COMMON EQ:.RTES AND DEFINITIONS 



File name: DISCINT 



02/22/82 JPC 
08/01/83 JS 



added parm to user EOT & ISR proc's 
added t imer_present and sysflag2 equ' 



********** 



HPL CONVENTIONS 



Much of this code is taken intact from the 9826 HPL 
language system EIO ROM ( extended I/O ROM ). 

The Pascal that will be calling this code uses 
the stack for parameter passage- The HPL code 
uses the Ax and Dx registers for all parameters. 
The Pascal driver entry points on the previous pages 
take care of getting the parameters into the correct 
registers. 



GENERAL HPL ENTRY/EXIT CONDITIONS: 



SI . L = CARD ADORESS 

S2.L = DRIVER TEMP ADDRESS 

UNLESS OTHERWISE INDICATED, 



THESE REGISTERS PRE UNALTERED. 



NEW ENTRY/EXIT CONDITIONS FOR PASCAL USE : 

A3.L = BUFFER CONTROL BLOCK ADDRESS 

In addition to the A1/A2 convention, Pascal will use 
A3 for a pointer to the buffer control block. 
The HPL system kept much of the transfer 
information in the s.c. temps. 

TIME0UT(A2) = contains timeout information 

Timeout was a global temp in HPL and a Timeout 

?enerated an error, 
n PASCAL each card has a timeout value stored in 
its temporary area. A timeout error 
generates an ESCAPE ( which can be trapped ). 



***************** 



209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
22 2 
222 
223 
224 
225 
226 
227 
228 
223 
230 
231 
232 
233 
234 
235 
236 
237 



[3.0] 12/26/84 21:30:57 I0LIB COMDCL - COMMON EQUATES AND DEFINITIONS 
*************************************************** 

* DRIVER TEMPS TEMPLATE 
* 

* OFFSET FROM A2 
* 

* HPL DECLARATIONS ( MODIFIED ) 



File name: DISCINT ** 
************ 



0000 

0000 

cooo 

0000 

cooo 

cooo 
cooo 
cooo 

COOO 

cooo 

COCO 



0000 ISR ENTRY 

0014 USER" ISR 

0014 H_isrf PR 

0018 H_ISR_SL 

O01C H_ISR_FM 

0020 C ADR 

0024 BffFI OFF 

0028 BUFO OFF 

002C EIRB OFF 

002 D 10 St" 

002E TIMEOUT 



O00O 0032 MR U 

0000 0033 MA 

0000 0034 AVAIL OFF 



EOU 





. 19 


PASCAL ISR LINK & UNLINK 


area 


ECU 


20 




user ISR: do NOT change 


t he pr 


Eau 


20 


.23 


procedure pt r 
static link 




EQU 


24 


.27 




tic 


28 


.31 


paramete r 




ECU 


32 


.35 


card address 




EQU 


36 


.39 


buffer pointer offset 




Eau 


40 


.43 


buffer pointer offset 




[ au 


44 




eir byte 




ECU 


45 




select code ( i.e. 7, 22, 


etc. 


EGU 


46 


.49 


timeout value 

=0 : no timeout 

#0 : value of timeout 




EQU 


50 


.51 


word access to my address 




ECU 


51 




byte access to my address 




EQU 


52 


9? 


standard space taken from 


temps 




52 


'.83 


normal cards ( 32 bytes 


) 




52 


. 179 


98628 card 128 bytes 


) 
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2 '.--3 
240 
24 i 
242 
243 
244 
215 
246 
24 7 
243 
?'-9 
250 
25; 

252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 

:' ■ 

264 
265 
266 

267 
268 

26S 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
224 
285 
286 
287 



COMMON EQUATES AND DEFINITIONS 



File name: DISCI.NT 



** ******** 



TRANSFER OFFSETS IN SUFFER CONTROL BLOCK 
OFFSET FROM A3 
PASCAL DECLARATION 



OOOO 0000 TTMPJjFF 
0000 0005 T SCJ3FF 
0000 0007 TffCT_OFF 
0000 0009 TUSR OFF 



EQu 

EQU 5 

EQU 7 

EQU 9 



OOOO OOOA T_BUI_OFF EQU 10 

0000 OOOB TEND_OFF EQU 11 

OOjO OOOD TOIRJFF EQU 1.3 
OOOO OOOE TCHR OFF 



0000 0010 TCNTJ3FF 
OOOO 0014 TBUFJ3FF 
OOOO 0018 TBSZ OFF 
OOOO 001C TEMPjDFF 
00)0 0020 TFILJFF 
OOOO 0024 T PR OFF 



OOOO 0028 T_SL OFF 
OOOO 002C T_PM~OFF 
OOOO 0030 T DMFlPRI EQU 48 



EQU 


14 


. . 15 


FQll 


16 


19 


Hjll 


2(1 


a; 


KjU 


24 


.27 


MjIJ 


2S 


. .31 


KJI, 


32 


. .35 


tUL 


36 


. .n 


FQll 


40 


.43 


EQU 


44 


. .47 



OOOO 0001 TT_INT 
OOOO 0002 TT DMA 
OOOO 0003 TT BURST 
OOOO 0004 TT FHS 



TRANSFER EQUATES 

EQU 1 
EQU 2 
EQU 3 
EQU 4 



**************************************** 
pointer to driver temp offset 
transfer select code 
act ual t ransfe r mode 
t ransfer mode 

00 - not used 

01 serial DMA 

02 serial FHS 

03 serial FASTEST ( DMA or FHS ) 

04 - not used 



05 overlp INTR 

06 overlp DMA 

07 overlp FHS ( BURST ) 

08 overlp FASTEST ( DMA or BURST ) 

09 overlp OVERLAP ( DMA or INTR ) 
transfer byte/word indicator 

- byte / 1 - word 
transfer EOI/END indicator 

- no eoi / 1 = eoi sent or searched for 
transfer direction 

- input / 1 - output 
transfer terminate character 

-1 = no termination character 
transfer count 
transfer buffer pointer 
transfer buffer maximum size 
transfer empty pointer pointer 
transfer fill pointer 
transfer pointer to eot procedure 
NIL no procedure 
transfer eot proc static link 
transfer eot proc parameter 
dma priority request 



inter r upt 

DMA 

burst 

fast handshake 
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* EXTERNAL REFERANCES for escape 
* 



290 

29; 

?92 

203 
204 
295 
206 
297 
297 
293 
200 
300 
301 
302 
303 
301 
30i 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
310 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
326 
326 
32~ 
328 
'28 
328 
329 
330 
331 
331 

3 3 : 

332 
333 
334 
312 
3 3 6 
337 



»** File name: DISCINT 



REFA iodec lar at ions 
REFA sysglobals 



Escape code values 



reference the io lib 



0000 0001 
0000 0002 
0000 0003 
0000 0004 
OOOO 0005 
OOOO 0006 
OOOO 0007 
OOOO 0008 
OOOO 0009 
OOOO OOOA 
OOOO OOOB 
OOOO OOOC 
OOOO OOOD 
00(10 OOOE 
OOOO OOOF 
OOOO 00 10 
OOOO 0011 
OOOO 0012 
OOOO 0013 
OOOO 0014 
OOOO 0015 
OOOO 0016 
OOOO 0017 



NO CARD 
NOT HPIB 
N0_ffCTL 
NO DVC 
NO SPACE 
NO DATA 
TFR" ERR 
SC B~USY 
BUF BUSY 
TCNTERR 
BADTMO 
NO_DRV 
,J0_QMA 
NO WORD 
NOT_THLK 
NOT LSTN 
TMO ERR 
NO SCTL 
BADLRDS 
BAD_SCT 
CRD DUN 
EOD SEEN 
10 RISC 



EQU 
EOU 
EQU 
EQU 
EQU 
EOU 
EQU 
EQJ 
EQJ 
EQJ 
EQU 
EQU 
FQU 
EQU 
ECU 
EQU 
EQJ 
.' ' 

- ' 
1 

EQU 
EQU 



FFIF FFE6 I0E_ERR0R EQU 



FFFF FFBE IOE RSLT EQU 
FFFF FFBA IOE~SC EQU 



FFFF FFFE ESC CODE EQU 
FFFF FFF6 RCVR" BLK EOU 



OOCO 0001 TIMER PRESENT EQU 
FFFF FEDA SYSFLRG2 EQU 



2 
3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 



I0CECSRATI0NS-66 
IODECLARATIONS-70 



SYSGLOBHLS-2 
SYSGL0BALS-10 



X*************************** 


no 


interface 


not 


an hpib interface 


no 


act ive cont rolle r 


sc 


( not device ) specified 


not 


enough space in the buff 


not 


enough data left in the 


tfr 


error 


5C 


is current ly busy 


the 


buffer is busy 


bad 


count 


bad 


timeout value 


no 


driver 


no 


dma installed 


no 


.vord transfers allowed 


not 


addressed as talke r 


not 


addressed as listener 


t imeout 


not 


system cont roller 


bad 


read status / write cont 


bad 


set/clear/test 


interface is dead 


end 


of data has happened 


misc. error 



io sub system error escape code 



1 JS 
SFFFFFEDA 



8/1/83 SYSFLAG2 BIT -- 0= 
JS 8/1/83 



•TIMER PRESENT 
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File name: DISCINT 



34 
34: 
342 

34 3 
344 
345 
346 
347 
348 
349 
350 
351 

35 2 

35 3 
354 
355 
365 

36 7 
358 
359 
363 
361 
362 
36 3 
364 
365 
366 



* disc interface card temp definitions 



0000 0034 ABI 

0000 0035 E0I_ln 

0000 0036 E0I_out 

0000 0039 flags 



0000 003A ppollmsk 



0000 003C Dr1A_count 
0000 O040 DnA_arn-_add- 
0000 0044 DrlA_artr_word 



equ 
equ 

equ 
equ 
equ 



avail_off+0 
av,ail_off »1 
avail_off*2 

avail off*5 



avail_off*6 
avail_off*7 

availof f-*-8 
avail_off*12 
avail^of f+16 



PHI/RBI flag 

EOI flag for previous byte 

EOI flag for next byte out 



bit 
bit 
bit 
b:t 
bit 
bit 



flags and status byte mask: 
pass control flag 
not used 
error indicator 
I FC indicator 
del indicator 
get indicator 
current rsv status bit. 

if set, 9914 is in holdoff mode, therefore 
issue release hold off before reading, and 
use take control sync to set ATN. 



value to put in di_ppoll when 1st = 1 
value to put in di_ppoll when ist = 

remaining DMA count 

arm address of the assigned DMA channel 

arm word of the assigned DMA channel 



PAGE 12 [3.0] 12/26/84 21:30:57 I0LIB EXTDI - PASCAL ENTRY POINTS 



*** File name: DISCINT *** 



369 
37 
371 
372 
373 
374 
375 
376 
377 

37 6 
379 
380 
361 
36 2 

38 3 
38'. 
3S5 
38 5 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 



PASCAL driver entry points for disc interface cards 









00000000 4E75 



* module initialization 
extdi^extdi rts 

* driver initialization 



00000002 205F 
00000004 245F 
00000006 226A 0020 
OOOOOOC'A 4850 
00000O0C 6000 0110 



extdi edi init 



move a . 1 


(51O + .30 


moves . 1 


(SpJ+,32 


move 3 . 1 


c adr; 32 


pea 

bra 


(aO) 


d i init 



* interrupt service rou-ine 



00000010 205F 
00000012 245F 
00000014 2260 0020 
00000018 4850 
0000001A 6000 0402 



extdi edi isr 



movea .1 ( sp)+ , aO 
movea .1 ( sp)+, a2 
movea . 1 c_adr ; a2 ) , al 
pea (aO) 

bra di_isr 



0000001 
0000002 
0000002 
0000002 
0000002 
0000002 
000000' 

oooooos 



205F 

265F 

246F 

226A 0020 
8 4850 
A 6100 014E 
E 1680 
4E7S 



* read a byte 
extdi edi rdb 



movea . 1 


(sp)+,aO 


movea . 1 


(sp)+,a3 


movea . 1 


(sp) + ,a2 


movea . 1 


c adr'a2) 


pea 


(aO) 


bsr 


di rdb 


move .b 


dO, (a3) 



* w r ite a byte 



00000032 205F 
00000034 101F 
00000036 24SF 
00000038 226A 0020 
OO0OOO3C 4850 
0O0O0O3E 6000 0168 



tdi__edi_ 


vtb 


movea . 1 
move .b 
movea . ] 
movea . ] 


(sp)+,aO 
(sp)+,dQ 
(sp)+,a2 
c ad r i'a2) , ai 






pea 
bra 


(aOJ 

di wtb 



get retu rn address 

get temp address 

get card address 

push return address back on stack 



get return address 

get temp address 

get card address 

push return address back on stack 



get return address 

get var address 

get temp address 

get card add ress 

push return address back on stack 

call read byte 

save character 



get return address 

get value 

get temp address 

get card address 

push return address back on 

call write byte 
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2 1 : 


121 






422 






423 






424 


00000042 205F 




425 


00000044 265F 




426 


00000046 245F 




427 


0000004S 22'3R 


0020 


426 


0000004C 4850 




4 29 


0000004E 6100 


01 2ft 


430 


00000052 ie;o 




431 


00000054 6100 


0124 


432 


00000058 1630 




433 


0000005R 4E75 




434 






435 






436 






437 






438 


00000O5C 205F 




439 


00000O5E 301F 




440 


OOO0OC6O 245F 




441 


00000062 22>3fl 


0020 


442 


00000066 4830 




443 


00000068 1M0 




444 


0000006H E048 




44S 


0C00006C 6100 


01 3fl 


446 


00000070 1005 




447 


00000072 6030 


0134 


448 






449 






450 






451 






452 


00000076 2G5F 




453 


00000078 265F 




454 


0000007A 321F 




455 


0000007C 245F 




456 


0000007E 22SR 


0020 


457 


00000082 4850 




4 58 


00000084 6100 


01EE 


4 59 


00000088 3E30 




460 


0000008R 4E/5 




461 






462 






463 






464 






465 


0000008C 205F 




466 


00O00O8E 301F 




467 


00000090 321F 




468 


00000092 245F 




469 


00000094 226H 


0020 


4 70 


00000098 4850 




471 


0000009R 6000 


0238 


4 72 







c .l IOLIB EXTDI 



read a word 



extdi edi rdw 



pinSCfil ENTRY POINTS 



rite a wo r d 



* read status 
extdi_edi_rd5 



move a . 


1 


(sp)+,aO 


move a . 


1 


(sp)+ ( a3 


move a . 


1 


(sp)+,a2 


move a . 


1 


c adr(a2) ,al 


pea 




faO) 


bsr 




di rdb 


move . b 




dC, (a3j* 


bsr 




d: rdb 


move . b 




dO, (a3) 



move a . 1 
move 
move a . 1 
move a . 1 
pea 

move .b 
lsr 
bsr 

move . b 
bra 



l.sp 



aO 
dO 

l'spj + ,a2 

c_adr(a2) 

iaO) 

dO.dS 

#8,(10 

dl_wtb 

d5,dO 

di wtb 



ea 


1 


(sp)+,aO 


e.i 


1 


( spl + , a3 


e 




i 5pi + ( dl 


p a 


1 


isp)+, a2 


ea 


1 


c adr (a2) ,al 
(aO) 

di rds 


e 




dO, (a3) 



write con t rol 



movea 


1 (sp)+,aO 


move 


(sp +,d0 


move 


(sp +,dl 


movea 


1 fspj+,a2 


movea 


1 c adr(a2 


pea 


(aO) 


bra 


d i w t c 



File name: DISCINT 



get return address 

get var address 

get t*mp address 

get card address 

push return address back on stack 

read f i "St byte 

save f i -st byte 

read second byte 

save secord byte 



get return address 

get word value 

get temp address 

get card address 

push return address back on stack 

save secord byte 



write t he byte 

get the second byte 

write the byte 



get return address 

get var address 

get register number 

get temp address 

get card address 

push return address back on stack 

read status 

save status info 



get return address 

get value 

get register number 

get temp address 

get card address 

push return address back on stack 

write cent rol 
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474 








* 














475 








* 


t r arts fe 










476 








* 














4 77 


0000009E 


205F 




e> 


tdi 


_edi_ 


tfr 


movea 


1 


(sp)+,a0 


478 


OOOOOOflO 


2C5F 












movea 


1 


(sp)*,a3 


479 


000000R2 


24 5 F 












move a 


1 


(sp)*,a2 


480 


OOO00OR4 


226P 


0020 










move a 


1 


c adr(a2) ,al 


481 


000000R8 


485C 












pea 




(aO) 


482 


OOOOOOflfl 


6000 


04C4 










bra 




di_tfr 


483 






















484 








* 














485 








* 


send an 


'FlTN' 


true command 


486 








* 














487 


OOOOOOfit 


205F 




e> 


tdi 


edi_ 


send 


move a 


1 


[spl+.aO 


488 


00000OBO 


io;f 












move . D 


lsp)*,dO 


439 


O0O00OB2 


245F 












movea 


1 


lsp)+,a2 


4 30 


00000OB4 


22514 


0020 










movea 


1 


c adr(a2),al 


491 


00000OB8 


4850 












pea 




( aO ) 


492 


OOOOOOBfl 


6000 


0342 










bra 




di_r6out 


493 






















494 








* 














495 








* 


per 


'0 rm 


a parallel po 


1 


496 








* 














4 97 


O00000BE 


205F 




e» 


tdi 


_edi_ 


ppoll 


movea 


1 


(sp)+, aO 


493 


OOOOOOCO 


2 65F 












movea 


1 


(sp +,a3 


4 99 


OOO00OC2 


24 5 F 












movea 


1 


(sp)+,a2 


500 


000000C4 


2 2BR 


0020 










movea 


1 


c adr(a2),al 


501 


000000C8 


48-50 












pea 




(SO) 


502 


OOOOOOCR 


6100 


02SE 










bsr 




di p poll 
dO, (a3) 


503 


0OO000CE 


15 'JO 












move .b 


504 


0OO00OD0 


4E75 












rts 






505 






















506 








* 














507 








* 


set 


an r 


pib 1 


ine 






508 








* 














509 


0OOO0OD2 


205F 




e» 


tdi 


_etfi_ 


set 


movea 


1 


1 sp)+ , aO 


510 


00O00OD4 


321F 












move 




(spW.dl 


511 


0OO00OD6 


24 ;f 












movea 


1 


(sp)*,a2 


512 


00OOOOD8 


22RR 


0020 










movea 


1 


c adr(a2),al 


513 


00O00ODC 


4650 












pea 




(aO) 


514 


000000DE 


6000 


0280 










bra 




di_set 


515 






















516 








* 














517 








* 


clear an 


hpib 


line 






518 








* 














5i3 


00O00OE2 


205F 




e> 


tdi 


_edi_ 


clr 


movea 


1 


(sp)+,aO 


520 


0OO00OE4 


32; F 












move 




(spj-r.dl 


52 1 


000000E6 


24 : .F 












movea 


1 


(sp)*,a2 


522 


000000E8 


2 2 -.ft 


0020 










movea 


1 


c adr (a2) ,al 


52-' 


00O00OEC 


4 8 50 












pea 




(aO) 


524 


OOOOOOEE 


6000 


0206 










bra 




oi_clr 


525 























File name: DISCINT 



get return address 

get buffer control block address 

get temp address 

get card address 

push return address back on stack 

t ransfe r 



get return address 

get value 

get temp address 

get card address 

push return address back on stack 

send command byte 



get ret urn add ress 

get var address 

get temp address 

get card address 

push return address back on stack 

do a parallel poll 

save value 



get ret urn add ress 

get line 

get temp address 

get card addre*^ 

push return add r ess back on stack 

call set line 



get return address 

get line 

get temp address 

get card address 

push return address back on stack 

clear the line 
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527 








* 












529 








* 


test 


.a n 


h p i b 


line 




523 








* 












530 


OO0OOCF2 


205F 




extdi 


sdi_ 


_tost 


movea . 1 


{ s p ) - , a 


531 


OO000CF4 


265F 












move a . .1 


(sp)-,a3 


532 


OO0OOCF6 


321F 












move 


(sp)-.dl 


533 


OO0OOCF8 


24 5 F 












movea . 1 


isp)- ,a2 


534 


OOOOOCFfi 


225ft 


0020 










move a . 1 


c adr(a2) 


535 


OOOOOCFE 


4 8 50 












pea 


faO) 


636 


000O01OO 


5100 


\?F8 










bsr 


di test 


537 


00000104 


1650 












move .b 


dO, (a 3) 


S33 


00000106 


4E75 












rts 




539 




















54 








* 












541 








* 


lest 


fo 


EOI/end ccnd 


l tion 


542 








* 












54 3 


00000108 


205F 




ex 


tdi_edi 


^end 


movea . 1 


(sp)* ,a0 


544 


0000010P 


265 F 












movea . 1 


(sp)+ ,33 


S4S 


0000010C 


24 5 F 












movea . 1 


(5p)+,32 


54 6 


0000010E 


225ft 


0020 










movea . 1 


c adr(a2) 


54 7 


00000112' 


4850 












pea 


(aO) 

EOI n(a2 


548 


00000114 


102ft 


0035 










move . b 


540 


0000011S 


EE08 












lsr.b 


#7,d0 


550 


0000011F 


1630 












move .b 


do, (aJ) 


551 


OOOOOHC 


4E75 












rts 




552 





















get 


return a 


ddress 


qet 


var addr 


ess 


get 


1 ine 




gel 


temp add 


ress 


get 


card adc 


ress 


push 


ret lit n 


address back 


reac 


Et a tus 




save 


charact 


er 



get return address 

get var address 

get temp address 

get card address 

push return address back on stack 

get eor flag byte 

PRSCflL needs it [0. .1] 

save condition 
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556 * * * ....*.,»>.»..« , 

557 * disc interface card address equates ( offsets from al ) 

558 * 

559 St****************************************************************************** 
560 

561 0000 3001 cardid equ $01 read card identification 

562 0000 0001 cardreset equ $01 write card software reset 

563 0000 0003 cardstatus equ $03 reed card status 

564 0000 3003 cardcontrol equ $03 write card control 

565 0000 3007 cardlatch equ $07 read/write latch for testing card buffers 

566 3 

567 0000 0011 intreg equ $11 read/write PHI/flBI interrupt register 

568 0000 0013 intmask equ $13 read/write PHI/ftBI interrupt mask 

569 0000 0015 fifo equ $15 read/write PHI/ftBI inbound 'outbound fifo 

570 0000 0017 status equ $17 read/write PHI/ftBI status register 

571 0000 0019 contrOi equ $19 read/write PHI/ftBI control register 

572 0000 001B address equ $1B read/write PHI/RBI hp-ib address register 

573 0000 001D ppolmask equ $1D read/write PHI/flBI parallel poll mask register 

574 0000 001F ppolsense equ $1F read/write PHI/H8I parallel poll sense register 
575 

576 

577 a******************************************************************************* 

578 * 

579 * hp-ib command equates 

580 * 

582 .... .... « ...» - >. . 

583 0000 0001 gtl equ 1 go to local 

584 0000 0004 sdc equ 4 selective device clear 

585 0000 0005 ppc equ 5 ppoll configure 

586 0000 0008 get equ 8 group execute trigger 

587 0000 0009 tct equ 9 take control 

588 0000 0011 llo equ 17 local lockout 

589 0000 0014 del equ 20 device clear 

590 0000 0015 ppu equ 21 ppoll unconfigure 

591 0000 0018 spe equ 24 spoil enable 

592 0000 0019 spd equ 25 spoil disable 

593 0000 003F unl equ 63 unlisten 

594 0000 005F unt equ 95 untalk 

595 0000 0060 ppe equ 96 ppoll enable 

596 0000 0070 ppd equ 112 ppoll disable 
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di_ini T 

initialize a disc interface card 

nit moveq #30, dO my address if active controller 

bsr.s di_init_s start software reset 

bne dl_IFC if system controller, branch 



di_int_s 

subroutine used for both initialization and 



599 








600 








601 








602 








603 








604 








PO c - 








60? 








607 


0000011E 


70 IE 




60S 


00000120 


6 1 C 6 




609 


00000122 


6 f :: G 


0270 


610 


00000126 


4E75 




611 








612 








613 








614 








615 








616 








617 








618 








619 








620 








62! 








622 








62 3 








624 








625 


00000128 


7260 




628 


0000012R 


1 !41 


0001 


627 


0000012E 


1341 


0019 


623 


00000132 


134 1 


0019 


629 


00000136 


3 74 


0032 


630 


0000013R 


cool 




631 


0000013C 


1341 


0017 


632 


00000140 


1340 


00 IB 


63:5 


00000144 


4R29 


C 1 B 


634 


00000148 


0829 
0017 


0007 


635 


0000014E 


56ES 


0034 


636 








637 








638 








639 


00000152 


4EB9 

: 


0000 


640 


00000158 


51 EH 


0035 


641 


0000015C 


51LR 


0036 


642 


00000160 


41E9 


0017 


643 


00000164 


10BC 


0080 


644 


00000168 


137C 

00 1 3 


0000 


645 


0000016E 


13'.'C 
0OC3 


0080 


646 








64 7 


00000174 


x i 


0003 


648 


00000178 


41- ;s 




649 









a 


so f twa re re se 


t the ca 


rd 


_ini t_s 


moveq 


#$80, dl 






move.b 


dl ,cardreset ( al ) 






move. b 


dl ,cont rol ( al ) 






move . b 


dl ,cont rol (al ) 






move 


dO.ma w(a2) 






add , b 


dl ,d0 






move. b 


dl ,5tatu5(al) 






move .b 


d1,address(al) 






tst -b 


■iJdress(al) 






btst 


#7,status(al) 






sne 


ABI(a2) 


* 


set up the in 


terrupt 


re-gister 6 driver temps 






jsr 


abor t_io 






sf 


EOI in(a2) 






sf 


EOI out (a2) 






lea 


st at us(al ) , aO 






move .b 


#$80, (aO) 






move .b 


#$QO,intmask(al ) 






move .b 


#$80,cardcont rol (al) 






btst 


#3, (aO) 



prepare to . . . 

software reset the card (PHI/flBI pon) 

set 8-bit mode 

once more, To guarantee high-order bit value 

save my address 

set the "online" bit 

prepare to enable CRC if flBI 

bring PHI/flBI online with specified address 

is this an ABI? 

a writeable CRC bit will tell 

remembe r it 



cleanup any attached buffer 

clear the EOI in flag 

clear the EOI out flag 

point to the status register 

set high-order bits 

initial interrupt mask ???????????????? 



enable card interrupts 



is this THE system controller? 
(leave cc 'or caller) 
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652 * 

653 * dwdb 

654 * 

655 * read a byte of data from hp-ib 

656 * 

657 * exit: dO.l = byte read 

658 * 

660 

661 0000017ft 4ih9 0017 di_rdb lea st at us (al ) , aO point to the status register 

662 0000017E 0810 C001 btst #l,(aOj make sure addressed to listen 

663 00000182 67SE beq.s di_lsterr else give error 

664 00000184 0810 0004 btst #4 , ( aO ) active controller? 

665 00000188 67CA beq.s dl rdbl branch if not 

666 0000018A 10BC 0080 move.b #$8~0,fa0) inhibit LF detection 

667 0000018E 137C 0001 move.b #l,fifo(al) enable a 1 byte counted transfer 



btst 


#1 , (aO) 


beq . 5 


di 1 s t e r r 


btst 


#4 , ( aO ) 


beq . 5 


di rdbl 


move. b 


#SJ0, (aO) 
#1 ,fifo(al) 


move. b 


bsr . 5 


di wait fb 


moveq 


»0,d0 


move . b 


fifo(al) ,d0 


btst 


#6,status(al) 


sne 


EOI in(a2) 


rts 





668 00000194 616E di_rdbl bsr.s di_wait_fb now wait for fifo byte 

669 00000196 7000 moveq »0,d0 clear upper part of dO 

670 00000198 1023 0015 move.b fifo(al),dO and put data in lower byte 

671 00O0019C 0829 0003 btst #6 , st at us ( a 1 ) tagged with EOI? 
0017 

672 000001R2 S6EA 0035 sne E0I_in(a2) remember it 

673 000001R6 4E75 rts done! 
674 
675 

676 

$77 **********************#******#*****. «*************#****************************** 

678 * 

679 » di_wtb 

680 » 

681 * write a byte of data to hp-ib 

682 * 

683 * entry: dO.b = byte to write 

684 » 

685 * hpl routine 

686 * 

688 

689 000001H8 08. 3 0002 dl wtb 

0017 

690 OOOOOlfiE 6733 

691 00000160 614E 

692 000001B2 1424 0036 

693 000001B6 EE04 

694 000001B8 1342 C017 

695 000001BC 1340 0015 

696 000001CO 51ER 0036 

697 000001C4 4E75 
698 



btst 


#2, 5 tat us (al) 


make sure addressed to 


beq . s 


di_t lkerr 


else error 


bsr.s 


di u/ait fi 


wait for fifo idle 


move .b 


EOT outTa2) ,d2 


EOI out flag 


lsl.b 


#7,32 


prepare to . . . 


move .b 


d2 ,stat us (al ) 


set the high-order bits 


move , b 


dO.fifo(al) 


move t he data out 


sf 


EOl_out (a2) 


clear the EOI out flag 


rts 




done I 
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error escapes 
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702 *»*»*** »* »*»*»****». *....>. **.**••*...... ........ 

703 * 

704 » 

705 «« 
706 

111 Willie dl - 5Cb5 ' TrTt t: C r- b ^- M buffer is busy 

709 ' -" 

710 000001CB 7014 di sr 

711 000001CC 601E _ ~ 



moveq 

bra. s 


*bad_sct ,dQ 
esc_e r r 


moveq 
bra . 5 


#no_actl,d0 
esc_err 


moveq 
bra . s 


#no sctl.dO 
esc_err 


moveq 
bra . s 


#tfr err, dO 
esc_e rr 


moveq 
bra . =. 


#no Dnfi,d0 
esc_e-r 


moveq 
bra . s 


#rio_word,d0 
esc_e r r 


moveq 


t,not__lstn ,d 



bad set/clear/test 



712 

714 00000100 601fi di_notactl moveq #no_actl,d0 not active controller 

715 

716 000001D2 7012 di notsctl moveq #no sctl.dO not svstem controller 

717 000001D4 6016 ~ ^ - - - -.---.-'"" " ol s/si™ controller 
718 

719 000001D6 7007 hterr b 

720 00000108 6012 
721 

722 000001DP 700D hterr d 

723 000001DC 600E 
724 

725 000001DE 700E di noword 

726 000001EC 600A 
727 

728 000001E2 7010 di lsterr 

729 000001E4 6006 



bad transfer specification 
DMA not installed 
word transfers not allowed 
not addressed as listener 



730 

HI 22229JII ™°J di_tlke,r moveq #not_.- alk ,dO not addressed as talker 

tat uouocjlto 6002 bra s esc or 

733 

734 OO0001EA 7011 di_tmo moveq tttmo err.dO timeout 

I 35 * bra.sesce>r 

736 

737 

VI 2222S 1 i C 2B4 ° FFBE e'^-e" "iove.1 d0,loe rslt(a5) save error in io space 

7.-.1 000001FO 102R 002D move.b io sc i2),d0 \ get sc for error 

740 000001F4 2B40 FFBfi move.l d07ioe_sc ( a5 ) / 9 

741 000001F8 3B7C FFE6 move #ioe__er ror ,esc_code ( a5) save system esc code 

742 000001FE 4E4P trap #10 escape 



* wait for fifo idle or fifo byte routines 

*************************************************** 
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747 
748 

750 * * a*"*""********************************** 

751 00000200 7201 di_wait fi moveq tl,dl fifo idle is bit 1 

752 00000202 6002 ~ bra.s di wfc 

753 ~ 

754 00000204 7202 di_wait_fb moveq #2,dl fifo byte is bit 2 

756 * 

757 * generalized wait for condition routine 

758 * 

759 00000205 4229 0003 di_wfc clr.b ca rdc 5nt ro 1 ( al ) disable card interrupts 
?fi? oS^IIf °JU n'S!? , 5et dl.intmasMal)' unmask the appropriate interrupt bit 
761 0000020E 41E9 0011 lea int reg ( al ) , aO point to the interrupt register 

763 * quick low-overhead loop 

764 * 

765 000002:.2 243C 0000 move.l #254, J2 quick loop counter 

766 "" " * 

767 * Count changed fnom 127 to 254 tttt jws 8/10/83 

769 00000218 0310 di_*fc_quick btst dl,(aO) condition met' 

770 0000021A 662E bne . s di wfc done branch if so 

771 0000021C SlCfi FFFfl dbra d2 ,di>fc_quick loop until quick count expires 

773 * timed wait loop 

III 5°SS2i?° IJ?5 C02E move ' 1 timeout(a2),d2 current timeout 

Ll% Q ^\l%',i VJil „„,>. beq ' 5 ci^uf,; infinite branch if infinite timeout 

7,7 00000226 0838 C001 btst #t ime-^present , sysf lag2 check if timer tttt jws 

778 0000022C 6728 beq.s di wfc timer br if oot it tttt iws 

779 0000022E C4FC C1EB mulu #43l , d? loop iterations per millisecond 

III 22R22SS 1 ? ??}? di_wfc_timed btst dl,(aO) condition met? 

,82 00000204 6614 bne.s di wfc done branch if so 

ill oSoooPa llll ^ q ' 1 I l7d ? ~ - „ decrement the loop counter 

784 000002o.8 62F8 bhi di_wf c__t imed loop until count expired 

111 nnnnS-S ?«? SnJo bclr . ell intmask(al) re-mask the appropriate interrupt bit 

787 000002oE ^37.. 0080 move.b #J80 ,ca rdcont rol (al ) re-enable card interrupts 



escape with timeout error 



0003 

788 00000244 60A4 bra 

789 * 

790 * infinite wait loop 

791 * 

7Q3 nnn?n^l 22 c ? di_wfc_inf inite btst dl,(a01 condition met? 

793 00000248 67Fi. ^ D eq di_wfc_inf inite loop until so 

7S3 * wait for condition done 



0000024P1 03(19 0013 di_wfc_done bclr dl , intnask ( al ) re-mask the appropriate interrupt bit 

1-167 



PPGE 2 1 


[3 .0) 12/If . 54 


21 ; 


798 


0000024 E 137C 
00C3 


0080 


799 


00000254 4E ?5 




800 






801 






802 






803 


00000256 1F3C 


"OC 1 


804 


0000025R 2F02 




805 


0000025C 0310 




806 


0000025E 6610 




307 


00000260 4837 




808 


00000262 4EF9 
OOCO 


0000 


809 


00000268 6BF2 




810 


OOOC026H 5C4F 




811 


O0O0026C 74Cfl 




812 


0000026E 60C2 




813 


00000270 5C4F 




814 


00000272 6006 
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File name: DISCINT 



move.b #$80,cardcont rol ( al ) 
rt s 



re-enable card interrupts 
done 1 



Uait using the timer 



di_wfc 1 imer 
di_wfc_tloop 



di_wfc_texit 



move.b #1 

move . - 

btst 

bne . 5 

pea 

jsr 

bpl 

acdq 

moveq 

bra 

addq 

bra 



-(5 

dl , (aO 
di_wfc 
(sp) 
check 

di_wfc 

»6,sp 

#10, d2 

di_wfc 

#6,sp 

di_wfc 



texit 
timer 
_t loop 

.t imed 
done 



setup timer record 

check condition 
if true, exit 
else call timer 
check routine 

ok -- loop 
timeout, clean stk 
try again with a 
short count 
cleanup stack 
and continue 



t jws 8/10/83 

t j«s 8/10/83 

t jws 8/10/83 

t jws 8/10/83 

t Iws 8/10/83 

t jws 8/10/83 

t iws 8/10/83 

t iws 5/2/84 

t iws 5/2/84 

t iws 5/2/84 

t Iws 8/10/83 

t jws 8/10/83 
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ERROR ESCAPES 



316 
317 
8 18 
8 i 9 
820 
821 
822 
823 
824 
825 
926 

32 I 
1328 
:?2 9 
323 
331 
832 

33 3 
834 
835 
836 
837 
838 
839 
84 
34] 
842 
84 3 
344 
845 

34 6 
847 
84 3 
84 9 
850 
381 
852 
853 
854 



******* 



File name: DISCINT ** 



*********** 



di_rds 

read status 
PflSCRL routine 



00000274 B27C 0008 di_ 
00000278 621 C 
0000027A 0241 
0000027C 32.:B 1006 
00000280 4E I B 1002 



cmp #8,dl 

bhi.s rds err 

add dl ,cTl 

move rds_table (dl ) ,dl 

jmp rds_tabie (dl ) 



register within range? 

branch if not 

two bytes per table entry 

load routine offset 

jump to the appropriate routine 



rds jump table 



00000284 00:8 
00000286 0012 
00000288 0C:2 
0000028B 001C 
0000028C 0012 
0000028E 00:2 
00000290 0030 
00000292 00.2 
00000294 00:2 



0000 0296 


rds 1 


00D0 0296 


rds 2 


OCnO 0296 


rds 4 


OC'iiO 0296 


rds 5 


0C"0 0296 


rds 7 


0000 0296 


rds_8 


00000296 701 3 


rds e 


00000298 6000 FF52 





dc 




rds 0-ros table 


QC 




rds 1-rds t able 


dc 




rds 2-rds table 


dc 




rds 3- rd5 t able 


dc 




rds 4-rds t able 


dc 




rds 5-rds t able 


dc 




rds 6-rds table 


dc 




rds~"7-rds table 


dc 




rds_8-rds_t able 


equ 


# 




equ 


* 




equ 


* 




equ 


* 




equ 


* 




equ 


* 




moveq 


#bad_rds,d0 


bra 




esc_er r 



st atus 
status 
status 
status 
st atus 
st atus 
st atus 
st atus 
st atus 



bad read status 
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*** File name: DISCINT 



SSo 








* 
















65" 








* 


status C 


- card ID 












858 








* 
















ess 


0000029C 


7008 




rc 


5_0 


moveq 


#S,d0 




S imo n ' 5 


ID 




660 


0000029E 


4E75 








r ts 












86! 
























862 
























863 








* 
















864 
86b 








* 


status 3 


control 


f status 5 


address 








■■ 


000002AO 


7000 




ra 


s_3 


moveq 


ttO.dC 




ZZZZZZZZ 


ZZZZZZZZ 




367 


O0C.02:A2 


1029 


0017 






move .b 


s t a t u s ( a 1 ) 


dO 


ZZZZZZZZ 


76543210 




868 


000002:06 


E913 








rol.b 


»4,d0 




ZZZZZZZZ 


32107654 




839 


000002:08: 


E343 








lsl 


#1 ,dC 




ZZZZZZZ3 


2107654Z 




87 


000002: OFl 


ELDS 








lsl.b 


#6 , dO 




ZZZZZZZ3 


4ZZZZZZZ 




871 


000002: AC 


E248 








lsr 


#1 , dO 




ZZZZZZZZ 


34ZZZZZZ 




872 
873 


000002: OE 
OO0OO2B2: 


D02B 
4E7S 


0033 






add.b 

rt 5 


na(a2| ,d0 




ZZZZZZZZ 


34ZA0AAA 




874 
























875 
























876 








* 
















877 
878 








* 


s t a t j s 6 


interfac 


e status 










879 


000002 B4 


61EA 




rds_6 


bsr 


ids 3 


zzzzzzzz 


ZZZZZZZZ 


ZZZZZZZZ 


LLLLLLLL 


880 


000002B6 


E098 








ror . 1 


#8,30 


LLLLLLLL 


ZZZZZZZZ 


ZZZZZZZZ 


ZZZZZZZZ 


881 


000002BS 


1029 


0017 






move .b 


status(al) 


dO LLLLLLLL 


ZZZZZZZZ 


ZZZZZZZZ 


76543210 


883 


000002BC 


E3S8 








rol 


#1 ,d0 


LLLLLLLL 


ZZZZZZZZ 


ZZZZZZZ7 


6543210Z 


883 


000002BE 


E298 








ror.l 


#1 ,d0 


ZLLlLLLL 


LZZZZZZZ 


ZZZZZZZZ 


76543210 


884 


000OO2C0 


E418 








ror .b 


o/ ; do 


ZLLLLLLL 


LZZZZZZZ 


ZZZZZZZZ 


10765432 


885 


OO0OO2C2 


E238 








ror.l 


#1 ,d0 


2ZLLLLLL 


LLZZZZZZ 


ZZZZZZZZ 


Z1076543 


886 


000002C4 


E518 








rol b 


#2,d0 


2ZLLLLLL 


LLZZZZZZ 


ZZZZZZZZ 


076543Z1 


88"/ 


000002C6 


£2 38 








ror . 1 


#1 ,d0 


12ZLLLLL 


LLLZZZZZ 


ZZZZZZZZ 


Z076S43Z 


888 


000002C8 


E958 








rol 


#4,d0 


12ZLLLLL 


LLLZZZZZ 


ZZZZZ076 


S43ZZZZZ 


889 


000002CA 


E898 








ror 1 


#4,d0 


ZZZZ12ZL 


LLLLLLLZ 


ZZZZZZZZ 


Z076543Z 


890 


000002CC 


E618 








ror b 


#3,d0 


ZZZZ12ZL 


LLLLLLLZ 


ZZZZZZZZ 


43ZZ0765 


891 


000002CE 


E298 








ror.l 


♦ 1 ,d0 


5ZZZZ12Z 


LLLLLLLL 


ZZZZZZZZ 


Z43ZZ076 


392 
393 


000002DO 
000002D2 


4840 
4E7S 








swap 

r t s 


dO 


ZZZZZZZZ 


Z43ZZ076 

whew! ! ! 


SZZZZ12Z 


LLLLLLLL 


894 
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896 ********************************* 

897 * 



*** File name: DISCINT »** 
**************** 



900 
901 
902 
903 
904 
905 
906 
907 
908 
903 
310 
311 
S12 
313 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
325 
926 
92 7 
928 
929 
930 
931 
932 
933 
934 
335 
936 

937 

S38 
939 
940 

941 

942 

94 3 
944 
94 5 
94 6 
94 7 

94 8 
34 9 



OO0002D4 0C41 0001 di wtc 
000002D8 62BC 
000002DR D241 
O00002DC 4EFB 1002 



000002EO 6002 
000002E2 6016 



* software reset 

000002E4 102A 0033 di_wtc_rst 

000002E8 1F29 0017 hpl wtcl 
000002EC 6100 FE3A 
000002F0 081 F 0004 
000002F4 6702 

000002F6 4E71 

O00002F8 4E7S hpl wtc2 



write control 

entry: dO .w = parameter 



cmpi #l,dl 

bhi . s rds er r 

add dl ,31 

jmp hwtctbl(dl) 



register within range? 

branch if not 

two bytes per table entry 

jump to the appropriate routine 



hwtctbl 


bra 


=1 


di wtc rst 




bra 


s 


d i r q s 




bra 


s 


di wtc ppc 




bra 


s 


di wtc sma 




bra 


s 


rds e r r 


* 


bra 


5 


rds err 



control 

control 1 

control 2 

control 3 

cont rol 4 

control 5 



do a reset 

set SRQ response 

ppoll configure 

set my addr 

not used 

enable interrupts 



move .b ma ( a2 ) ,d0 



000002F-PI OSfifl 0006 di rgs 

0039 
00000300 1200 
00000302 0381 G006 
00000306 6706 

* 
00000308 08ER 0006 

0039 
0000030E 1280 di rqs2 
00000310 322ft 003R 
00000314 4E4B hpl_wtc4 

00000316 007C 2700 
G000031fl 082A 0006 

0039 
00000320 6702 
00000322 E059 



vice 

bclr 

move .b 
bclr 
beq . s 

move .b 
bset 

move .b 



beq . 
ro r 



else use previous address 



move .b 

bsr 

btst 

beq . 5 

nop 

rts 



status (al ) , -(sp) 

di_init_s 

#4, (sp)* 

h p 1 W t C 2 -l - 1 1 >-■ i . :. m u 

? ? ?7? ????????????????????????????? ?????'>?'?">?'>'?'? 
else done 



save controller active state, 
do software reset 
were we active controller? 
if no t j skip 



#6,flags[a2) 

dO,dl 
tt6,dl 
di rqs2 

dl,di_ipoll(al) 
#6,fla35(a2) 

dO, (al ) «<di spoll(al ) 

ppcllmok (a2) ,d"l 

#11 



sr,-(sp) 
.♦$2700, 5 r 
#6,fl<i9S(a2) 

hpl_wt.;5 

#8,dl 



assume rsv = in this new byte 

if rsv bit in the new byte is indeed 
zero, then just output the new byte. 

else first write the byte with rsv 
clear, remember that rsv is set. 

write the byte with rsv correct. 
90 update the parallel poll response 
get into supervisor mode scs 
disable isr's while we figure 
out which mask to set based on 
current rsv bit . 

if rsv = O, use right byte 
e lse use left byte 
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950 00000324 1281 hpl_wtcS move.b dl,(al) <<<di_ppoll (al ) 

951 00000326 4E0F move (sp)*,sr restore user mode scs 

952 00000328 4E 75 rts = = 5 
95^ * 5 cs rte re-enable lsr s and return 
954 
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957 » 

958 * di_p_pol] 

959 « 

960 * conduct parallel poll 

961 » 

962 * if not active controller give error 

963 * else value returned in dO.b 

964 « 

965 * hpl routine 

966 » 

968 , , , 

969 0000032H 0S29 0004 di_p_poll btst #4 , 5 1 at us ( al ) active controller? 

0017 

970 00000330 6/00 FE9C beq di_notactl branch if not 
971 

972 00000334 6L00 FECA bsr di_wait_fl wait for fifo idle 
973 

974 00000338 4;>29 0003 clr.b ca rdcont rol (al ) disable card interrupts 

975 0OO0033C 03E9 O0O5 bset #5 , intmask ( al ) unmask the poll response bit for fiEJI's sake 

0013 

976 00000342 4229 0017 clr.b status(al) higli-order bits 

977 00000346 50E9 001D St ppolmask(al) look at all response bits 

978 0000034A 4229 001F clr.b ppolsense (al ) normal sense for all 

979 0000034E 1029 0015 move.b fifo(al),dO get the response 

980 COOO0352 08A9 0005 be 1 r #5 , intmask ( al ) re-mask the poll response bit 

0013 

981 00000358 1 37C 0080 move.b #S80,cardcont rol (al ) re-enable card interrupts 

0003 

983 0000035E 4E7S rts 

984 
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388 
3SS 
59C 
991 
992 
993 
021 
995 
890 



998 
SS9 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1003 
1009 
1010 
1011 
1012 
1013 
1014 
1015 

1016 
1017 

1018 
1019 
1020 
1021 
1022 
1023 
1024 

1025 

1026 
1027 
1028 
1029 
1030 
1031 
1032 

1033 

1034 
1035 
1036 
1037 



:0LIB EXTuI - ERROR ESCSPES 



set an hpib line t rue 
PSSCRL routine 



File name: DISC I NT 



00000360 B27C 0007 di set 
00000364 6200 FE64 
00000368 D241 
0000036H 323B 1006 
0000036E 4EFB 1002 



00000372 
00000374 
00000376 
00000378 
0000037H 
0000037C 
0000037E 
00000380 



0010 

0022 
FE58 
004E 
FE58 
FES8 
C ES8 
RE 5 8 



00000382 0829 0003 di REN 

0017 
00000388 6700 FE48 
0000038C 08E9 0005 

O019 
00000392 4E75 



cmp #7 ,dl 

bhi di_sc_err 

add dl.dl 

move set_table (dl ),dl 

jmp set_table(dl) 

dc dl_REN-set_table 

dc dl_IFC-set_table 

dc di_sc err-set table 

dc di_EOT-set_taEle 

dc di_sc_err-set_table 

dc dl_sc err-set_table 

dc di_sc_err-set_table 

dc di_sc err-set table 



#3,s:atus(al] 



beq di_notsctl 
bset #5, cent rol(al) 



00000394 0829 0003 di I FC 

0017 
0000039R 6700 FE36 

0000039E 41E9 0019 

000003R2 0890 0005 
000003R6 O8D0 0004 



000003FIR 2F3C 0000 

0064 
000003BO 4EB9 0000 

0000 
000003B6 0890 0004 
000003BH 08D0 0005 



assert IFC for lOOus 
btst 



#3,status(al) 
di_notsct 1 





lea 


cont rol ( al 1 


aO 




bclr 


#5, (aO) 






bse: 


#4 (60) 
#80, cO 




tttt iws 


moveq 




tttt jWS 


dbra 


dO,* 






move . 1 


#100, -(sp) 






jsr 


de lay_t imer 






bclr 


#4, (aO) 






bset 


#5, (aC) 





register within range? 

branch if not 

two bytes per table entry 

routine offset 

jump to the appropriate routine 

REN - set REN 

IFC - pulse IFC (set REN/clr P.TN) 

SRQ - error ' 

EOI - pulse EOI on next byte out 

NRFD - error 

NDflC - error 

DR.V - error 

RTN - error 



system cent roller? 



branch if not 

set REN 



system cont roller? 

branch if not 

point to the control register 

clear REN 

assert IFC 

must hold IFC at least lOOus... 

to satisfy the bus standard 

use the timer tttt jws 

routine for this tttt jws 8/10/83 

release IFC 
set REN 



0000033E 4E75 
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1038 

1039 

1040 * 

1041 

1042 

1043 

1044 

1045 



* assert EOI on the next 



000003C0 SOEfl 0036 di EOI 
000003C4 4E75 



E0I_out (a2) 



File name : DISCINT 



set the flag 
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r , ,. - ... -. . - ,, - -^ ir r.--,T r S cnc rr rQ ;.rc *** File name DISCINT 

PAGE 2'- [3.0] 12/..I 'F.4 2i:.-0:o< iulIB E: Ui - t*.kUR tbuHrts 

, 047 »,,,,»*»* * **»« * ********* «*«*****«****.***»*********«*«*«*«*»»»**«****»»**»»**"'** 

1048 « 

1049 * dl_cjr 

1051 * set an hpib line false 

1052 * 

1063 » pfifi-flL routine 

1054 * 

1055 „„„,,„„.!«.»..>• 

1057 000003C6 B. 7C 0007 oi_clr cmp #7,01 ^ register within range? 



**#******* 



000003CH 6.00 FDFE bhi di_5C_err branch it not 



1058 

1059 000003CE D. 41 add 

1060 000003DO 323B 1006 



dl~dl " two bytes per table entry 

lear table(dl),dl routine offset 



1061 000003D4 4LFB 1002 jmp cle.rjable (dl ) jump to the appropriate routine 

1063 000003D8 0C10 clear_table dc di_local-clear_table 

1064 0OO003OP, 0020 dc di_dmyr t s-c lear_t able 

1065 000003DC F! F2 dc di_sc_e r r-c lear_t able 

1066 000003DE Or 20 dc di_drnyrts-c lear_table 

1067 000003E0FLF2 dc di_sc_er r-clea r_table 

1068 000003E2 FIF2 dc di_sc_er r -c lea r_t able 

1069 000003E4 FTF2 dc di_sc_e r r-c lear_t able 

1070 OOO003E6 F['F2 dc di_sc_e r r -c learnt able 
1071 
1072 

1073 * 

1074 * clear REN 
1075 
1076 



REN 


clear REN 


IFC 


- nothing 


SRQ 


- error 


EOI 


- nothing 


NRFD 


- error 


NDRC 


- error 


OflV 


- er ro r 


BTN 


- error 



000003E8 Oi'29 0003 di_local btst #3 , st at us (al ) system controller? 

000003EE 6 '00 FDE2 beq di_notsctl branch if not 

000003F2 0S-A9 0005 bclr #5 , cont rol ( al ) clear ktN 



1077 
1078 

Oc 1 9 

1079 000003F8 4S 75 di^dmyr 

1080 
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2Qg2 **************************** i*************** 

1083 » 

1084 * di_test 

1085 * 

1086 * 9St an hpib l-.^e * state 

1088 * entry : dl - line parameter 

1089 » 

1090 » 

1091 * 

1092 « 

1093 » 

1094 * 

1095 * 

1096 * 
1037 * 
!038 * FfiSCfiL roull.l 

1099 * 

1100 ********** 
1101 

1102 000003FP, 6000 FDCE di_test bra dl_sc_err 

1103 



**» File name: DISCINT *** 



= REN 

1 = IFC 

2 = SRQ 

3 = EOI 

4 = NRFD 

5 = NDflC 

6 = OHV 

7 = flFN 






1-172 



1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 

1121 
1122 

1123 
1124 
1125 
1126 

1127 
1128 
1129 
1130 



[3.0] 12/26/84 21:30:57 IOLIB EXTDI 

***************** 

* di r6out 



ERROR ESCfiPES 
*************** 



*** File name: D1SCINT 
**************** 



emulation of r6 out for hp-ib 

entry: dO = byte to output 

exit: if not active controller, sts cleared and error bit set 
else operation is done and any addressing decoded. 



************************ 



000003FE 4EB9 0000 di_r6out 
0000 

00000404 0829 0004 

0017 
0000040B 6700 FDC2 

0000040E 6100 FDFO 

00000412 137C 0040 

0017 

00000418 1340 0015 

0000041C 4E75 



hpl routine 


modified ) 


«,»,»*****» 


»,*„*„*******„«*»,»,»,« 


jsr 




wait_t f r 


btst 




#4,status(al) 


beq 




di_notact 1 


bsr 
move 


b 


di wait fi 
#t4"0,status(al) 


move 


b 


dO.fifo(al) 


rts 







if a tfr is active wait till it isn't 

active controller? 

branch if not 

wait for fifo idle 
following byte is a command 
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******************************************************************************** 
* 

* di_isr 
* 

* interrupt service routine for hp-ib cards 
* 

* entry : al,a2 are set up 
* 

* the isr will track down the buffer control block 
* 

* hpl routine ( modified ) 
* 
******************************************************************************** 



1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 

1148 
1149 

1150 
1161 
1152 
1153 
1154 
1155 
1156 
1157 

1158 

1159 

1160 
1161 



0000041E 08BB 0001 di_isr bclr #l,flags(a2) 

0039 

00000424 6100 0100 bsr di_isrl 

00000423 4EB9 0000 jsr itxfr 

0000 

0000042E 6716 beq.s isr_end 

00000430 B23C 0003 cmp.b #tt burst, dl 

00000434 6700 00E2 beq diJFrw 

00000438 B23C 0001 cmp.b #tt int,dl 

0000043C 6700 00C4 beq di Euf 

00000440 B23C 0002 cmp.b tttT DMPI,dl 

00000444 6710 beq.s di_Isrdma 

00000446 08fln 0001 isr end bclr #l,flags(a2) 

0039 

0000044C 6706 beq.s di_isr_ex 

0000044E 4EB9 0000 jsr logint 

0000 

00000464 4E75 di isr ex rts 



clear user isr pending flag 

process the interrupting condition(s) 
go see if transfer is active 

if not, then we are done. 

if frw is active, go process it 

if int then go process it 

if DI-1B 

if isr pending then do it 



otherwise return 
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*** File name: DISCINT *« 



1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 

1177 
1178 
1179 

1180 
1181 
1182 

1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 

1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 

1200 
1201 
1202 

1203 
1204 
1205 

1206 

1207 
1208 
1209 
1210 
1211 



DMA transfer interrupt: 



00000456 286P 0040 di isrdma 
0000045ft 4D2B 0000 
0000045E 6M2 



movea.l OMA_arm addr(a2),a4 
tst.b tdir_ofT(a3) 
bne.s Isrdma out 



input DMA transfer 



00000460 4IEB 0020 

00000464 0H29 0006 

0O17 
0000046B S6EA 0035 

0000046E 0JJ2C 0000 

0001 
00000474 670(1 

00000476 0829 0001 

0011 
0000047C 6608 
0000047E 60C6 

00000480 4BAA 003C isrdma unarmed 
00000484 6F38 

00000486 6100 021C isrdma in term 
0000048A 08R9 0001 

0013 
00000490 6C46 



lea 


tfil_off(a3),a0 


btst 


#6,status(al) 


sne 


E0I_in(a2) 


btst 


#0,1 (a4) 


beq .s 


is rdma_unarmed 


btst 


#1 ,int reg(al) 


bne .s 

bra 


isrdma in term 
isr_end* 


tst .1 
bgt .s 


DMA count (a2) 
isrd*ma_rest art 



bsr 
bclr 



* output DMA Transfer 



00000492 41EB 001C isrdma_out 

00000496 082C 0000 

0001 
0000049C B6R8 

0000049E 08E9 0007 

0019 
00000404 4229 0017 

OOO004A8 0C6A 0001 

003C 
000004AE 6D28 

O0O0O4B0 6E0C 
000004B2 4A2B 000B 
000004B6 6706 
000004B8 08A9 0007 
0019 



input_t fr term 
#1 ,intmas"k~( al J 

isrdma_term 



lea temp_off £a3) ,a0 

btst #0,l(a4) 

bne ,s isr_end 

bset #7,control(al) 

clr .b st atus (al ) 

cmpi.w #1 ,DMA_count (a2) 

bit . s isrdma_term 



bgt .s 
tst .b 

beq . s 
bclr 



is rdma restart 
tend_o7f (a3) 
is rdma_rest art 
#7,control(al ) 



DMA arm 6 status register address 
test direction 
branch if output 



point to the buffer fill pointer 

last byte in tagged with EOI? 

remember it 

DMA channel unarmed? 

branch if so 

fifo idle? 

branch of so (terminate tfr) 
otherwise, keep going 

more to transfer? 
branch if so 

clean up the fifo's if possible 
re-mask fifo idle condition 



point to the buffer empty pointer 

Dflfl channel still armed? 

branch if so; keep going 

re-set 8-bit mode if necessary 

clear the hi-ora^r bits 

[ cmpi.l #$10000, 0MA_count (a2) ] 

branch if no more to transfer 

branch if additional bursts remain 

last burst: EOI tag set? 

branch if not, otherwise... 

clear 8-bit mode (tag last byte with EOI) 
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1212 



DISC INTERFACE INTERRUPT SERVICE ROUTINE 



File name: DISCINT *« 
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»*« File name: DISCINT 



1214 
1215 
1216 
1217 
1218 
1219 
1220 

1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 

1229 
1230 

1231 
1232 
1233 
1234 
1235 
1236 
1237 

1238 

1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 



* DMA t r ansfer restart 

* 

000004BE 536A 003C isrdma restart subq .w 

000004C2 202B 0010 "~ move.l 

000004C6 D190 add. 1 

000004C8 277C 0001 move.l 

0000 0010 

000004DO 38AA 0044 move 

00000404 6000 FF70 bra 



#1,DMA count (a2) 
tcnt_oTf (a3) ,d0 
dO, (aO) 
#$10000, tcnt_off(a3) 

DMP_arm_woro |a2) , (a4 j 
is r_end 



* DMA transfer 
* 
000004D8 137C 0080 isrdma term 

0003 
0000040E 2F08 
000004EO 4EB9 0000 

0000 
000004E6 205F 
000004E6 262B 0010 
000004EC 9684 
000004EE D790 
000004FO D8AA 003C 
000004F4 2744 0010 
000004F8 4E89 0000 

0000 
000004FE 6000 FF46 



terminat ion 
move.b #$80, 



ardcont rol (al ) 



move.l a0,-[sp) 

jsr dropdma 

movea.l (sp)+,aO 

move.l tent off(a3),d3 

sub.l d4,dJ 

add.l d3,(a0) 

dd.l DMA_count (a2) ,d4 

ove.l d4,tcnt_off (a3) 



mov 
jsr 



stclr 

is r_end 



interrupt transfer processing: 



00000502 4A2B 000D di buf 
00000506 6602 



tst.b tdir_off(a3) 
bne . s di_bufo 



00000508 4E71 



* buffered input : 
di_bufi nop 



« buffered output : 
0000 050A di_bufo equ * 

* 

* int and frw transfer termination 

0000 050A di„t i_term equ * 

0000050A 103C 0000 di_to_term move.b #0,d0 

* bsr di eir 



[ sub.l #$10000 DMA_count (j2) ] 
previous burst length 
update the appropriate buffer pointer 
next burst length 

re-arm the DMA channel 
done ! 



disable card DMA 

save aO 

free the DMA channel 

restore aO 

intended number of bytes transfered 

actual number of bytes transferred 

update the appropriate buffer pointer 

total remaining count 

record it 

mark the tfr done and log branch 

done! 



which direction transfer? 
branch if output 



disable other interrupts 
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3Sr stclr mark the buffer finished 

bra isr end end of isr 



1267 

1268 

1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
128S 
1286 
1287 
1288 



0000050E 4EB9 0000 

0000 
00000514 6000 FF30 



* fast r/w transfer processing: 
00000518 007C 2700 di_frw ori #$2700, sr 



0000051C 4A2B 0O0D 
00000520 6602 



tst .b 

bne. s 



00000522 4E71 



* fast r/w input : 
di__fri nop 

* fast r/w output : 



0000 0524 di frwo 
00000524 60E4 



tdlr_off (a3) 
di frwo 



disable all other ints 
the PASCAL system will re-enable&rte 
which direction transfer? 
skip if out put 



equ * 

bra di_to_term 



else we are done! 
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the following routine does all the grunt work for the isr. it is 
separated out so it can be called from background. 
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1 2 dO *#****#*********#********#********#******#***********♦**#*** 

1291 « 

1292 « isrl 
1293 
1294 
1295 
1296 

1297 ************************ 

1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 

1317 * 

1318 * POL 
1319 
1320 
1321 
1322 
1323 
1324 
1325 

1326 * SCG 

1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 00000568 08EA 0001 di log bset #1 , flags (a2) 



File name: OISCINT 



00000526 4 IE9 0011 di_isrl 
0000052A 49E9 0013 

» DCL 

0000052E 0310 0000 

00000S32 6708 

00000534 6100 0032 

00000538 0894 O0O0 

0000 0S3C di_no_DCL 
* 
» SRQ 

0000053C 0810 0004 
00000540 6708 

00000542 6100 0024 

00000546 0894 0004 

0000 054A dl no SRQ 



0000054A 0810 0005 
0000054E 6708 

00000550 6100 0016 

00000554 0894 0005 

0000 0S58 



000005S8 0810 0007 
000005SC 6708 

0000055E 6100 0008 

00000562 0894 0007 

0000 0666 di no SCG 
00000566 4E75 



lea 
lea 


int reg [al ) , aO 

intmask (ai ) ,a 


btst 
beq . s 

bsr 
bclr 


#0,(a0) 
di no DCL 
di log 
tt0,(a4) 


equ * 




btst 
beq .s 


#4 , ( aO ) 
di no SRQ 


bsr 
bclr 


di log 
*4 , ( al) 


equ * 




btst 
beq . 5 
bsr 
bclr 


#5,(a0) 
di no POL 
di log 

<*5,(a4) 


equ * 




btst 
beq . s 
bsr 
bclr 


#7,(a0) 
di no SCG 
di log 
#7 , ( a4) 


equ * 

rts 





point to the interrupt condition register 
point to the interrupt mask register 



DCL interrupt? 
branch if not 
else do normal logging 
mask off the interrupt 



SRQ interrupt? 
branch if not 
else do normal logging 
mask off the interrupt 



POL interrupt? 
branch if not 
else do normal logging 
mask off the interrupt 



SCG interrupt? 
branch if not 
else do normal logging 
mask off the interrupt 



di_log mark that an isr condition is pending 



1339 
1340 



00000568 OSES 0001 di log 

0039 
0000056E 4E75 



bset 

rts 



set condition 
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1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 



*** File name: DISCINT *** 



1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 

1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1378 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 



********************************************************* 

* 

» di_tfr 

* driver call for execution of tfr statement 

* entry: conditions other than normal al,a2 &rs: 

* a3.1 = pointer to transfer information 



************** 



00000570 4EB9 0000 di tfr 
0000 

00000576 4B2B 000A 
0000057H 6600 FC62 

00O00S7E 202B 0010 

00000582 7200 
00000584 122B 0009 
00000588 D241 
0000058H 4EB9 0000 

0000 
00000590 6704 
00000592 D27C 0014 
00000S96 323B 1006 di nodma 
0000059A 4EFB 1002 



********************************************** 
jsr check_tfr 



tst .b 
bne 



t„bw_off (a3) 
dT noword 



move.! tcnt_of f (a3 ) ,d0 



#0,dl 

tusr off(a3),dl 

dl,dT 

testdma 

di nodma 

#25, dl 

tfr table(dl),dl 

tfr~table(dl) 



moveq 
move .b 
add 
jsr 

beq . s 
add 

move 
]mp 



0000059E FC38 
000005A0 FC3C 
000005A2 00D2 
00000SA4 0002 
000005A6 FC38 

000005A8 OOBE 
000005RA FC3C 
000005BC 00C8 
000005AE 00C8 
0OOO05B0 OOBE 

000005B2 FC38 
OOOO05B4 0028 
0OOO0SB6 0002 
000005B8 0028 
OOOOOSBA FC38 

000005BC OOBE 

000005BE 0028 

000005CO 0OC8 

000005C2 0028 

000005C4 0028 



* transfer jump table 



dc 
dc 
dc 
dc 



dc 
dc 
dc 
dc 
dc 



hterr b-tfr_table 
hterr~d-tfr_table 

di_t_Ths-tfr_table 
di_t_fhs-tfr_table 
hterr_b-tf r_table 

di_t_int-tf r_table 
hterr d-tfr_table 
di_t_Est-tfr_table 
di_t_bst-tfr table 
di_t int-tf ratable 



dc 
dc 
dc 



d 


t int 


•tfr 


table 


d 


t DMA 


tfr 


table 


d 


t bst 


tfr 


table 


d 


t DMA 


tfr 


table 


d 


t DMA 


tfr 


table 



* ** ** ************ ** **** * * **** * * * 
wait for tfr to finish (timed) 

don't allow word transfers 

get count 



user specified t ransfe r type 
two bytes per table entry 
DMA available? 

branch if not; use the first half of table 
otherwise use the second half of table 
routine offset 
jump to the appropriate routine 



serial 
serial 
serial 
serial 
serial 



interrupt 

DflR 

fhs 

fastest 

overlap 



DMA uninstalled or unavailable 



overlap interrupt 
overlap DMA 
overlap fhs 
overlap fastest 
overlap overlap 



dc 


hterr b-tfr table 


serial 


interrupt 


dc 


di t rJtIA-tfr table 


serial 


DMA 


dc 


di t fhs-tfr table 


serial 


fhs 


dc 


di t DMA-tfr table 


serial 


fastest 


dc 


hterr b-tfr table 


serial 


overlap 



DMA available 



overlap interrupt 
overlap DMA 
overlap fhs 
overlap fastest 
overlap overlap 
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1398 * 

1399 * transfer DMA 
1400 
1401 



»** File name: DISCINT *»* 



1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 

1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 

1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 

1431 

1432 
1433 

1434 
1435 
1436 
1437 
1438 
1439 
1440 

1441 

1442 
1443 
1444 
1445 
1446 



00000SC6 177C 0002 di_t_DMA 
0007 

000005CC 2200 
000005CE 5381 
OOOOOSDO 7000 
000005D2 3001 
0000051)4 9280 
00000506 2541 003C 
000005DA 5280 



000005DC 4229 0003 
000005E0 4EB9 0000 

0000 
000005E6 0882 0000 
000005EA 4A2B 0030 
000005EE 6704 
000005FO 08C2 0003 
000005F4 3882 
0O0OO5K6 254C 0040 
000005FA 3542 0044 



move.b *tt_OMA,tact_off (a3) 



di arm DMA 



000005FE 49F8 0000 
00000602 4EB9 0000 
0000 

00000608 4A2B OOOD 
0000060C 6614 



move . 1 
subq . 1 
moveq 
move -w 
sub.l 
move . 1 
addq . 1 

clr.b 
jsr 

bclr 
tst .b 
beq . 5 
bset 
move 
move . 1 
move 

lea 

jsr 



tst .b 
bne . s 



* transfer input DMA: 



0000060E 08E9 0001 di tid 

0013 
00000614 08A9 0001 

0019 
000006IP) D081 
0000061C 6100 005C 
00000620 6024 



bset 



add.l 
bsr 
bra . s 



00000622 08E9 0001 di_tod 

0019 
00000628 08E9 0007 

0019 
0000062E 4229 0017 
00000632 4A81 
00000634 660C 
00000636 4A2B OOOB 
0000063A 6706 



* transfer output DMA : 
bset 
bset 



clr.b 
tst.l 
bne . s 
tst.b 
beq. s 



dO,dl 

#l,dl 

#0,dO 

dl.dO 

dO,dl 

dl,DMA_count (a2) 

#l,dO 

cardcont rol (al ) 
getdma 

#0,d2 

t 0MApri(a3) 

dT arm DMA 

#3,d2 

d2, (a4) 

a4 , DMA_a rm_add r f a2 ) 

d2 J DMA_arm_word(a2) 

0,a4 
DMA_stbsy 



tdir_off (a3) 
di tod 



#1 , intmask (al ) 

#l,control(al) 

dl ,dO 

input tfr_en 

di_DMff_en 



#1 ,control(al) 

#7,control(al) 

st atus (al ) 
dl 

di_tod 1 
tend_o7f (a3) 
di tod 1 



set tfr type to DMA 



total count 

total count minus 1 

first burst count minus 1 

remaining count (multiple of $10000) 

remember it 

burst count [1 . .65536] 

disable card interrupts 
get a DMA channel 

always clear the DMA interrupt enable bit 

DMA priority requested? 

branch if not 

otherwise set the DMA priority bit 

arm the channel 

remember the DMA channel arm address 

remember the DMA channel arm word 

no DMA termination routine (no DMA interrupt enabled) 
set DMA channel, buffer busy 



test the transfer direction 
branch if output 



interrupt on DMA completion or fifo idle 

select the inbound fifo for DMA 

recompute the total count again 

enable the transfer 

enable the card & wait if serial 



select the outbound fifo for DMA 

assume no EOI tag (8-bit mode) 

clear the high-order bits 

remaining count 0? 

branch if not 

EOI tag set? 

branch if not, otherwise... 
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1447 

1448 
1449 

1450 
1451 

1452 

1453 
1454 

1455 
1456 
1457 
1458 



0O00O63C 08A9 0007 

0019 
00000642 08C3 0003 di tod 1 
00000646 1343 0003 di„DHA_en 

OOO0064A 0C2B 0005 di_DNA_w 

0009 
00000650 6C08 

00000652 0C2B OOFF di DHA wl 

0005 
00000658 66F8 

0000065A 4E75 di DMA w2 



bclr 



#7,control(al) 



bset 
move .b 


#3,d3 

d3 .cardcont rol (al ) 


cmpi .b 


#5,tusr_off (a3) 


bge.s 


di_0MA_w2 


cmpi .b 


*25S,t_sc_off (a3) 


bne . s 


di_DMA_wl 


rts 





*** File name: DISCINT *** 

clear 8-bit mode (tag last byte with EOI) 

set the card's output DMP enable bit 
enable card interrupts 8. Drtfi 

overlap transfer? 

branch if 50 

if not then wait till done 
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* 

* transfer interrupt 



** File name: DISCINT ** 



1460 
1461 
1462 

1463 0000065C 177C 0001 di t int move.b #tt int. tact 0ff(a3) set tfr type to interrupt 

0007 " " ~ 

1464 00000662 6O00 FB72 bra hterr b 
146S 

1466 

1467 « 

1468 * transfer burst (intr on 1st byte fhs on rest) 

1469 * 

1470 00000666 177C 0003 di t bst move.b #tt burst, tact off(a3) set tfr type to burst 

0007 ~ ~~ " 

1471 0000066C 6O00 FB68 bra hterr b 
1472 

1473 

1474 » 

1475 » transfer fast handshake 

1476 * 

1477 00000670 177C 0004 di t fhs move.b #tt fhs, tact off(a3) set tfr type to fhs 

0007 _ _ - 

1478 00000676 6000 FB5E bra hterr b 
1479 
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1481 » 

1482 

1483 

1484 



input transfer enable 



I486 
1486 
1487 

1488 
1489 
1490 



1492 
1493 
1494 

1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 

1503 
1504 
1505 

1506 
1507 
1508 
1509 
1510 

1511 
1512 
1513 

1514 
1515 
1516 

1517 

1518 

1519 
1520 

1521 

1522 
1523 

1524 



0000067A 0829 0004 

0017 
00000680 6714 

00000682 BOBC 0000 

0100 
00000688 6F0E 

0000068A 137C 00C0 

0017 
00000690 137C 0000 

0015 
00000696 4E75 

00000698 137C 0080 

0017 
0000069E 1340 0016 
000006A2 4E75 



* input transfer term 

000006A4 0829 0004 input tfr term btst 

0017 
O0O0O6AA 674A beq.s 

000006AC 0829 0001 btst 

0011 
000006B2 6628 bne.s 



input_ 


tf r_en 


btst 


#4, status (al) 






beq.s 


te_rts 






cmp. 1 


#256, dO 






ble.s 


te_ect 






move .b 


#$CO,status(al 






move .b 


»$00,fifo(al) 


te_rts 




rts 




te_ect 




move .b 


*$80,status(al 






move .b 
rts 


dO,fifo(al) 



#4, st at us (al) 

tt_rts 

#1 ,intreg(al) 

t t_empty__fifo 



000006B4 0829 0003 

0017 
0OOO06BA 671fl 

000006BC 0029 0011 
0019 



(input) transfer enable byte still active 
btst #3,status(al) 

beq .s tt_non_sys 

ori ,b #$11 ,cont rol (al ) 



tttt iv, 
tttt jw 



000006C2 2F3C 0000 

0064 
000006C8 4EB9 0OO0 

0000 
000006CE 08A9 0004 

0019 
000006D4 60C6 

000006D6 08E9 0000 tt non sys 
0019 



moveq #80, dO 
dbra dO,* 
move.l #100, -(sp) 



]sr 
bclr 
bra. 5 

bset 



delay_t imer 
#4,control(al) 
t t_empty__f ifo 
#0,control[al) 



*** File name: DISCINT *** 

active controller? 

branch if not 

count low enough for counted transfer? 

branch if so 

uncounted transfer enable 

inhibit LF detection 
counted transfer enable 



active controller? 

branch if not 

fifo idle? 

branch if so 

must init outbound fifo 

system controller? 

branch if not 

assert IFC & init outbound fifo 

must hold IFC at least lOOus... 
to satisfy the bus standard 
use timer routine tttt jws 

for this delay tttt jws 

release IFC 

go empty the inbound fifo 

init outbound fifo; TCfi like this is hazardous! 



empty inbound fifo 
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1526 

1527 
1528 
152S 
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1531 
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bsel #2,intmask(al ) 



000006F6 4E75 



1S32 

1533 

1534 

1535 

1536 

PASS 1 ERRORS: 
PASS 2 ERRORS: 



0000060C 08E9 0002 tt empty fifo 

0013 
000006E2 0829 0002 

0011 
000006E8 6706 
000O06EB 4R29 0015 
000006EE 60EC 

000006FO 08B9 0002 tt fifo empty 
0013 



beq . s 
tst .b 
bra 



#2,intreg(al) 

tt fifo empty 

fiTolalT 

tt _empt y_f ifo 

#2,irtmask(al) 



»** File name: DISCINT 

unmask fifo byte condition 

fifo byte? 

branch if not 

otherwise, discard it and... 

go check for more 

re-mask fifo byte condition 
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EXTERNAL SYMBOLS 



DISC INTERFACE TRANSFER 



File name: DISCINT **« 



SYMBOL 


TYPE 


DEF 


VALUE 




ABORT 10 


PBS 


146 


0000001S 




CHECK TFR 


BBS 


148 


O000O01B 




CHECK TIMER 


BBS 


149 


OOOOOOIE 




DELAY TIMER 


BBS 


ISO 


00000021 




DMA STBSY 


B3S 


144 


O000O01O 




DROPDMA 


BBS 


137 


00000002 




GETDMB 


ABS 


138 


00000004 




IODECLARATIONS 


BBS 


295 


00000024 




ITXFR 


A3S 


145 


00000013 




LOGEOT 


BBS 


141 


OOOOOOOA 




LOGINT 


BBS 


140 


00000008 




STBSY 


BBS 


142 


oooooooc 




STCLR 


B3S 


143 


OOOOOOOE 




SYSGLOBALS 


BBS 


296 


00000028 




TESTDMA 


BBS 


139 


00000006 




WBIT_TFR 


BBS 


147 


00000018 




INTERNU SYMBOLS 






SYMBOL 


TYPE 


DEF 


ESU SYM 


VALUE 


AO 


BREG 







00000000 


Al 


BREG 







0OOOO001 


H2 


BREG 







00000002 


A3 


AREG 







00000003 


A4 


BREG 







00000004 


H5 


BREG 







00000005 


A6 


BREG 







00000006 


A7 


BREG 







00000007 


ABI 


B3S 


344 




00000034 


ADDRESS 


B3S 


572 




0000001B 


AVAIL OFF 


BBS 


235 




00000034 


BADTMO" 


BBS 


313 




OOOOOOOB 


BAD RDS 


BBS 


321 




00000013 


BAD""SCT 


BBS 


322 




00000014 


BUFT OFF 


BBS 


226 




00000024 


BUFO OFF 


BBS 


227 




00000028 


BUF B~USY 


BBS 


311 




00000009 


CARCCONTROL 


BBS 


564 




0O0O0OC3 


CARDID 


ABS 


561 




00000001 


CARDLATCH 


BBS 


S6S 




00000007 


CARDRESET 


BBS 


562 




00000001 


CARDSTATUS 


BBS 


563 




00000003 


CCR 


STREG 







000000C5 


CLEAR TABLE 


REL 


1063 




000003D8 


CONTROL 


BBS 


571 




00000019 


CRD OWN 


BBS 


323 




00000015 


C ABR 


BBS 


225 




00000020 


DC 


DREG 







00000000 


Dl 


DREG 







00000001 


D2 


DREG 







00000002 


D3 


DREG 







00000003 
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04 


DREG 





00000004 




OS 


DREG 





ocooooos 




06 


DREG 





0C000O06 




07 


DREG 





0C000007 




DCL 


HBS 


589 


00000014 




DFC 


STREG 





00000008 




DI flfin DMA 


REL 


1417 


000005F4 




DI BUF 


REL 


-.24 6 


00000502 




DI BUFI 


REL 


:253 


0OO00S08 




DI BUFO 


REL 


1258 


OOOOOSOR 




DI CLR 


REL 


1057 


000003C6 




01 DUB EN 


REL 


1449 


00000646 




DI DUB Ul 


REL 


1451 


0000064H 




DI DHR Ul 


REL 


1454 


00000652 




DI Odfl U2 


REL 


1457 


0000065H 




DI DWR~TS 


REL 


1079 


000003F8 




DI £01 


REL 


1043 


000003CO 




DI~FRI 


REL 


1282 


00000522 




DI FRU 


REL 


1274 


00000518 




DI FRUO 


REL 


1287 


00000524 




DI IFC 


REL 


1024 


00000394 




DI INIT 


REL 


607 


0000011E 




01 INIT 5 


REL 


625 


00000128 




DI ISR 


REL 


1147 


0000041E 




DI ISR1 


REL 


1299 


00000526 




DI ISRDMfl 


REL 


1166 


00000456 




DI ISR EX 


REL 


I 160 


00000454 




DI - lOCfi"L 


REL 


1076 


000O03E8 




DI LOG 


REL 


1338 


00000568 




DI LSTERR 


REL 


728 


000001E2 




DI NODMH 


REL 


1367 


00000596 




DI NOTACTL 


REL 


713 


000001CE 




DI~NOTSCTL 


REL 


716 


00000102 




01 NOUORQ 


REL 


725 


000001DE 




DI~NO DCL 


REL 


1308 


0000053C 




DI NO POL 


REL 


1324 


00000558 




DI NO SCG 


REL 


1332 


00000566 




DI NO SRQ 


REL 


1316 


0O0O0S4H 




di p Poll 


REL 


969 


0000032H 




DI R50UT 


REL 


1120 


000003FE 




DI RDB 


REL 


661 


0000017A 




01 RDB1 


REL 


668 


00000194 




DI RDS 


REL 


826 


00000274 




DI~REN 


REL 


101S 


00000382 




DI~RQS 


REL 


936 


000002FH 




DI R0S2 


REL 


942 


0000030E 




DI SC8SY 


REL 


707 


0OOO01C6 




DI SC ERR 


REL 


710 


0OOO01CA 




DI SET 


REL 


996 


00000360 




DI TEST 


REL 


1102 


000003FA 




DI TFR 


REL 


1354 


00000570 




DI TIO 


REL 


1430 


0000060E 




DI~TI TERM 


REL 


1263 


0O0O05OH 




DI TLKERR 


REL 


731 


0O0001E6 




01 TMO 


REL 


734 


0O0001EH 




DI TOD 


REL 


1440 


00000622 




0I_T00_1 


REL 


1448 


00000642 
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01 TO TERM 


REL 


1265 


OOOOOSOA 




01 T EST 


REL 


1470 


00000666 




DI T DMA 


REL 


1401 


000005C6 




0I~T~FHS 


REL 


1477 


00000670 




01 T INT 


REL 


1463 


0000065C 




DI UffIT FB 


REL 


754 


00000204 




DITJBIT fi 


REL 


751 


00000200 




DI~UFC 


REL 


759 


00000206 




DI UFC DONE 


REL 


797 


0000024H 




DI~UFC infinite 


REL 


792 


00000246 




DI UFC QUICK 


REL 


769 


00000218 




DI UFC TEXIT 


REL 


813 


00000270 




DI UFC TIMED 


REL 


781 


00000232 




DI UFC TIMER 


REL 


803 


00000256 




DI UFC TLOOP 


REL 


805 


0000025C 




DITJTB 


REL 


689 


000001P.8 




01 "UTC 


REL 


906 


000002D4 




DI UTC RST 


REL 


923 


000O02E4 




DMA" BRR bddr 


HBS 


364 


00000040 




DMA ARM UORD 


HBS 


365 


00000044 




DMfTCOURr 


HBS 


363 


000O003C 




EIRS OFF 


HBS 


228 


00OO0O2C 




eod Seen 


HBS 


324 


00000016 




EOI IN 


HBS 


345 


00000035 




EOI'OUT 


HBS 


346 


00000036 




ESC CODE 


HBS 


332 SYSGLOBALS * 


FFFFFFFE 




ESC ERR 


REL 


738 


000001EC 




EXTBl EOI CLR 


REL 


519 


0O0O0OE2 




EXTOI EDI END 


REL 


543 


00000108 




EXTOI EDI INIT 


REL 


383 


00000002 




EXTOI EDI ISR 


REL 


392 


OOOOOOIO 




EXTOI EDI PPOLL 


REL 


497 


OOOOOOBE 




EXTOI EDI RDB 


REL 


401 


0000001E 




EXTDI - ED; RDS 


REL 


452 


00000076 




EXTDI _ EDI RDU 


REL 


424 


00000042 




EXTDI EDI SEND 


REL 


487 


OOOOOOAE 




EXTDI EDI SET 


REL 


509 


00000002 




extoi'ed; TEST 


REL 


530 


0O0O0OF2 




EXTOI EDI TFR 


REL 


477 


0000009E 




EXTDI EDITJTB 


REL 


413 


00000032 




EXTDI EDI UTC 


REL 


465 


0O0O0O8C 




EXTDI EDI~UTU 


REL 


438 


0000005C 




EXTDI'EXTlJl 


REL 


378 


00000000 




FIFO 


BBS 


569 


00000015 




FLAGS 


BBS 


348 


00000039 




GET 


BBS 


586 


00000008 




GTL 


BBS 


683 


OO0O0O01 




HPL UTC1 


REL 


926 


000002E8 




HPLUTC2 


REL 


930 


000002F8 




HPL~WTC4 


REL 


944 


00000314 




HPL~UTC5 


REL 


950 


00000324 




HTEfR B 


REL 


719 


00000106 




HTERR D 


REL 


722 


0000010H 




HUTCTBl 


REL 


912 


000002E0 




H ISR PM 


HBS 


224 


0000001C 




H~ISR - PR 


BBS 


222 


00000014 




H_ISR_SL 


BBS 


223 


00000018 
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INPUT TFR EN 


REL 


1484 


0O0OO67A 




INPUT TFR TERM 


REL 


1502 


000006A4 




INTnA5~K 


AGS 


568 


00000013 




INTREG 


ABS 


567 


00000011 




I0E ERROR 


ABS 


327 


FFFFFFE6 




IOE RSLT 


ABS 


329 IODECLARATIONS 


♦ FFFFFFBE 




IOE SC 


ABS 


330 IODECLARATIONS 


♦ FFFFFFBA 




10 RISC 


ABS 


325 


00000017 




10 SC 


ABS 


229 


0000002D 




ISffDMA IN TERM 


REL 


1189 


00000486 




ISRDMA OUT 


REL 


1197 


00000492 




ISRDMA RESTART 


REL 


1217 


000004BE 




ISRDMA TERM 


REL 


1228 


000004D8 




ISRDMA~UNARMED 


REL 


1186 


00000480 




ISR END" 


REL 


1157 


00000446 




ISR ENTRY 


ABS 


220 


OOOOOOOO 




LLO 


ABS 


588 


00000011 




Mfl 


ABS 


234 


00000033 




ma u 


ABS 


233 


00000032 




NOT HPIB 


ABS 


304 


00000002 




NOT LSTN 


ABS 


318 


00000010 




NOT TALK 


ABS 


317 


OOOOOOOF 




NO JfCTL 


ABS 


305 


00000003 




NO CARD 


ABS 


303 


00000001 




NO DATA 


ABS 


308 


00000006 




NO DMA 


ABS 


315 


OOOOOOOO 




NO DRV 


ABS 


314 


OOOOOOOC 




NO DVC 


ABS 


306 


00000004 




NO SCTL 


ABS 


320 


00000012 




NO SPACE 


ABS 


307 


00000005 




NOTJORD 


ABS 


316 


OOOOOOOE 




PPC 


ABS 


585 


00000005 




PPO 


ABS 


596 


00000070 




PPE 


ABS 


595 


00000060 




ppouusk 


ABS 


360 


0000003A 




PPOLMASK 


ABS 


573 


0000001D 




PPOLSENSE 


ABS 


574 


0O0O001F 




PPU 


ABS 


590 


00000015 




RCVR BLK 


ABS 


333 SYSGLOBALS 


* FFFFFFF6 




RDS 0" 


REL 


859 


0000029C 




RDS 1 


REL 


845 


00000296 




RDS 2 


REL 


846 


00000296 




RDS 3 


REL 


866 


000002AO 




RDS 4 


REL 


847 


00000296 




RDS 5 


REL 


848 


00000296 




RDS 6 


REL 


879 


0O0O02B4 




RDS~7 


REL 


849 


00000296 




RDS 8 


REL 


8S0 


00000296 




RDS ERR 


REL 


852 


00000296 




RDS TABLE 


REL 


835 


00000284 




sc Susy 


ABS 


310 


00000008 




sdC 


ABS 


584 


00000004 




SET TABLE 


REL 


1002 


00000372 




SFC 


S T REG 





00000009 




SP 


AREG 





00000007 




SPD 


ABS 


592 


00000019 




SPE 


ABS 


591 


00000018 
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SR 


STREG 





00000006 




STATUS 


ABS 


570 


00000017 




SYSFLAG2 


ABS 


336 


FFFFFEDA 




TACT OFF 


ABS 


250 


00000007 




TBSZ OFF 


ABS 


273 


00000018 




TBUF OFF 


ABS 


272 


00000014 




TCHR OFF 


ABS 


269 


OOOOOOOE 




tcntErr 


ABS 


312 


OOOOOOOA 




TCNT OFF 


ABS 


271 


00000010 




TCT 


ABS 


587 


00000009 




TDIR OFF 


ABS 


267 


OOOOOOOD 




TEMP OFF 


ABS 


274 


0000001C 




TEND OFF 


ABS 


265 


OOOOOOOB 




TE EC"T 


REL 


1494 


00000698 




TE RTS 


REL 


1492 


00000696 




TFTL OFF 


ABS 


275 


00000020 




TFR ERR 


ABS 


309 


00000007 




TFR TABLE 


REL 


1374 


0000059E 




TIMFOUT 


ABS 


230 


0000002E 




TIMER PRESENT 


ABS 


335 


00000001 




TMO ER"R 


ABS 


319 


00000011 




TTMP" OFF 


A8S 


248 


OOOOOOOO 




TT BURST 


ABS 


286 


00000003 




TT~DMA 


ABS 


285 


00000002 




TT EMPTY FIFO 


REL 


1525 


000006DC 




TT FHS 


ABS 


287 


00000004 




TT FIFO EMPTY 


REL 


1531 


000006F0 




TT INT 


ABS 


284 


OOOOOOOl 




TT NON SYS 


REL 


1521 


000006D6 




TT~RTS~ 


REL 


1533 


000006F6 




TUS"R OFF 


ASS 


251 


00000009 




T BU OFF 


ABS 


263 


OOOOOOOA 




T _ DMA"PRI 


ABS 


280 


00000030 




T PM OFF 


A8S 


279 


000OOO2C 




T~PR~0FF 


ABS 


276 


00000024 




T SC OFF 


ABS 


249 


00000005 




T~SL OFF 


ABS 


278 


00000028 




URL 


ABS 


593 


OO0OOO3F 




UNT 


ABS 


594 


0000005F 




USER ISR 


ABS 


221 


00000014 




USP ~ 


STREG 





00000007 




VBR 


STREG 





OOOOOOOA 
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DRVASM 



Description 

DRVASM contains common assembly language routines used by the DISCHPIB, AMIGO and CS80 
modules. 
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21 : 


38:40 SS3EI1BLV OF DRVASM TEXT 




*** File name: 


DRVASM *** 


puss i 


COMPLETE. ERRORS 


: 










1 

2 
3 








nosyms 














************************************ 


****************************************** 




4 








* driver assembly routines * 




5 
6 








************************************ 


****************************************** 




7 

8 

9 

10 








* 

* PASCAL interface text 

mname drvasm 




















11 
















12 








src module drvasm; 








13 








src 








14 








src import 








IS 








src sysglobals; 








16 








src 








17 








src export 








18 








src function test and_toggle 


(var semaphore: boolean): boolean; 




19 








src procedure eorfcorrection 


by 


te: char; bufptr: charptr); 




20 








src function shifted left(va 


lue 


: integer; n: shortint): integer; 




21 








src function shif ted_right (value : integer; n: shortint): integer; 




22 








src function mod_powe r_o f _2 I 


val 


ue: integer; n: shortint): integer; 




23 








src 








24 








src end; (drvasm) 








25 
















26 
















27 








* 








28 








* def's 








29 








* 








30 








def drvasm_drvasm 






31 








def drvasm test 


and 


_toggle 




32 








def drvasm eor 








33 








def drvasm shift 


ed 


left 




34 








def drvasm_shift 


ed 


right 




3S 








def drvasm_mod_powe 


r_of_2 




36 
















37 
















38 








* 








39 








* module intializat ion routine 








40 








* 








41 


00000000 


4E7S 




drvasm_drvasm rts 








42 
















43 
















44 








* 








45 








* test and toggle - semaphore mani 


pulation function 




46 








* 








47 




0000 


0002 


drvasm test and toggle equ * 








48 


00000002 


205F 




movea.l f 5 p) + , aO 




pop the return address 




49 


00000004 


225 F 




movea.l sp)+,al 




pop the var parameter address 




50 


00000006 


0851 


0000 


bchg *0,(al) 




test and toggle the semaphore 




51 


OOOOOOOA 


56C0 




sne dO 




remember the previous state 
form a legal PASCAL boolean 




52 


OOOOOOOC 


4400 




neg.b do 






53 


OOOOOOOE 


1E30 




move.b dO.(sp) 
imp (aO) 




set the return variable 




54 


00000010 


4ED0 






return 




55 
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38:40 ASSEMBLY OF DRVASM. TEXT 




*** File name: 


DRVASM «»* 


57 








* 








58 








* exclusive or - error correction 


procedure 




59 








* 








60 


00000012 


205F 




drvasm eor movea.l (spl+,a0 




pop the return address 




61 


00000014 


22 = F 




movea . 1 (spj+, al 




pop the bufptr 




62 


00000016 


101F 




move.b (sp)+,dO 




pop the correction character 




63 


00000018 


Bill 




eor.b dO.(ai) 
jmp (aO) 




do it to it 




64 


OOOOOOlfl 


4ED0 






return 




65 
















66 
















67 








* 








68 








* shift left n places 








69 








* 








70 




0000 


001C 


drvasm shifted left equ * 








71 


0000001C 


20oF 




movea.l fsp)+,aO 




pop the return address 




72 


0000001E 


321F 




move (spl+.dl 




pop the shift count 




73 


00000020 


2 01 F 




move.l (spJ+jdO 




pop the operand 




74 


00000022 


E3-I0 




asl.l dl.dO 




do it to it 




75 


00000024 


2E80 




move.l dO.(sp) 
jmp (aO) 




set the return value 




76 
77 
78 


00000026 


4ED0 






return 


















79 








* 








80 








* shift right n places 








81 








* 








82 




0000 


0028 


drvasm shifted right equ * 








83 


00000028 


2C5F 




movea.l (sp)+,aO 




pop the return address 




84 


0000002A 


32 IF 




move fspj+,dl 




pop the shift court 




85 


0000002C 


2C1F 




move.l (sp)+,dO 




pop the operand 




86 


0000002E 


EJ'10 




asr.l dl.dO 




do it to it 




87 


00000030 


2E80 




move.l dO.(sp) 
jmp (aO) 




set the return value 




88 


00000032 


4E00 






return 




89 
















90 
















91 








* 








92 








* take a mod power of 2 








93 








* 








94 
95 


00000034 


oooo 

2C5F 


0034 


drvasm mod power of 2 equ * 

movea.l (spl+.aO 




pop the return address 




96 


00000036 


32 IF 




move (sp)+,dl 
moveq #-l,do 




pop n 




97 


00000038 


70FF 






start with all ones 




98 


0000003A 


E3rt0 




asl.l dl.dO 




shift in n zeros 




99 


0000003C 


4690 




not.l dO 




invert the sense 




100 


0000003E 


C09F 




and.l (sp)+,dO 




pop and mask the operand 




101 


00000040 


2E80 




move.l dO,{sp) 
imp (aO) 




set the return value 




102 


00000042 


4EQ0 






return 




103 
















104 








end 








PfiSS 1 


ERRORS: 














PASS 2 


ERRORS: 
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EVALGVR 



Description 

EVALGVR contains code to quickly evaluate a general value record (GVR) and to assist in relo- 
cating object code. 



Usage 

EVALGVR is used by the loader. 
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PAGE 
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iii/64 


21:00:37 ASSEMBLY 


OF EVPli.GVR.TEXT 




»»* File name: EVPLGVR *«« 


PASS 1 


COMPLETE . ERRORS 


: 












1 


00000000 








ro rg 








2 
3 
4 










nosyms 
















def 


evalgvr , relocate 




S 

e 

7 










ref a 


sysglobals , load 


s r 






FFFF 


FFFE 


pscapec 


ode 


equ sysglobals- 


2 glabals: 




s 

9 

10 




FFFF 


FFE4 


newmods 




equ loader-28 








0000 


0006 


def addr 




equ 6 


fields of mdb 




11 




C.I 00 


oooh 


def size 




equ 10 






12 




0000 


0010 


extaddr 




equ 16 






13 




0000 


0026 


relocdelta 


equ 38 






14 
15 
16 




0000 


002A 


globaldelta 


equ 42 








0000 


0001 


op 




equ 1 


fields in gvr 




17 
IS 
19 




0000 


oooo 


done 




equ 








0000 


0008 


longof f set 


equ 8 


fields in a gvr: 




20 




oooo 


0009 


valueextend 


equ 9 






21 




0000 


OOOR 


patchable 


equ 10 






22 




cooo 


0008 


datasize 


equ 11 






23 
24 
25 




0000 


OOOE 


primarytype 


equ 14 








0000 


0064 


sbyteer 


r 


equ 100 


arithmetic errors 




26 




cooo 


0065 


sworder 


r 


equ 101 






27 




cooo 


0066 


sinterr 




equ 102 






28 




cooo 


0068 


ubyteer 


r 


equ 104 






29 
30 
31 




0000 


0069 


uworderr 


equ 105 








0000 


006E 


depther 


- 


equ 110 






32 
33 
34 
35 
36 




0000 


006F 


formate 


r r 


equ 111 








0000 


OOOH 


maxdepth 


equ 10 








0000 


OOOO 


gvalue 


equ do 








37 




0000 


0001 


sub 


equ dl 








38 




0000 


0002 


field 


equ d2 








39 




0000 


0003 


equ d3 








40 




oooo 


0004 


dtemp 
depth 


equ d4 








41 
42 
43 




0000 


0005 


equ d5 










oooo 


OOOO 


gvrpt r 


equ aO 








44 




oooo 


0001 


modpt r 


equ al 








45 








♦above 


used by 
equ d6 


runlist 






46 




oooo 


0006 


aobject 








47 




oooo 


0002 


atemp 


equ a2 








48 




oooo 


0003 


return 


equ a3 








49 
50 

51 




oooo 


0004 


object 


equ a4 














*proc relocatei 


refbuftop, refin 


dex: address; 




52 








* 




var object: add 


ress : 




53 
54 
55 








* 




modptr: moddescptr); 




OOOOOOOO 


0050 




j table 


dew 


sbyte- jt able 






56 


00000002 


0068 






dew 


sword-]t able 






57 


00000004 


007E 






dew 


sint -jtable 






58 


00000006 


0010 






dew 


ferror- j table 


reserved 
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21:00:37 ASSEMBLY 


OF EVALGVR. TEXT 




*** File name: EVPLGVR **» 


59 


00000008 


0086 






dc .w 


ubyte- jt able 






60 


OOOOOOOfl 


009A 






dc .w 


uword-jt able 






61 


OOOOOOOC 


0010 






dew 


ferror- jtable 


reserved 




62 
63 
64 


OOOOOOOE 


0010 






dew 


ferror-j table 


reserved 




OO000O1O 


3B7C 


006F 


ferror 


move -w 


ttformate r r ,esca 


pecode (a5 ) 








FFFE 














65 


00000016 


4E4H 






trap 


#10 






66 


















67 


00000018 


265F 




relocate movea. 


1 (sp) +, return 






68 


0000001A 


22SF 






movea . i 


(sp) + ,mor!pt r 






69 


0000001C 


285F 






movea . 1 


(sp) +,ob ject 






70 


OOOOOOIE 


2C14 






move. 1 


(object } , aobject 




71 


00000020 


C08C 






exg 


object , aob jec t 






72 


00000022 


20SF 






movea . . 


sp)+,gvrptr 


ref index 




73 


00000024 


24SF 






movea . 1 


(sp)+, atemp 


refbuf top 




74 


00000026 


4201 






clr.b 


sub 






75 


00000028 


7A0A 






moveq 


ttmaxdepi. h, depth 






76 
77 
78 


0000002fi 


6000 


0086 




bra 


next ref 






O0000O2E 


3418 




ref loop 


move.w 


(gvrpt r)+,gvr 
field 


get ref record 




79 


00000030 


4283 






clr.l 






80 


00000032 


1602 






move.b 


gvr, field 
#longof f set ,gvr 


short offset 




81 


00000034 


0302 


0008 




btst 






82 


00000038 


6 704 






beq .5 


short 






83 


O0000O3A 


4843 






swap 


field 


shift left 16 




84 


O000003C 


3618 






move.w 


(gvrpt r) + , field 
field, object 






85 


0000003E 


D9C3 




short 


adda. 1 






86 


00000040 


3602 






move 


gvr, field 

#16-datasize*l, 


get data size 




87 


00000042 


E05B 






rol .w 


field 




88 


00000044 


C67C 


OOOE 




and 


#7+7, field 
jtable(field.w) 


3 bits 




89 


00000048 


383B 


30B6 




move .w 


, dtemp 




90 
91 
92 


0000004C 


4EFB 


40B2 




imp 


]table (dtemp. w) 






00000050 


1014 




sbyte 


move .b 


(object) , gvalue 
gvalue 






93 


00000052 


4880 






ext .w 






94 


00000054 


48C0 






ext .1 


gvalue 






95 


00000056 


6164 






bsr . s 


runref 






96 


00000058 


1380 






move -b 


gvalue, (object ) 
#32-8, dtemp 






97 


OOO0OO5R 


7818 






moveq 






98 


OO000O5C 


E9A0 






asl.l 


dtemp, gvalue 
next re? 






99 


OO00005E 


68S2 






bvc . s 






100 


00000060 


337C 


0064 




move w 


# sbyteer r .escapecode (aS) 








FFFE 














101 


00000066 


6068 






bra . s 


linkerr 






102 


















103 


00000068 


3014 




sword 


move.w 


(object ) , gvalue 

gvalue 






104 


0000006A 


48C0 






ext .1 






105 


OO000O6C 


614E 






bsr . s 


runref 






106 


OOO0OO6E 


3880 






move .w 


gvalue, (object ) 
#32-16, dtemp 






107 


00000070 


7810 






moveq 






108 


00000072 


E9A0 






asl.l 


dtemp, gvalue 
next ref 






109 


00000074 


683C 






bvc . s 






110 


00000076 


337C 


0065 




move .w 


#swo rder r ,escapecode (a5) 








FFFE 














111 


00000O7C 


6052 






bra . s 


linkerr 






112 
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113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 

125 
126 
127 
128 
129 
130 
131 

132 
133 

134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 

149 
150 
151 
152 
153 
154 
15S 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
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sint move.l (object ) ,gvalue 

bsr.s runref 

move.l gvalue, (Ob ject ) 

bra. 5 nextref 



00000C7E 

0OOO0C8O 
OOOOOC 



«» File name: EVBLGVR 



2014 
613A 
2880 



00O00C84 602C 

00000086 4280 
00000088 1014 
0000008S 6130 
0000008C 1880 
0000008E E080 
00000090 6720 
00000092 3B7C 0068 

FFFE 
00000098 6036 

0000009A 4280 
0000009C 3014 
0000009E 611C 
OOOOOORO 3880 
000000H2 COBC FFFF 

0000 
000000A8 6708 
0000003A 3B7C 0069 

FFFE 
00000080 601E 

00000082 BICfl 
0OO0OOB4 6D00 FF78 

OOO00OB8 4ED3 



clr.l 
move . b 
bsr.s 
move.b 
asr .1 
beq .s 
move.w 

bra .s 

clr.l 

move.w 

bsr.s 

move.w 
and . 1 

beq .s 



xt ref cmpa. 1 
bit 



OOOOOOBR 
O0OO00BC 

ooooooco 

000000C2 
0OOO0OC4 
0OO000C6 
0OO00OC8 
OOOOOOCA 

0000001)0 
O0000OD2 
00O00OD4 
000000D6 
00000008 
0000000A 
000000DC 
000000E0 
0OOO0OE2 
00O00OE4 
00OO0OE6 
OOOOOOEA 
OOOOOOEC 
O0O0OOEE 
000000 F2 
O0000OF4 
000000F6 



3418 runlist 

0802 0009 runref 

6718 

4A01 

6A10 

9098 

6810 

3B7C 0066 intover 

FFFE 

CD8C linkerr 

2886 

4E4A 

D098 addit 

69F0 

ES5R pt 

C47C 0003 

677C 

2809 

6618 

2260 FFE4 

6002 

2251 mloop 

2829 0006 mstart 

B1C4 

6FF6 

D8B9 OOOfl 



imp 

move.w 
btst 
beq .s 
tst .b 
bpl.s 
sub.l 
bvc .s 
move.w 

exg 

move . 1 
trap 
add.l 
bvs 
rol .w 
and 
beq .s 
move. 1 
bne .s 
movea . 1 
bra .s 
movea . 1 
move. 1 
cmpa. 1 
ble.s 
add.l 



gvalue 

(object ) .gvalue 

runref 

gvalue, (object ) 

#8, gvalue 

next ref 

#ubyteerr,escapecode(a5) 



gvalue 

(object) .gvalue 
^unref 



S value, (object 1 
$FFFF0O00,gvai 



next ref 
#uworderr,escapecode(a5) 



atemp,gvrptr 
ref loop 

(return) 

(gvrpt r)*,gvr get gvr record 

#valueextend,gvr 

Pt 

sub 

addit 

(gvrpt r)+, gvalue 

Pt 

ttsinterr , escapecode (aS ) 

object .aobject 

aobject, (object) 

#10 

(gvrpt r)*, gvalue 

intover 

#16 -primar yt ype ,gvr type 

#3, gvr 2 bits 

endrun done if abs 

modptr ,dtemp find module 

notnil 

newmods (a5) ,modpt r 

mstart 

(modpt r) ,modpt r link 

defaddr (modptr) ,dtemp 

dtemp, gvrpt r 

mloop 

defsize(modptr) , dtemp 
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166 
167 
168 
169 
170 
171 

172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 



0OO000FP, 
00O00OFC 
000000FE 
00000100 
00000102 
00000106 

0OO001OC 
00OO01OE 
00000110 
00000112 
00000116 
00000118 
0000011P, 
0000011C 
00000120 
00000124 
00000126 
00000128 
0000012R 
0000012C 
0OO0012E 
00000130 
00000132 
00000134 
00000138 
O0O0013C 
0000013E 
00000140 
00000142 
00000144 
00000143 
0000014A 
0000014E 
00000150 
000001S2 
00000154 
00000156 
OOOOOISA 

oooooisi: 

OO00016E 



notnil 



B1C4 

6EEE 

5542 

6F5E 

51CD OOOA 

3B7C 006E 

FFFE 

4E4A 

3418 rloop 

3801 

0802 OOOt 

6702 

4601 

3602 nosub 

C67C FFFG 

B67C 0004 

6E06 

6138 

3204 

3020 

2F09 

2F08 

3F02 

1F04 

2069 0010 

2070 3000 
4244 
3244 
1810 
5444 

0884 0000 
D0C4 

6100 FF6E 
121F 

34 IF 

205 F 

225F 

0802 0000 nextr 

67B2 

S245 

4E75 endrun 



defref 



cmpa. 1 

bgt.s 

subq 

ble.s 

dbra 

move.w 

trap 



btst 
beq.s 
not .b 



cmp 
bgt.s 
bsr.s 
move 
bra .s 
move. 1 
move. 1 
move.w 
move. b 
movea . 1 
movea . 1 
clr 

movea. w 
move. b 
addq 
bclr 
adda.w 
bsr 

move.b 
move.w 



movea 

movea 

btst 

beq 

addq 

rts 



save for later 



dtemp, gvrptr 

mloop 

#2, gvr primary type 

addref reloc or global 

depth, rloop limit recursion 

#deptherr, escapecode (a5 ) 



#10 

(gvrptr)*, gv 

sub, dtemp 

#op,gvr 

nosub 

sub 

5 vr .field 
$FFFC, field 
#4, field 
defref 
addref 
dtemp, sub 
next r 

modptr,- (sp) 
gvrptr, -(sp) 
gvr,-(sp) 
ltemp, -(sp) 



save modptr 
save gvrptr 
save done 
sub 



extaddr (modpt r ) , gvrpt r 
"" ' - ■ ■ ^gvrptr 



0(gvrptr, field 

dtemp 

dtemp, modptr 

(gvrpt r) , dtemp 

#2 , dtemp 

#0, dtemp 

dtemp, gvrpt r 

runlist 
5p)+, sub 
sp ♦.gvr 
sp) + , gvrpt r 
s p ) + , mo d p t r 
done, gvr 

rloop 

#1, depth 



modptr := NIL 
length of symbol 
skip symbol 



restore sub 
restore done 
restore gvrptr 
save modptr 



00000160 6D18 

00000162 AfiOl 

00000164 6A0A 

00000166 90A9 002B 

0OOO016A 6900 FFSE 

0000016E 4E7S 



addref blt.s reloc 

global tst.b sub 

bpl.s addglobal 

sub.l global delta(modptr), gvalue 

bvs intover 

Kl?4° gISS ?°fI8 "W'kj"-! Jlobjld.lt.rmodp.rJ, gvalue 
00000178 4E75 rts ln '° ver 

0000017A 4A01 rel 
0000017C 6A0A 
0000017E 90A9 0026 
00000182 6900 FF46 



tst .b 


sub 




bpl.s 


addreloc 




sub.l 


relocdelta (modptr) 




bvs 


intove r 
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00000186 4F.7S rts 

00000188 D0PI9 0026 addreloc add. 
0000018C 6300 FF3C bvs 
00000190 4E75 rts 



*»» File name: EVfiLGVR »»* 



22 2 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

PfiSS 1 ERRORS: 
PASS 2 ERRORS: 



relocdelta(modptr) .gvalue 
intover 



*proc evalgvr(var gvalue, gvrptr: address; 
* ' modptr: moddesc pt r ) ; 



00000192 265F 
00000194 225F 
00000196 245F 
00000198 20S2 
0000019B 4280 
0000019C 4201 
0000019E 7P.0R 
OOOOOlflO 6100 FF18 
000001R4 2488 
000001A6 245F 
000001B8 2480 
OOOOOlfiP 4ED3 



evalgvr 



movea . 1 


( sp) +, return 


movea . 1 


(sp}+, modptr 


movea . 1 


(sp)+, atemp 


movea . 1 


(atemp) ,gvrpt r 


clr.l 


gvalue 


cl r . b 


sub 


moveq 


ttmaxdept h, depth 


bsr 


runlist 


move . 1 


gvrpt r , [ atemp) 


movea . 1 


(sp)+, atemp 
gvalue, (atemp) 
I ret urn) 


move . 1 


jmp 



return address 



allow nesting 
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FASTMOVE 



Description 

FASTMOVE implements the data- moving procedures ASM.MOVELEFT and ASM_MOVERIGHT as well as a 
similar procedure called FASTMOVE. 



Notes 

FASTMOVE determines which direction the bytes should be moved. MOVELEFT and MOVERIGHT (which 
employ the above procedures) may have unpredictable results if the direction is opposite that 
which is appropriate. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PAGE 1 [3.0] 12/26/84 21:00:23 ASSEMBLY OF FASTHOVE .TEXT **• File name: FflSTMOVE 

PBSS 1 COMPLETE. ERRORS: 

1 * UNIFIED GENERAL PURPOSE BYTE MOVE OPERATION 

2 

3 def asm_f astmove,asm_movel, asm_mover , asm_movelef t , asm_moveright 

4 

5 0000 0000 length equ dO 

6 0000 0001 delta equ dl 
7 

8 OOOO OOOO return equ aO 

9 OOOO 0001 source equ al 
10 OOOO 0002 destination equ a2 
11 

12 
13 

14 OOOO OOOO asm_movel equ « 

15 OOOO OOOO asm_moveleft equ « 

16 00000000 205F movea.l (sp)+, return 

17 00000002 201 F move.l (sp)*, length 

18 00000004 6R8 ble.s nonpos length must be > 

19 00000006 245F movea.l (sp)+ , dest inat ion 

20 00000008 22SF movea.l (sp)*, source 

21 OOOOOOOA 6020 bra.s left 
22 

23 OOOO OOOC asm_rnover equ * 

24 OOOO OOOC asm_moveright equ » 

25 OOOOOOOC 205F movea.l (sp)*, return 

26 OOOOOOOE 201F move.l (sp)*, length 

27 00000010 6F0C ble.s nonpos length must be > 

28 00000012 245F movea.l (sp)* ,dest ination 

29 00000014 225F movea.l (sp)+, source 

30 00000016 606PI bra.s right 
31 

32 OOOO 0018 asm_fastmove equ * 

33 00000018 205F movea.l (sp)*, return 

34 OOOOOOlfl 201F move.l (sp)* , length 

35 0000001C 6E04 bgt.s pos length must be > 

36 0000001E S04F nonpos addq #8,sp 

37 00000020 4ED0 jmp (return) 

38 00000022 245F pos movea.l ( sp) ♦, dest inat ion 

39 00000024 225F movea.l (sp)*, source 
40 

41 00000026 B5C9 cmpa . 1 sou rce, destination test direction 

42 00000028 6258 bhi.s right 

43 0000002A 6744 beq.s done 
44 

45 0000002C 3209 left move source,dl copies for testing oddness 

46 0000002E 340A move destination, d2 
47 

48 00000030 E249 lsr »l,dl test source address 

49 00000032 640C bcc.s 11 

50 00000034 E24A lsr #l,d2 source odd, test destination 

51 00000036 643C bcc.s slowleft source odd, destination even, worst case 

52 00000038 1409 move.b ( source)*, (dest inat ion)* both odd, move 1 initial byte 



( source)*, 
#1, length 
fastleft 



53 0000003A 5380 subq.l 

54 0000003C 6F06 bgt .s 

55 O0O00O3E 4ED0 jrnp (return) 
56 

57 00000040 E24A 11 lsr tl,d2 source even, test destination 

58 00000042 6530 bcs.s slowleft source even, destination odd, worst case 



AGE 2 [3.0] 12/26/84 21:00:23 ASSEMBLY OF FASTMOVE .TEXT *** File name: FBSTnOVE ** 

59 

60 * both source and destination addresses even, word moves possible 

61 

62 00000044 7220 fastleft moveq #32, delta 

63 00000046 9081- sub.l delta, length 

64 00000048 6D0E blt.s 111 

65 00O0004A 4CD9 18FC lloopl movem.l (source)*, d2-d7/a3-a4 move 32 byte chunks 

66 0000004E 48D2 18FC movem.l d2-d7/a3-a4, (destinat ion) 

67 00000052 D4C1 adda delta, dest inat ion 

68 00000054 9081 sub.l delta, length 

69 00000056 6CF2 bge.s lloopl 
70 

71 00000058 007C 0O1C 111 add #28, length 

72 0000005C 6D06 blt.s 112 

73 0000005E 24D9 lloop2 move.l (source) +, (dest inat ion) * move 4 byte chunks 

74 00000060 5940 subq #4, length 

75 00000062 6CFA bge.s lloop2 
76 

77 00000064 5440 112 addq #2, length 

78 00000066 6D02 blt.s 113 

79 00000068 34D9 move.w (source)*, (destinat ion)* move 2 bytes 
80 

81 0000006A E248 113 lsr #1, length 

82 0000006C 6402 bcc.s done 

83 0000006E 14D9 move.b (source)*, (dest inat ion)* move odd byte 
84 

85 00000070 4E00 done jrnp (return) 
86 

87 00000072 1409 lloop3 move.b (source)*, (destinat ion) + bytes not on word boundaries 

88 00000074 S1C8 FFFC slowleft dbra length, iloop3 

89 00000078 90BC 0001 sub.l #65536, length 

0000 

90 0000007E 64F2 bcc.s lloop3 

91 00000080 4ED0 jmp (return) 
92 

93 

94 00000082 D3C0 right adda.l length, source 

95 00000084 D5CO adda.l length, destination 
96 

97 00000086 3209 move source, dl copies for testing oddness 

98 00000088 340A move destination, d2 
99 

100 0000008A E249 lsr #1,01 test source address 

101 0000008C 640C bcc.s rl 

102 0000008E E24A lsr #l,d2 source odd, test destination 

103 00000090 643C bcc.s slowright source odd, destination even, worst case 

104 00000092 1521 move.b - (source ), -(destination) both odd, move 1 initial byte 

105 00000094 5330 subq.l #1, length 

106 00000096 6E06 bgt.s fastright 

107 00000098 4E0O jmp (return) 
108 

109 0000009A E24A rl lsr tl,d2 source even, test destination 

110 0000009C 6530 bcs.s slowright source even, destination odd, worst case 
111 

112 * both source and destination addresses even, word moves possible 

113 

114 0000009E 7220 fastright moveq #32, delta 
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move 32 byte chunks 



115 


OOOOOOBO 


9081 








sub.l 


delta, length 


116 


00000002 


600E 








blt.s 


rrl 


117 


0O0OOOA4 


92C1 




rloc 


Pi 


suba 


delta, source 


118 


000000fi6 


4C01 


18FC 






movem. 1 


(source) ,d2-d7/a3-a4 
d2-d7/a3-a4,-(destinatio 


119 


OOOOOOflA 


48E2 


3F18 






movem. 1 


120 


oooooonE 


9081 








sub.l 


delta, length 


121 


OOOOOOBO 


6CF2 








bge.s 


rloopl 


122 
















123 


OO0O00B2 


D07C 


001C 


rrl 




add 


*28, length 


124 


OO0O00B6 


6D06 








bit .5 


rr2 


125 


000000B8 


2521 




rloc 


P2 


move . 1 


-(source) , -(destination) 


126 


OOOOOOBB 


5940 








subq 


#4, length 


127 


OOOOOOBC 


6CFR 








bge . s 


rloop2 


128 
















129 


OOOOOOBE 


5440 




rr2 




addq 


#2, length 


130 


OOOOOOCO 


6D02 








blt.s 


rr3 


131 
132 
133 


OO00O0C2 


3521 








move .w 


-(source), -(destination) 


OOO0O0C4 


E248 




rr3 




Isr 


#1, length 


134 


OOOOOOCS 


64B8 








bcc . s 


done 


135 


000003C8 


1521 








move -b 


-(source), -(destination) 


136 


ooooodca 


4ED0 








jmp 


(return) 


137 
















138 


oooooocc 


1521 




rloo 


p3 


move.b 


-(source), -(destination) 
length, r loop3 
#65536, length 


139 


OOOOOOCE 


51C8 


FFFC 


slowrig 


ht dbra 


140 


00000002 


90BC 


0001 






sub.l 






0000 












141 


00000008 


64F2 








bcc . s 


rloop3 


142 
143 
144 


OOOOOOOA 


4E00 








jmp 


( return) 












nosyms 




145 












end 




pass l 


ERRORS: 














PASS 2 


ERRORS: 















move 4 byte chunks 

move 2 bytes 

move odd byte 

bytes not on word boundaries 
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FMINIT 



Description 

FMINIT is the initialization driver for the 9885 disc. 



Usage 

FMINIT is used by MEDIAINIT for 9885 discs. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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PPtGE 1 [3.0] 12/26/84 22:57:36 ASSEMBLY OF FMINIT. TEXT **» File name: FMINIT *** 

PBSS 1 COMPLETE. ERRORS: 
2 
3 

4 OOOOOOOO rorg 

5 nosyms 
6 

7 

9 ************************************************* 

9 * PASCAL module interface » 

10 ************************************************* 
11 

12 src module Fminit; 

13 src 

14 src import 

15 src sysglobals, 

16 src midecs; 

17 src 

18 src export 

19 src function Fintdata: interleave_dat a; 

20 src function Fphydata: physical_data; 

21 src procedure Fminit ialize (port : charptr; un: byte; intlve: shortint); 

22 src 

23 src end; 
24 

25 « 

26 * def's 

27 * 

28 def Fminit_Fminit module int ialization routine 

29 def Fminit_Fintdata interleave factor data function 

30 def Fminit_Fphydata physical attributes data function 

31 def Fminit Fminitialize 9885 formatting routine 
32 

33 * 

34 * ref's 

35 * 

36 refa sysglobals 
37 

38 * 

39 * module intializat ion routine 

40 * 

41 00000000 4E7S Fminit Fminit rts 
42 



PAGE 2 [3.0] 12/26/S4 22:57:36 FMINIT - 9885 INITIALIZATION ROUTINE *** File name: FMINIT *** 

44 

45 ************************************************* 

46 * functions * 

47 ************************************************* 
48 

49 * 

50 * interleave factor data function 

51 * 

52 00000002 0001 intdata dc 1 minimum interleave factor 

53 00000004 0010 dc 29 maximum interleave factor 

54 00000006 0001 dc 1 default interleave factor 
65 

56 0000 0008 Fminit_Fintdata equ » 

57 00000008 205F movea.l (sp)*,aO return address 

58 OOO00OOA 225F movea.l (sp)+,al return variable address 

59 0OO0000C 4CBA 0007 movem intdata, d0-d2 interleave data record constant 

FFF2 

60 00000012 4891 0007 movem d0-d2,(al) assign the return variable 

61 00000016 4ED0 imp (aO) return 
62 

63 
64 
65 



* physical attributes data function 

e f * 

68 00000018 0000 003F phydata del 67-4 number of tracks per surface 

69 0000001C 0000 OOOl del 1 number of surfaces per media 

70 00000020 0000 001E del 30 number of sectors per track 
71 

72 0000 0024 Fminit_Fphydata equ * 

73 00000024 205F movea.l Isp)+,a0 return address 

74 00000026 225F movea.l (sp)+,al return variable address 

75 00000028 4CFH 0007 movem. 1 phydata, do -d2 interleave_data record constant 

FFEC 

76 0000002E 48D1 0007 movem. 1 d0-d2,(al) assign the return variable 

77 00000032 4ED0 jmp (aO) return 
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*«* File name: FMINIT 



80 
81 
82 
83 
84 
85 



90 
91 
92 
93 
94 
95 
96 
97 



100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 



*********************** 

local variables * 

*********************** 



* local variables 

FFFF FEflfl locals equ -342 

FFFF FEAR v8Sbuf equ -342 

FFFF FFAA v8Sibuf equ -86 

FFFF FFE8 v861rp equ -24 

FFFF FFEC v8Slrso equ -20 

FFFF FFFO v8Sr29o equ -16 

FFFF FFF2 v8Sfrec equ -14 

FFFF FFF4 v851r0 equ -12 

FFFF FFF6 v8Sscmd equ -10 

FFFF FFF8 v85stat equ -8 

FFFF FFFB v85rc equ -6 

FFFF FFFB v8Srwf equ -5 

FFFF FFFC v8Sgtc equ -4 

FFFF FFFD v85btc equ -3 

FFFF FFFE v8Spatc equ -2 

FFFF FFFF v8Sgdcb equ -1 



passed parameters 



(266 bytes; 
(62 bytes) 



(long) 
(long) 

(word) 
(word) 
(word) 
(word) 
(word) 

(byte) 
(byte) 
byte 
byte 
(byte 
(byte) 



0000 


0000 


olda6 


equ 





long) 


0000 


0004 


ret addr 


equ 


4 


long 


0000 


0008 


int lve 


equ 


8 


word) 


0000 


OOOP 


un 


equ 


10 


word) 


0000 


OOOC 


port 


equ 


12 


long) 



total local area size 

read/write buffer 

interleave buffer 

logical record pointer 
logical record spiral offset 

logical record 29 offset 

first record 

this track's logical record 

skeleton command 

status word 

record count 
read/write flag 
good track count 
bad track count 
test pattern count 
gpio dma control byte 



dynamic link 
return address 
interleave factor 
unit number 
card port address 
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File name: FMINIT *** 



120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
1'7 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 

153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 



************* 



escape sequences 



****************************** 



* assignment of ioresult values 



************* 



oooo 


0010 


ior notGPIO 


equ 


16 


znodevice) 


0000 


0010 


ior not9885 


equ 


1$ 


znodevice) 


0000 


002E 


ior mediachange 


equ 


46 


zmediumchanged 


0000 


0011 


ior initfailed 


equ 


17 


zinit fail) 


0000 


001S 


ior_catchall 


equ 


21 


zcatchallj 



00000034 15 

00000035 10 

00000036 22 

00000037 22 

00000038 12 

00000039 20 
OO000O3B 20 
000O0O3B 01 
OO00OO3C 14 
0O000O3D 01 



* 9885 error code mapping to ioresult values 

* 

f8Secm 



dc 


b 


21 


zcatchal 1) 


dr 


b 


1$ 


znodevice j 


dc 


b 


34 


znomedium 


dc 


b 


34 


znomediumj 


dc 


b 


18 


zprotected) 


dr 


b 


32 


znoblockl 


dr 


b 


32 


znoblock) 


dc 


b 


1 


zbadblock ) 


dc 


b 


20 


zbadhardware) 


dc 


b 


1 


zbadblock ) 



card is not GPIO 
peripheral is not 9885 
media has been changed 
initialization failed 
error undetermined 



no er ror 

not all drives powered 

door open 

no disc in drive 

badcommand (write protected) 

record header error 

t rack not found 

data checkword error 

data overrun 

verify failed 



* subroutine ioresult escape: enter with ioresult in dO.l 



0000003E 2B40 FFEA ioresc move . 1 dO, sysglobals -22 ( a5 ) 

00000042 3B7C FFF6 move #-10 , sysglobals-2 (a5 ) 

FFFE 

00000048 4E4A trap #10 



store the ioresult 
store the escapecode 



escape a'la' Pascal 



* subroutine decode and issue the error code 



OOOQ004R 7200 f85die moveq 

0000004C 122E FFF8 move.b 

00000050 7015 moveq 

00000052 B27C 0009 cmp 

00000056 62E6 bhi 

00000058 103B 10DR move.b 

O000OO5C 60E0 bra 



#0,dl 
v85stat(a6),dl 

ttior catchall, dO 

#9,dT 

ioresc 

f85ecm[dl) ,d0 
ioresc 



clear upper byte for word indexing 
9885 error code 

ioresult in case error code is out of range 
is the error code within the expected range? 
branch if not 

load the appropriate ioresult value 
escape with the bad ioresult 
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169 

170 ********************************************************************** 

171 * gpio interface card switch settings * 

172 ********************************************************************** 
173 

174 * option switches 

175 

176 * 1} invert pelt open 

177 * 2) invert pflg open 

178 * 3) invert psts open 

179 * 41 full/pulse handshake open 

180 * 51 invert data in open 

181 * 6) invert data out open 
182 

183 

184 * data clock switches 

185 

186 * ll read open \ 

187 * 2) ready to busy closed lower data register 

188 * 3) busy to ready open / 

189 * 4 read open { 

190 * 5) ready to busy closed upper data register 

191 * 6 busy to ready open / 

192 ' 
193 

194 » select code switches: 0-31; default 1 

195 

196 

197 * interrupt priority switches: don't cares; default 

198 



PAGE 6 [3.0] 12/26/84 22:57:36 FMINIT - 9885 INITIALIZATION ROUTINE «*« File name: FMINIT *** 

200 

201 ********************************************************************** 

202 » , 

203 * basic program flow is as follows: * 

204 * * 

205 * Generate the interleave buffer containing the logical record * 

206 * number sequences. * 

207 * , 

208 * Reset dumbo to force a "seek" to physical track 0. * 

209 * ' » 

210 » Format 8 test the current track. If the track is good, increment « 

211 * the good track count. If not, increment the bad track count and * 

212 * make the bad track invisible. Step the heads in one track. Repeat * 

213 * until all 67 tracks have been processed. * 

214 * , 

215 * Reset dumbo again. * 

216 » , 

217 * if more than 4 tracks were bad, issue an error. * 

218 « * 

219 ************* ************* ********* *********************************** 
220 

221 
222 

223 ********************************************************************** 

224 * * 

225 * procedure for formatting and testing one track * 

226 * » 

227 * i. Format the track with the sequence of logical record numbers * 

228 * appropriate for the specified interleave factor. * 

229 * * 

230 * 2. with tight margins read back the data written by the format. * 

231 * write & read back under tight margins 3 other test patterns. * 

232 * write O's to all records. * 

233 * * 

234 * 3. If the track had no errors, increment the good track count. * 

235 * Else increment the bad track count and make the (bad) track * 

236 * invisible. * 

237 * * 

238 ********************************************************************** 
239 
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241 








242 








243 








244 








245 








246 








24 7 








248 








249 




0000 


005E 


250 








251 


0000005E 


4E56 


FEfiB 


252 








253 


00000062 


286E 


OOOC 


254 








255 








256 








257 


00000066 


7010 




258 


00000068 


721F 




259 


00000060 


C22C 


0001 


260 


0000006E 


5701 




261 


00000070 


66CC 




262 








263 


00000072 


7010 




264 


00000074 


720B 




235 


00000076 


C22C 


0007 


266 


OO000O7P, 


66C2 




267 








268 








269 








270 


0000007C 


197C 
0003 


0000 


271 


00000082 


197C 
0007 


0000 


272 








273 


00000088 


6100 


0398 


274 








275 


0000008C 


70FC 




276 


0000008E 


8065 


OOOfi 


277 


00000092 


E8S8 




278 


00000094 


6100 


0390 


279 








280 


00000098 


6100 


0396 


281 


0000009C 


3D40 


FFF8 


282 








283 


OOOOOOAO 


7000 




284 


0O0O0OP.2 


6100 


0382 


285 








286 


OO0O0OB6 


702E 




287 








288 


oooooons 


7204 




289 


OOOOOOBP, 


C26E 


FFF8 


290 


OOOOOOflE 


668E 




291 









************************** 



:****** ********************* **************** 

* format the media * 

**************************************************** ****************** 



* preliminary setup & checks 
Fminit_Fminitialize equ * 

link a6,ttlocals 

movea.l port(a6},a4 
* 

* test for gpio card; status clear; 



moveq #ior notGPIO,dO 

moveq #31,31 

and.b l(a4),dl 

subq.b t3,dl 

bne ioresc 

moveq ttior_not9885 ,d0 

moveq #$0B,dl 

and.b 7(a4),dl 

bne ioresc 

test for media change 

move.b #0,3(a4) 

move . b #0 , 7 ( a4 ) 



build our stack frame 

a4 dedicated as the gpio card pointer 

stiO 8 stil clear 

ioresult in case card is not GPIO 
mask for card id bits 
iosolate the card id bits 
is the card GPIO? 
escape if not 

ioresult in case peripheral is not a 9885 
mask for peripheral status bits 
isolate the appropriate status bits 
branch if inappropriate status for 9885 



clear enab, word, dmacl, dmacO 
clear ctlO & ctll 



bsr 
moveq 



bsr 
move 



moveq 
bsr 



f8Slgir 

#-4,d0 
un(a6) ,d0 
#4,d0 
f85wo 

f85wi 
d0,v85stat (a6) 

#0 dO 
f8Swo 



moveq #ior_mediachange,dO 



moveq 
and 

bne 



#$04, dl 

v85stat (a6) ,dl 
ioresc 



give the password 

build the 

request status 
command 
issue it 

fetch the status word 

save the status word for now 



complete the handshake with the '85 

ioresult in case media was changed 

disc changed bit 
is it set? 
escape if so 
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293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
3C4 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 

329 

330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
34 
341 
342 
343 
344 



generate the interleave buffer (in ibuf) 



00000030 41EE 
00000084 43E8 
00000088 70FF 
O0000O8A 7207 

ooooooec 2oco 

0000008E 51C9 

O0O0OOC2 41EE 
OOO0OOC6 4210 
000000C8 7001 

OOOOOOCfl DOEE 

0OOO0OCE B1C9 
O0000O0O 6D04 
O0O00OID2 90FC 

00000006 4R18 
00000008 6BF4 

OO000O0P 1100 
OO000ODC 5240 
O0O00O0E B07C 
OO000OE2 6DE6 

OO000OE4 4 3EE 
OO00OOE8 91C9 
OOOOOOEfi 3D48 



OOOOOOEE 4CEE OOFF 

FFBP, 
OO00OOI-4 48EE OOFF 

FFC8 



FFHA 
001E 

FFFC 




lea 

lea 

moveq 

moveq 

move. 1 

dbra 


v85ibuf (a6) 

30(a0],al 

#-l,dO 

#8-1, dl 

dO,(aO)» 

dl,*-2 


,aC 


FFfifi 




lea 
clr .b 
moveq 


v85ibuf (a6) 

(aO) 

#l,dO 


,30 


0008 


f8Sgbl 


adda 


intlve(a6) , 


aO 


001E 


f8Stpr 


cmpa . 1 
blt.s 

suba 

tst .b 

bpl 


al.aO 
*+6 
#30, aO 

(a0) + 
f85tpr 




001E 




move .b 
addq 

cmp 
bit 


dO,-(aO) 
#l,dO 
#30, dO 
f8Sgbl 




FFP.fi 
FFFO 




lea 

suba. 1 
move 


v85ibuf (a6) 

al,aO 

aO,v85r29o( 


,al 
a6) 



buffer's first byte address 
buffer's last byte address plus one 
buffer's initial contents 
loop counter 
store four bytes 
loop until done 

buffer's first byte address 
logical record goes here 
logical record number counter 

bump by the interleave factor 

are we still in range? 

branch if so 

otherwise, circle around 

is this slot empty? 
branch if not 

this slot's empty: claim it 
bump the logical record number 
all 30 lrn's (0-29) placed? 
loop until done 

buffer's FBR (lrn O's position) 
offset from lrn to lrn 29 
save it 



nake another copy of the buffer 

movem.l vSSibuf (a6) ,d0-d7 load 32 bytes 

movem.l dO-d7 ,v85ibjf+30 (a6 ) store 32 bytes 

* 

* some initializations for the main loop 



OO0O0OPA 1940 0001 

0000OOFE 41EE FFAfi 
00000102 2D48 FFEC 
00000106 422E FFFC 
OOOOOlOfl 422E FFFD 

0000010E 700C 
00000110 806E OOOP) 
00000U4 E858 
0000OU6 3040 FFF6 



move.b dO, 1 (a4 ) 



lea 

move.l 

clr.b 

clr.b 

moveq 



v85ibuf (a6) ,a0 
a0,v851rso(a6) 
v85gtc(a6) 
v85btc(a6) 

#$OC,dO 
un(a6) ,d0 
#4,d0 

d0,v35scmd(a6) 



clear the gpio card & reset dumbo 

interleave buffer's FBfl 

init the logical record spiral offset 

clear the good track count 

clear the bad track count 



unit number 

skeleton for various commands 

save it 



1-197 
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346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 

380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 



main loop section 



OOOOOllfl 6156 

000001 1C 102E FFFC 

00000120 D02E FFFD 

00000124 B03C 004D 

00000128 6C22 

0000012H 6100 02F6 

0000012E 302E FFF6 

00000132 807C 0F9F 

00000136 6100 02EE 

0000013B 6100 0194 

0000013E C07C FFFC 

00000142 B07C 0020 

00000146 67D2 

00000148 6000 FFOO 



* formatting complete: wrap it up 
* 
0000014C 1940 OOOl f$Sfc move.b d0,l(a4) 



move . b 
add.b 
cmp.b 
bge . s 


v85gtc (a6) ,d0 
v85btc(a6) ,d0 
*77,d0 
f85fc 


bsr 
move 
or 
bsr 


f851gin 

v85scmd(a6),d0 
#I0F9F,dO 
f85wo 


bsr 
and 
cmp 
beq 
bra 


f85fst 
#tFFFC,dO 
#10020, dO 
f85ml 
f85die 



00000150 7028 
00O001S2 51C8 FFFE 

00000156 7011 
00000158 0C2E 003F 

FFFC 
0000015E 6000 FEDE 

00000162 4E5E 
00000164 20&F 
00000166 S08F 
00000168 4ED0 



moveq 
dbra 



#40, dO 
dO,* 



moveq #ior_init failed, dO 
cmpi.b t63,v85gtc(a6) 



bit 



unlk a6 

movea.l (sp) + 

addq. 1 #8 , sr 

jmp (aO) 



format and test one track 

good t rack count 
bad track count 
all done? 
branch if so 

give the password 
basic command skeleton 
form a step in command 
issue it 

fetch status 

strip off the drive bits 

seek complete, no errors? 

if so, continue with the main loop 

otherwise, decode and issue error 



clear the gpio card & reset dumbo 

a bit for card to reset JS 8/19/83 
JS 8/19/83 

ioresult in case of excessive rejected tracks 
did we get enough good tracks? 

escape if not 

remove our stack frame 
pop off the return address 
pop off the parameters 
return 



0000016B 6363 
0000016C DB6D 
0000016E 8888 
00000170 0000 



* test patterns 

* dc 
f85ptrn dc 

dc 
dc 
dc 



(the first is written by the format command!) 

1 2 

JC6C6 11 0001 101 1000 1101 10001 10 11 0001 10 
$6363 01 10O01 101 10001 101 10001 101 100011 
SDB6D 11011011011011011101101101101101 
$8888 1 OOOl 0001 0001 0001000 10001 0001 000 
$0000 (final sector contents) 
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398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 

451 



* routine to format and test one track 



00000172 102E 
00000176 B03C 
0000017B 6C00 



0000017E 
00000182 
00000186 

0000018P 
0000018E 
00000192 
00000194 
00000198 
0000019A 

0000019E 
000001A2 
000001H6 

00O001B8 

OOOOOlflC 

00O001AE 
00OO01B0 
00O001B4 



DC2E 
BOSC 
6E00 

6100 
3C2E 

F.fl: 3 

8o;e 

EB?8 
807C 

6100 
3940 
4E4B 

007C 

1880 

721D 
206E 

7000 



FFFC 
003F 
01 IE 

FFFD 
C042 
0112 

0296 
FFF6 

FFFC 

001E 

0270 
0004 



00O001B6 1018 



00O001B8 
0OO001BC 

00O001BE 
000001C2 

000001C4 

000001C8 

000001CA 
O0O001CE 
000001D2 

0OO001D6 



6100 
600A 

3940 
1880 

51C9 

46DF 

6100 
C07C 
B07C 
6600 



000001DA 47FR 



000001DE 1D7C 

FFFE 



f85fmt move.b 
cmp.b 
bge 

add.b 
cmp.b 
bgt 

bsr 
move 
ro r 

or.b 
rol 



bsr 
move 
trap 
scs move 

o ri 



v85gtc(a6) ,d0 

*63,d0 

f85mtd 

v85btc(a6) ,d0 

t66,d0 

f85mtd 

f851gin 

v85scmd(a6) ,d0 
#5.d0 

v8Sgtc(a6) ,d0 
*5,d0 
#30, dO 

f85wf 
d0,4 (a4) 
#11 

sr.-(sp) 
#$2700, sr 



good t rack count 

already have enough good tracks? 

branch if so (don't le 



extra" tracks) 

compute current physical track number 
out past the 9885's "supported" range? 
branch if so (don't leave "extra" tracks) 

give the password 
basic command skeleton 

current logical track number 

format command for this track 

wait for the flag 

place the command in the output buffer 

scs 
prepare to disable interrupts 
disable interrupts 



************************ interrupts disabled ************************* 



move.b d0,(a4) 

moveq #30-1, dl 

movea.l v851rso(a6 ) , aO 

moveq #0,d0 

f8Sflb move.b (aO)*,dO 



024C 
0004 
FFFO 



bsr f85cswf 

bra.s f8Sfle 



move d0,4(a4) 

move. b dO, (a4 ) 



dbra 
f8Sfle move 



dl,f85flb 
(sp)*,sr 



set the peripheral control flag 

initialize the loop counter 
logical record spiral offset 
need upper byte cleared 

next logical record number to send 

check status and wait for the flag 
ret 1; terminate & check status 

place the lrn in the output buffer 
set the peripheral control flag 

loop until all 30 lrn's sent 

re-enable interrupts 

***************** 



0104 

FFF8 
0040 
FE72 



FF8E 

0004 



****** interrupts re-enabled ** 

bsr f85fst fetch status 

and #$FFF8,dO strip the drive & disc change bits 

cmp #$0040, dO format complete, no errors? 

bne f85die if not, decode and issue error 
* 

* prepare for reading and writing under i/o control 
* 

lea f85ptrn,a3 first test pattern address 

move.b #4 , v85patc (a6 ) init the pattern count 



1-198 
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453 


















454 






* 












455 






* 


loop 


to read 


verify the previous 


pattern and write the next pattern 




456 






* 


note: the f 


irst test pattern was written by the format command! 




457 






* 




the last pattern written 


is 0, and will not be read verified 




458 






* 












459 


















460 






* 












461 






* 


ve ri1 


y under 


i/o control 






462 






* 












463 


000001E4 206E 


FFEC 


f85vwi 


movea . 1 


v851rso(a6) ,a0 
a0,v851rp(a6) 


logical record spiral offset 




464 
465 
466 


O00001E8 2048 


FFE8 






move . 1 


init the logical record pointer 




000001EC 1D7C 


001E 






move .b 


*30,v85rc(a6) 


init the record counter 






FFFA 
















467 


















468 


000001(2 7000 








moveq 


«0,d0 
v85gtc(a6) ,d0 


clear the upper byte 




469 


000001F4 102E 


FFFC 






move .b 


this track's logical track* 




470 


000001F8 COFC 


001E 






mulu 


#30, dO 


this track's logical record 




471 


000001 FC 3D40 


FFF4 






move 


d0,v851r0(a6) 


save it 




472 


















473 


000002CO 206E 


FFE8 


f85vl 


movea . 1 


v851rp(a6) , aO 


logical record pointer 




474 


000002C4 7000 








moveq 


#0,d0 
(aO)+,dO 
v851r0fa6) ,dO 
a0,v851rp(a6) 
d0,v85frec(a6 1 


clear upper byte and word 




475 


O00002C6 1018 








move .b 


logical record to verify next 




476 


00000208 D06E 


FFF4 






add 


this track's logical record 




477 


0000020C 2D48 


FFE8 






move . 1 


updated logical record pointer 




478 


00000210 3040 


FFF2 






move 


record to verify 




479 


















480 


00000214 51EE 


FFFB 






sf 


v85rwf (a6) 


set read/write flag to read 




481 


00000218 6100 


0000 






bsr 


f8Sxfr 


do the transfer 




482 


0000021C 6042 








bra . s 


f8Sferr 


ret 1; some error occurred 




483 


















484 


0000021E 532E 


FFFA 






subq .b 


#l,v85rc(a6) 
f8Svl 


decrement the record counter 




485 


00000222 6E0C 








bgt 


loop til all 30 records are verified 




486 


















487 






* 












488 






* 


write 


under i 


/o control 






489 






* 












490 


00000224 3013 








move 


(a3) ,d0 


test pattern 




491 


00000226 4840 








swap 


dO 






492 


00000228 301B 








move 


(a3)+,d0 


need it in upper & lower words 




493 


0000022A 41EE 


FEAA 






lea 


v8Sbuf(a6),aO 
#64-1, dl 
d0,(a6)* 


first word address 




494 


0000022E 723F 








moveq 


initialize the loop counter 




495 


00000230 20CO 








move . 1 


write four bytes 




496 


00000232 51C9 


FFFC 






dbra 


dl,*-2 


loop until done 




497 


















498 


00000236 206E 


FFEC 






movea . 1 


v851rso(a6) ,a0 
aO,v8Slrp(a6) 


logical record spiral offset 




499 


0000023A 2D48 


FFE8 






move . 1 


logical record pointer 




500 


















501 


0000023E 1D7C 
FFFA 


001E 






move -b 


#30,v85rc(a6) 


init the record count 




502 
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504 


















505 


00000244 206E 


FFE8 


f8Swl 


movea . ] 


v851rp(a6) ,a0 


logical record pointer 




506 


00000248 7000 








moveq 


#0,d0 
(a0)+,d0 
v851r0(a6) ,d0 


clear upper byte and word 




507 


0000024A 1018 








move.b 


next record to be written 




508 


0000024C D06E 


FFF4 






add 


this track's logical record 




509 


00000250 2D48 


FFE8 






move . 1 


a0,v851rp(a6) 
dO,v8Sfrec(a6) 


updated logical record pointer 
record number to write 




510 


00000254 3040 


FFF2 






move 




511 


















512 


00000258 50EE 


FFFB 






5t 


v85rwf (a6) 


set the read/write flag to write 




513 


0000025C 6100 


008C 






bsr 


f85xfr 


do the transfer 




514 


00000260 6020 




f85ferr 


bra . s 


f85err 


ret 1; some error occurred 




515 


















516 


00000262 S32E 


FFFA 






subq.b 


#l,v8Src(a6) 
f85wl 


decrement the record count 




517 


000002(16 6EDC 








bgt 


loop till all 30 records are written 




518 


















519 


















520 


















521 


00000268 S32E 


FFFE 






subq.b 


#1 ,v85patc(a6) 
f8Svwl 


decrement the pattern count 




522 
523 
524 


000002CC 6E00 


FF76 






bgt 


loop until done 




00000270 522E 


FFFC 






addq.b 


♦I,v85gtc(a6) 


increment the good track count 




525 


















526 


00000274 701A 








moveq 


♦26, dO 

intlve(a6),d0 

V85r29o(a6),d0 






527 


00000276 906E 


0008 






sub 






528 


OO00027A 906E 


FFFO 






sub 


(offset-offset-inter-r29o+26) 




529 


OO0O027E 48C0 








ext .1 


dO 


need the offset long 




530 


00000280 6038 








bra .s 


f85bof 


bump the logical record offset 




531 


















532 


















533 


















534 






* 












535 






* 


an error occurred in verifying or writing: is it "ok"? 




536 






* 












537 


00000282 102E 


FFF8 


f8Serr 


move .b 


V85stat(a6),d0 


the upper byte of the error code word 




538 


















539 


00000286 SBOO 








subq .b 


#S,dO 
f85mtd 


id error? 




540 


00000288 6710 








beq . s 


branch if so 




541 


0000028A 5300 








subq .b 


#6-5,d0 


track error? 




542 


0000028C 670C 








beq.s 


f8Smtd 


branch if so 




543 


0000028E 5300 








subq.b 


#7-6,d0 


crc error? 




544 


00000290 6708 








beq. s 


f8Smtd 


branch if so 




545 


000002SI2 5500 








subq.b 


#9-7, dO 


verify er ror? 
branch if so 




546 


00000294 6704 








beq.s 


f85mtd 




547 


















548 


OO0002SI6 6000 


F0B2 






bra 


f85die 


take the error exit 




549 
















1-199 



mark the (bad) track defective (invisible) 



0000029R 6100 


0186 f8Smtd bsr 


f851gin 


0000029E 302E 
00000202 8C7C 
000002A6 6100 


FFF6 

OFBF 
017E 


move 

or 
bsr 


v85scmd(a6) ,d0 

#$OFBF,dO 

f8Swo 


000002AA 6124 
0OO002AC C07C 
000002BO 6600 


FFFC 
F098 


bsr .s 

and 

bne 


f85fst 

#$FFFC,dO 

f85die 


00000264 522E 


FFFD 


addq . b 


#l,v86btc(a6) 


000002B8 70FC 


* 


moveq 
bra .s 


#-4,d0 
f8Sbof 
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551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
S66 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 



»** File name: FMINIT «*» 



give the password 

basic command skeleton 

form a mark track defective cmd 

issue it 

fetch status 

strip off the drive bits 

branch if any errors 

increment the bad track count 

logical record offset to be bumped by 4 
bump the offset 



000002BA DOSE FFEC f85bof 
000002BE 2D40 FFEC 
000002C2 41EE FFAA 
000002C6 B088 
000002C8 6C04 
000002CR 701E 
000002CC BOEC 
000002CE 4E7S 



* subroutine to bump the logical record spiral offset 
8Slrso(a6),d0 



add.l 
move. 1 
lea 
cmp.l 

bge.s 
moveq 
bra .s 
rts 



dO,v851rso(a6) 
v85ibuf(a6),ao 



#30, dO 
f8Sbof 



0OO002DO 6100 0134 f85fst 
000002D4 4E71 



000002D6 6100 01SS 
000002DA 3D40 FFF8 



000002DE 7000 
00O002E0 6100 0144 



000002E4 302E FFF8 
000002E8 4E75 



subroutine to fetch status 
f85cswf 



bsr 
nop 

bsr 

move 



f85winw 
d0,v85stat (a6) 

#0,d0 
f85wo 

v8Sstat (a6) ,d0 



bump it 

save it 

interleave buffer's FBA 

offset still in range? 

branch if so 

else put it in range 



check status and wait for the flag 
ret 1 ; error occurred 

word in; don't wait on the flag 
save the status word for now 



complete the handshake with the '85 
load the status word 
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599 
600 
601 
602 
603 
604 
605 
606 
607 

608 
609 
610 
611 
612 
613 

614 

615 

616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
63S 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
6S0 
651 
652 



*************************************** ******************* ************ 

* routine to transfer one sector * 

********************************************************************** 



000002EA 247C 

0000 

00O002FO 7005 



000002F2 1D40 
000002F6 197C 

0003 
000002FC 197C 

0007 



00000302 6100 



FFFF 
0000 



* gain access to the dma channel 
* 

f85xfr movea.l #$500000, a2 

moveq #$05, dO 
* 

* set up the gpio card 

move.b d0,v85gdcb (a6) 
move.b #0,3(a4) 

move.b #0,7(a4) 



» build and issue the seek command 



00000306 
00O0030A 
0000030C 
00000310 
00000312 
00000314 
00000316 
0000031A 
0000031C 
00000320 
00000322 



302E 
48C0 
81 FC 
4840 
EA58 
EE98 
806E 
E458 
807C 
E458 
6100 



011E 
FFF2 
001E 

OOOB 
0003 
0102 



bsr 


f851gin 


move 


v85f rec(a6),d0 


ext .1 


dO 


divs 


#30, dO 


swap 


dO 


ror 


#5,d0 


ror .1 


#7,d0 


or 


un (a6) ,d0 


ro r 


#2,d0 


or 


♦3,00 


ror 


#2,d0 


bsr 


f8Swo 



DMA channel address 

gpio dma control byte: chan 



save the gpio dma control byte 
clear enab, word, dmacl, dmacO 

clear ctll & ctlO 



give the password 

first record number 
make it long for division 
split into track & sector *'s 
track in upper; sector in lower 
sector in upper bits of lower 
track&sector in upper bits of lower 
t rackRsector&OO&unit in lower 
unit&t rack&sector&OO 
unit St rack&sector&ll 
ll&unit&track&sector (finally!) 
issue the seek command 



* partially build the appropriate transfer command 



00000326 6100 

0000032A 302E 
0000032E E858 
00000330 5240 

00000332 41EE 
00000336 2488 

00000338 727F 
0000033A 3541 

O0O0033E 6100 
00000342 605A 

0000034-4 4A2E 
00000348 6B56 



00 FA 


bsr 


f8Slgin 


OOOfi 


move 
ro r 
addq 


un(a6) ,d0 

#4,d0 

#l,dO 


FEAA 


lea 

move. 1 


v85buf (a6),a0 
aO , ( a2 ) 


0004 


moveq 
move 


#127,dl 
dl ,4(a2) 


00C6 


bsr 
bra .s 


f85cswf 
f85_grs 


FFFB 


tst .b 

bmi .s 


v8Srwf (a6) 
f85 wrt 



give the password 

unit number 

position for read/write/verify 

specify a record count of one 

read/write buffer's FUA 

write in the DMA channel's address registe 

#words-l in a sector 

write in the DMA channel's count register 

check status and wait for the flag 
ret 1 - error; go read status 

read/write flag 
branch if a write 
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654 

655 * 

656 * section for verify (read) 

657 * 

658 0000034A 08C0 OOOE bset #14, dO make a verify command 

659 0000034E 3940 0004 move d0,4(a4) place cmnd in the output buffer 
660 

661 00000352 4E4B trap til scs 

662 * 5CS move sr,-(sp) prepare to disable interrupts 

663 00000354 007C 2700 ori #$2700, sr disable interrupts (except nmi) 

664 ************************ interrupts disabled ************************* 

665 00000358 1880 move.b d0,(a4) set the peripheral control line 
666 

667 000003SA 6100 OOAA bsr f85cswf check status and wait for the flag 

668 0000035E 600C bra.s f85 rby ret 1; bypass because of error 
669 

670 00000360 397C 0000 move #0,4(a4) clear the output buffers 

0004 

671 00000366 4A6C 0004 tst 4(a4) set direction in w/ dummy read 

672 0000036ft 1880 move.b do,(a4) set the peripheral control flag 
673 

674 0000036C 196E FFFF f85_rby move.b vSSgdcb ( a6) ,3 (a4) set the gpio dma control bits 

0003 

675 000003''2 536A 0004 subq #1 4(a2) don't dma the last word in 

676 000003^6 6D06 blt.s f8S rei don't arm if no words to dma in 

677 00000378 357C 0002 move #$00~02 , 6 ( a2 ) arm the dma channel 

0006 

678 0000037E 460F f8S_rei move (sp)+,sr re-enable interrupts 

679 *********************** interrupts re-enabled ************************ 

680 00000380 41EE FFA8 lea v8Sbuf *254 (a6) , aO transfer's last word address 
681 

682 00000384 082C 0003 f8S_rwt btst #3,7(a4) peripheral status set? 

0007 

683 0000038P1 6648 bne.s f85 tdx if so, terminate dma xfer now! 

684 0000038C 082A 0000 btst #0,7(a2) dma channel still armed? 

0007 

685 00000392 66F0 bne f85 rwt if so, loop 
686 

687 00000394 6100 0070 bsr f8Scswf check status and wait for the flag 

688 00000398 603A bra.s f85 tdx ret 1 - error: bypass else hang 

689 0000039P1 30AC 0004 move 4(a4"),(a0) transfer the last word 

690 0000039E 6034 f85 grs bra.s f85 tdx go read the status word 

691 " 
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693 

694 * 

695 * section for write 

696 * 

69? 000003AO 08C0 000F f85_wrt bset #15, dO make it a write command 

698 O00003A4 3940 0004 move d0,4(a4) place the command in the output buffer 

699 

700 000003H8 4E4B trap #11 scs 

701 * scs move sr.-(sp) prepare to disable interrupts 

702 000003AA 007C 2700 ori #$2700, sr disable interrupts (except nmi) 

703 ************************ interrupts disabled ************************* 

704 000003AE 1880 move.b d0,(a4) set the peripheral control line 
70S 

706 00000380 196E FFFF move.b v85gdcb (a6) ,3 (a4) set gpio card dma control bits 

0003 

707 00000386 357C 0006 move #$0006,8 (a2) arm the dma channel 

0006 
708 

709 0000038C 46DF move (sp)*,sr re-enable interrupts 

710 *********************** interrupts re-enabled ************************ 

711 000003BE 082C 0003 f85_wwt btst #3,7(a4) peripheral status set? 

0007 

712 000003C4 660E bne.s f8S tdx if so, terminate dma xfer nowl 

713 000003C6 082A 0000 btst #0,7(a2) dma channel still armed? 

0007 

714 000003CC 66F0 bne.s f8S wwt if so, loop 
71S 

716 OO0003CE 6100 0036 bsr fSScswf check status and wait for the flag 

717 000003D2 4E71 nop ret 1; some error occurred 
718 

719 * 

720 * terminate the dma transfer and read the status word 

721 * 

722 00000304 3012 f85_tdx move Ia2),d0 disarm the dma channel 

723 00000306 422C 0003 clr.b 3(a4) clr the gpio card dma control bits 
724 

725 000003DA 197C 0001 move.b #l,7(a4) set the transfer complete bit 

0007 

726 000003EO 6100 0050 bsr f85winw word in; don't wait for the flag 

727 000003E4 3D40 FFF8 move d0,v85stat (a6) save the status word for now 

728 000003E8 197C 0000 move.b #0,7(a4) clear the transfer complete bit 

0007 
729 

730 OO0003EE 7000 moveq #0,d0 

731 OO00O3FO 6100 0034 bsr f8Swo complete the handshake with the '85 

732 * 

733 * check for errors 

734 * 

735 000003F4 302E FFF8 move v85stat (a6) ,d0 drive ready, seek complete, 

736 000003F8 C07C FFFO and #$FFFO,dO transfer complete, 5 

737 000003FC B07C 0060 cmp #$0060, do no error in error code? 

738 00000400 6602 bne.s *+4 branch if any errors 

739 00000402 5497 addq.l #2,(sp) setup a normal (ret 2) exit 

740 00000404 4E7S rts exit 
741 
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743 

744 ********************************************************************** 

745 * 9885 shared driver routines * 

746 ********************************************************************** 
747 

748 * 

749 * routine to check status while waiting on the flag 

750 * S3 

751 00000406 J497 f85cswf addq.l #2,(sp) anticipate a normal (ret 2) exit 

753 00000408 0814 0000 f85t fb btst *0,(a4) flag bit 

754 0000040C 660P bne.s f85ret branch if set 
7SS 

756 0000040E 082C 0003 btst «3,7(a4) peripheral status bit 

0007 

757 00000414 67F2 beq.s f8Stfb keep looping unless it's set 
758 

759 00000416 5597 subq.l #2,(sp) change the ret 2 back to a ret 1 

760 00000418 4E75 f85ret rts exit 
761 

762 
763 

764 * 

765 * routine to wait for the flag 

766 * 

767 0000041(1 0814 0000 f85wf btst to , ( a* ) flag bit 

768 0000041E 67FF beq «-4 loop until set 

769 00000420 4E75 rts 
770 

771 
772 

773 * 

774 * routine to send the 9885 password 

775 * 

776 00000422 303C HE87 f851gin move #44679, dO 9885's "secret" password 
777 

778 
779 

780 * 

781 * routine to send one word out on the gpio card 

782 * 

783 00000426 61F2 f85wo bsr f85wf wait for the flag 

784 00000428 3940 0004 move d0,4(a4) place word in the output buffer 

785 0000042C 1880 move.b d0,(a4) set the peripheral control line 

786 0OO0042E 4E75 rts 
787 
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* 

* routine to receive one word in on the gpio card 

f8Swi bsr f8Swf wait for the flag 

fSSwinw move *0,4(a4) clear the output buffer 

tst 4(a4) set direction in w/ dummy read 

move.b d0,(a4) set the peripheral control line 

bsr f85wf wait for the flag 

move 4(a4),d0 load in the word 
rts 



789 








790 








791 








792 








793 


00000430 


61E8 




794 








795 


00000432 


397C 
0004 


0000 


796 








797 


00000438 


4S)6C 


0004 


798 


0000043C 


1880 




799 


0000043E 


61DR 




800 


00000440 


502C 


0004 


801 


00000444 


4E75 




802 








803 








804 








PASS 1 


ERRORS: 






PBSS 2 


ERRORS: 
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FORMAT 



Description 

FORMAT is the initialization driver for the 7906, 7920 and 7925 hard discs. 



Usage 

FORMAT is used solely with MEDIAINIT. 



Notes 

FORMAT is for HP internal use only; it is not formally supported. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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File name : FORMAT »*» 



COMPLETE. ERRORS: 



FORMRT Routine for Initialize 

Last Updated August 19, 1983 - timing fixes 

*********************** ********************** 





RORG 
NOSYMS 

DEF 

REFA 

REFA 

REFA 

LflODE 



ASMR FORMAT 

SYSGl~OBALS 

XMINIT 

check timer, delay timer 
check_timer,delay;timer 



0000 0001 TIMER PRESENT EQU 1 

FFFF FEOA SYSFLA"G2 EQU SFFFFFEDA 



JS 8/19/83 
JS 8/19/83 



JS 8/19/83 
JS 8/19/83 



0000 0010 PHI 


EQU 


$;o 


0000 0001 CURD 


EQU 


$1 


0050 OOOO DMAC 


EQU 


$500000 



LOCATION OF BUILT IN DMA CARD 



FFFF FFEC INITISRIB EQU XMINIT-20 INIT'S ISRIB 

* PHI REGISTER ADDRESSES, IN ASCENOING ORDER 



0000 


0011 


INTR 


EQU 


PHI»1 


0000 


0013 


IMSK 


EQU 


PHI+3 


0000 


0015 


FIFOFFSET 


EQU 


PHU-S 


oooo 


0017 


STATPOFFS 


EQU 


PHIt-7 


0000 


0019 


CTRL 


EQU 


PHI*9 


0000 


001B 


HPIBADR 


EQU 


PHI+SB 


0000 


001D 


PPMSK 


EQU 


PHI+SD 


0000 


001F 


PPSNS 


EQU 


PHI+SF 






* PHI CARD REGISTERS 


0000 


0003 


CRDCTRL 


EQU 


CARD+2 






•CRDSTAT 


EQU 


CARD*2 


0000 


0001 


10 


EQU 


CARD 






* DMA REGISTERS 




0050 


0000 


DMADRO 


EQU 


DMAC 


0050 


0004 


OMUCTO 


EQU 


DMAC+4 


0050 


0006 


DMCTRLO 


EQU 


DMAC+6 


0050 


0000 


DMSTRT 


EQU 


DMAC 


0050 


0008 


DMADR1 


EQU 


DMAC+8 


0050 


OOOC 


DMLJCT1 


EQU 


DMAC+SC 


0050 


OOOE 


DHCTRL1 


EQU 


DMAC+SE 



AMIGO RELATED CONSTANTS 
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59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 



90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 



0000 005E 


PTA 


EQU 


$5E 


0000 003E 


PLA 


EQU 


$3E 


0000 0040 


DTAC 


EQU 


J40 


0000 0020 


OLAC 


EQU 


$20 


0000 0070 


DSJ 


EQU 


$70 


0000 0068 


DSAD 


EQU 


1 :<J 


0000 0040 


ICMND 


EQU 


$40 


0000 0080 


EOI 


EQU 


$80 


0000 005F 


UNT 


EQU 


$SF 


OOOO 003F 


UNL 
* 


EQU 


$3F 


OOOO 0000 


* 
SECTOR 


EQU 






PHI TALK ADDRESS 
PHI LISTEN ADDRESS 
DISK PRIMARY TALK BASE 
DISK PRIMARY LISTEN BASE 
DSJ SECONDARY 
DISK STANDARD SECONDARY 
INTERFACE COMMAND SETUP 
EOI SETUP 
UNTALK COMMAND 
UNLISTEN COMMAND 



REGISTER SETUP 



OOOO 


OOOO 


DTEMP 


EQU 


DO 


OOOO 


0001 


MTEMP 


EQU 


Dl 


oooo 


0002 


BCOUNT 


EQU 


D2 


0000 


0003 


TCOUNT 


EQU 


D3 


OOOO 


0004 


DZERO 


EQU 


D4 


OOOO 


0005 


FREE3 


EQU 


D5 


OOOO 


0006 


FREE2 


EQU 


D6 


OOOO 


0007 


FREE1 


EQU 


D7 


OOOO 


OOOO 


BYTEPTR 


EQU 


AO 


OOOO 


0001 


FIFO 


EQU 


Al 


OOOO 


0002 


PORT 


EQU 


A2 


OOOO 


0003 


ATEMP 


EQU 


A3 


OOOO 


0004 


STATP 


EQU 


A4 


oooo 


0005 


GLOBAL 


EQU 


AS 


OOOO 


0006 


BASE 


EQU 


B6 






*SP 


EQU 


B7 



(AVAILABLE FOR USE) 
(AVAILABLE FOR USE 
(AVAILABLE FOR USE 



* PARAMETERS PASSED FROM PASCAL 



oooo 


0020 


PARAMS 


EQU 


40 


oooo 


0028 


BUSADDR 


EQU 


38 


oooo 


0024 


UNIT 


EQU 


3« 


oooo 


0022 


HEAD 


EQU 


34 


oooo 


001 F 


PHI PORT 


EQU 


30 


oooo 


001A 


TRACKB 


EQU 


?K 


oooo 


0016 


SECTORS 


EQU 


}2 


oooo 


0014 


SPD 


EQU 


?0 


oooo 


0010 


MADR 


EQU 


IK 


oooo 


OOOC 


TRACKA 


EQU 


12 


001)0 


0008 


ERRTYPE 


EQU 


8 






*RETADDR 


EQU 


4 






*STfiTLNK 


EQU 






NUMBER OF BYTES FOR PASSED PARAMETERS 



ADDRESS OF TRACK A 



RETURN ADDRESS 
STATIC LINK 



LOCAL PARAMETERS 



1-204 



PAGE 
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116 




FFFF 


FFFF 


DLA 


EQU -1 DISC LISTEN ADDRESS 




117 




FFFF 


FFFE 


DTA 


EQU -2 DISC TALK ADDRESS 




118 




FFFF 


FFFO 


DSJBYTE 


EQU -3 DSJ BYTE 




119 




FFFF 


FFFC 


STAT3 


EQU -4 STORAGE FOR STATUS BYTES 




120 




FFFF 


FFFB 


STAT2 


EQU -5 




121 




FFFF 


FFFA 


STBT1 


EQU -6 




122 




FFFF 


FFF9 


STATO 


EQU -7 




123 




FFFF 


FFF8 


AD0R3 


EQU -8 STORAGE FOR DISC ADDRESS 




124 




FFFF 


FFF7 


ADDR2 


EQU -9 




12S 




FFFF 


FFF6 


ADDR1 


EQU -10 




126 




FFFF 


FFF5 


ADORO 


EQU -11 




127 




FFFF 


FFF4 


PMASK 


EQU -12 PPOLL MASK 




128 




FFFF 


FFF3 


IFLAG 


EQU -13 INTERRUPT FLAG 




129 




FFFF 


FFF2 


SPDTEMP 


EQU -14 UPPER 3 BITS=S.P.D 




130 




FFFF 


FFFO 


CYLINDR1 EQU -16 CYL ADDR FOR SEEK 




131 




FFFF 


FFEE 


CYLINDR2 EQU -18 CYL ADDR FOR ADDR REC 




132 




FFFF 


FFEB 


ADDRSTOR EQU -22 STORAGE FOR SYSTEtl INTERRUPT VECTOR 




133 




FFFF 


FFE6 


STATSTOR EQU -26 STORAGE FOR SYSTEM STATIC LINK 




134 




FFFF 


FFE6 


LOCALS 


EQU -26 TOTAL AMOUNT OF. LOCAL STOREAGE 




135 








* 






136 








* 






137 


oooooooo 


4E56 


FFE6 


ASMR_FORMAT LINK BPSE,#LCCHLS 




138 


00000004 


246E 


001E 




MOVEA.L PHIPORT (BASE), PORT ADDRESS OF PHI CARD INTERFACE 
LEA FIFOFFSETrPORT ),FIFO 




139 


00000008 


43EB 


0015 






140 


oooooooc 


49EA 


0017 




LEA STATPOFFS(PORT),STHTP 




141 


00000010 


4284 






CLR.L DZERO 




142 














143 


00000012 


47FA 


041E 




LEA ISV.ATEMP SET UP INTERRUPT VECTOR 




144 


00000016 


2B4B 


FFF4 




MOVE.L BTEMP,INITISRIB+8(GL0BBL) ADDRESS OF ISR 
MOVE.L BASE,INITISRIB+12(GL0BAL) STATIC LINK 




14S 
146 
147 


0000001H 


2B4E 


FFF8 






0000001E 


122E 


0027 




MOVE.B BUSADDR*1(BASE),MTEMP CALCULATE PPOLL MASK 
MOVE.B »J80, DTEMP 
LSR.B MTEMP.CTEMP 




148 


00000022 


103C 


0080 






149 


00000026 


E228 








150 
151 
152 


00000028 


1040 


FFF4 




MOVE.B DTEMP, PMASK(BASE) 




0000002C 


103C 


0040 




MOVE.B (tDTAC, DTEMP CALCULATE DISC TALK ADDRESS 
ADD.B BUSADDR+1 (BASE) , DTEMP 




153 


00000030 


D02E 


0027 






154 
15S 
156 


00000034 


1040 


FFFE 




MOVE.B DTEMP, DTA(BASE) 




00000038 


103C 


0020 




MOVE.B *DLAC, DTEMP CALCULATE DISC LISTEN ADDRESS 
ADD.B BUSA0DR*1 (BASE), DTEMP 




157 


0000003C 


D02E 


0027 






158 
159 

160 


00000040 


1D40 


FFFF 




MOVE.B DTEMP, DLAjBASEJ 




00000044 


266E 


0008 




MOVEA.L ERRTYPE(BASE) ,ATEMP LOAD ERRTYPE ADDRESS 
MOVE.L OZERO,(ATEMP) CLEAR ERRTYPE 




161 
162 
163 
164 
165 


00000048 


2684 








0000004A 


6100 


03B4 




BSR SFM SET FILE MASK 




0000004E 


266E 


OOOC 




MOVEA.L TRACKA(BASE) ,ATEMP COMPARE TRACK A & B 
MOVE.L (ATEMP) .DTEMP 
CMP.L TRACKB(BASE), DTEMP 




166 


00000052 


2013 








167 


00000054 


BORE 


001A 






168 


00000058 


6600 


002C 




BNE SPARE 




169 








» IF 


EQUAL THEN FORMAT TRACK A 




170 


0000005C 


6100 


009A 




BSR DMSETUP 




171 


00000060 


266E 


OOOC 




MOVEA.L TRACKA(BASE),ATEMP 
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172 


00000064 


3D6B 
FFFO 
302E 


0002 




MOVE.U 2(ATEMP),CYLINDR1(BASE) 




173 


0000006A 


0014 




MOVE.UI SPD(BASE), DTEMP SHIFT S,P,D TO UPPER 3 BITS 
MULS #32, DTEMP 




174 


0000006E 


C1FC 


0020 






175 
176 
177 


00000072 


1D40 


FFF2 




MOVE.B DTEMP, SPDTEMP (BASE ) 




00000076 


6100 


0238 




BSR SEEK 




178 


0000007A 


6100 


0272 




BSR INITZE 




179 


0000007E 


6100 


0092 




BSR ERCHK 




180 
181 
182 


00000082 


6000 


006A 




BRA END 10 










* NOW SPARE TRACK A WITH TRACK B 




183 














184 


00000086 


266E 


OOOC 


SPARE 


MOVES. L TRACKA(BASE) ,ATEMP 




185 


00000080 


3D6B 
FFFO 
3D6E 
FFEE 
1D7C 
FFF2 
6100 


0002 




MOVE.U 2(ATEMP),CYLINDR1(BASE) 




186 


00000090 


00 1C 




MOVE.U TRACKB+2 (BASE ),CYLINDR2 (BASE) 




187 


00000096 


0020 




MOVE.B #32,SP0TEMP(BBSE) SET D-BIT 




188 


00OO009C 


0212 




BSR SEEK 




189 


OOOOOOAO 


6100 


0306 




BSR BDDREC 




190 


000000A4 


6100 


O0S2 




BSR DMSETUP 




191 


000000A8 


6100 


0244 




BSR INITZE 




192 


OOOOOOAC 


6100 


0064 




BSR ERCHK 




193 


00000080 


102E 


FFFD 




MOVE.B DSJBYTE (BASE), DTEMP 




194 


0OOO0OB4 


6600 


O038 




BNE ENO 10 




196 


00000088 


102E 


FFF9 




MOVE.B STATO(BASE) , DTEMP 




196 


OOOOOOBC 


0200 


001 F 




ANDI.B #»1F, DTEMP CLEAR SPO 
BNE ENO_I0 




197 
198 
199 


OOOOOOCO 


$600 


002C 






OOOO0OC4 


3D6E 
FFFO 
266E 


001C 




MOVE.U TRHCKB*2 (BASE ),CYLINDR1 (BASE) 




200 


OOOOOOCfi 


OOOC 




MOVEA.L TRACKA(BASE),ATEMP 




201 


OOOOOOCE 


3D6B 
FFEE 
1D7C 
FFF2 
6100 


00O2 




MOVE.U 2(ATEMP),CYLIN0R2(BASE) 




202 


00000004 


0080 




MOVE.B »128,SP0TEMP(BASE) SET S-BIT 




203 


OOOOOODA 


01D4 




BSR SEEK 




204 


OOOOOODE 


6100 


02C8 




BSR AODREC 




205 


000000E2 


6100 


0014 




BSR DMSETUP 




206 


000000E6 


6100 


0206 




BSR INITZE 




207 
208 
209 


OOOOOOEA 


6100 


0026 




BSR ERCHK 




OOOOOOEE 


4E5E 




END_IO 


UNLK BASE 




210 


OOOOOOFO 


26SF 






MOVEA.L (SP1+, ATEMP 
ADDA.U #PARAMS,SP 




211 


0OOO0OF2 


DEFC 


0020 






212 


0OOO00F6 


4E03 






JMP (ATEMP) 




213 








* 






214 








* 






215 








» DMA SETUP ROUTINE 




216 








» - AT 


THE ENO OF THIS ROUTINE THE DMA CARD WILL BE 




217 








» SET 


UP FOR A DISK TRANSFER 




218 








* 






219 


0O0O00F8 


23EE 

0050 


0010 

0000 


DMSETUP 


MOVE.L MADR[BASE),DMADRO 




220 


00000100 


202E 


0016 




MOVE.L SECTORS (BASE), DTEMP 


1-205 
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File name: FORMAT 



221 
222 
223 

224 

225 

227 
228 
229 
?TC 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
24 2 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 

260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 



00000104 C1FC 0100 
00000108 5)40 
000001 OB ? ?C0 0050 

0004 
00000110 4IE75 



MUt3 
SUBQ 
MOVE.U 



#$100,DTEMP CONVERT TO BYTE COUNT 

♦l.OTEMP 

DTEMP,DMUCTO LOUER 2 BYTES ONLY 



00000112 
00000116 
0000011A 
0000011E 
00000122 
00000126 
0000012R 
0000012E 
00000132 
00000136 
0000013A 
0000013E 
00000142 
00000146 
0000014H 
0000014C 
00000150 
00000154 



00000156 
00000158 
0000015C 
00000160 
00000164 
00000168 
0000016C 
00000170 
00000172 

00000178 
0000017C 
0000017E 
00000182 
00000186 
0000018H 
0000018E 
00000192 



6: oo 
6:00 
102E 
6600 
102E 
0200 
6 '00 
6100 
266E 
1BEE 
16EE 
16EE 
ltiflE 
2S6E 
3RC4 
16EE 
16AE 
4L75 



* Error Check Routine 

0042 ERCHK BSR DSIR 

007E BSR DSTAT 

FFFD MOVE.B DSJBYTE (BASE ) ,OTEMT> 

OOOE BNE ERROR CHECK DST BYTE 

FFF9 MOVE.B STfiTO (BASE ) .DTEttP 

001F ANDI.B #$1F,DTEMP CLEAR SPD BITS 

0028 BEQ FINISH CHECK STATUS 1 

00D4 ERROR BSR RADDREC 

0008 MOVEA.L ERRTYPE(BASE), ATEMP 

FFF9 MOVE.B STATO (BASE) , (ATEMP)* 

FFFA MOVE.B STAT1 (BASE ) , ATEMP )* 

FFFB MOVE.B STAT2 (BASE) , (ATEMP) ♦ 

FFFC MOVE.B STAT3 (BASE , (ATEMP) 

OOOC MOVEA.L TRACKA[BASE, ATEMP 

MOVE.U DZERO, (ATEMP)* 

FFF5 MOVE.B AODRO(BASE), (ATEMP)* 

FFF6 MOVE.B ADOR 1 (BASE ), (ATEMP 

FINISH RTS 



DSJ ROUTINE 



1884 DSJR 

1544 0013 

18BC 0040 

12BC 003E 

12AE FFFE 

12BC 0070 

143C 0001 

1884 

157C 0004 

0013 

41EE FFFD 

1884 

12BC 0001 

4LBA 02D6 

18BC 0040 

12BC 005F 

12BC 003F 

6000 010C ENDSJR 



MOVE.B 
MOVE.B 
MOVE.B 
MOVE. 8 
MOVE.B 
MOVE.B 
MOVE.B 
MOVE.B 
MOVE.B 

LEA 

MOVE.B 

MOVE.B 

JSR 

MOVE.B 

MOVE.B 

MOVE.B 

BRA 



DZERO, (STATP) 
DZERO, IMSK (PORT) 
tICMND, (STATP) 
#PLP, (FIFO) 
DTA(BBSE), (FIFO) 
#DSJ, (FIFO) 
M01.BC0UNT 
DZERO, (STATP) 
#$04, IMSK (PORT) 

DSJBYTE(BBSE) .BYTEPTR 

DZERO, (STflTP) 

#$01, (FIFO) 

IUAIT 

•ICMND, (STHTP) 

#UNT,(FIFO) 

iUNL, FIFO 

IDLE 



DISABLE INTERRUPTS 



LOAD INPUT COUNT 
INTERRUPT ENABLE 
ENABLE "FIFO BYTE" 

STORE ADDR. FOR DSJ 

ENABLE TRANSFER 
UAIT FOR INTERRUPT 



* REQUEST AND READ DISK STATUS 



00000196 1644 0013 DSTAT MOVE.B 

0000019A 18BC 0040 MOVE.B 

0000019E 12BC 005E MOVE.B 

OO0001A2 12BE FFFF MOVE.B 



DZERO, IMSK (PORT) 
ttlCMNO, (STATP) 
#PTA,(FIFO) 
OLA(BASE),(FIFO) 
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276 


000001A6 


12BC 


0068 


MOVE.B 


»DSAD, (FIFO) 
PNUfilf 


277 


000001AA 


6100 


OODC 


BSR 


278 


000001AE 


1684 




MOVE.B 


DZERO, (STATP) 

#$03, (FIFO) OP CODE 

tEOI, (STHTP) 


279 


OC0001BO 


12BC 


0003 


MOVE.B 


280 


000001B4 


1SBC 


0080 


MOVE.B 


281 


000001B8 


12AE 


0025 


MOVE.B 


UNIT*1(BASE) . (FIFO) 
♦ICMND, (STATP) 
♦UNL,(FIFO) 


282 


000001BC 


16BC 


0040 


MOVE.B 


283 


000001CO 


12BC 


003F 


MOVE.B 


284 


000001C4 


6100 


OODA 


BSR 


IDLE 


285 


OO0O01C8 


18BC 


0040 


MOVE.B 


•ICMND, (STATP) 
«PLA,(FIFO) 


286 


000001CC 


12BC 


003E 


MOVE.B 


287 


000001DO 


12AE 


FFFE 


MOVE.B 


DTA(BASE),(FIFO) 


288 


00000104 


12BC 


0068 


MOVE.B 


#DSAD. (FIFO) 

*$04,BC0UNT LOAD INPUT COUNT 


289 


00000108 


143C 


0004 


MOVE.B 


290 


000001DC 


41EE 


FFF9 


LEA 


STATO(BASE), BYTEPTR STORE ADDR. FOR STAT 

DZERO. (STATP) 

#$04,IMSK(P0RT) ENABLE "FIFO BYTE" 


291 


000001EO 


1 r <34 




MOVE.B 


292 


000001E2 


157C 


0004 


MOVE.B 






0013 








293 


000001E8 


18BC 


0080 


MOVE.B 


#$80, (STATP) LF INHIBIT 


294 


000001EC 


12BC 


0004 


MOVE.B 


#$04, (FIFO) COUNTED XFER ENABLE 


295 


000001 FO 


4EBA 


0268 


JSR 


IUAIT 


296 


000001 F4 


18BC 


0040 


MOVE.B 


•ICMND, (STATP) 
#UNT, (FIFO) 


297 


000001F8 


12BC 


005F 


MOVE.B 


298 


000001FC 


12BC 


003F 


MOVE.B 


#UNL, (FIFO 


299 


00000200 


6000 


009E 


BRA 


IDLE 


300 






* 






301 






n 






302 
303 
304 






* 


REQUEST AND 


REAO ADDRESS RECORD 


00000204 


1544 


0013 RADDREC MOVE.B 


DZERO. IMSK(PORT) 
•ICMND, (STHTP) 
»PTA,(FIFO) 
DLA(BASE), (FIFO) 


305 


00000208 


18BC 


0040 


MOVE.B 


306 


0000020C 


12BC 


005E 


MOVE.B 


307 


00000210 


12AE 


FFFF 


MOVE.B 


308 


00000214 


1Z8C 


0068 


MOVE.B 


•DSAD. (FIFO) 
PNUAIT 


309 


00000218 


6100 


006E 


BSR 


310 


0000021C 


1884 




MOVE.B 


DZERO, (STBTP) 

#$14, (FIFO) OP CODE 

#EOI, (S T T>TP) 


311 


0000021E 


123C 


0014 


MOVE.B 


312 


00000222 


183C 


0080 


MOVE.B 


313 


00000226 


12AE 


0025 


MOVE.B 


UNIT*1(L,)SE) . (FIFO) 
#ICMND, (STATP) 
»UNL,(FIFO) 


314 


0000022A 


188C 


0040 


MOVE.B 


315 


0000022E 


12BC 


003F 


MOVE.B 


316 


00000232 


6100 


006C 


BSR 


IDLE 


317 


00000236 


18BC 


0040 


MOVE.B 


•ICMND, (STHTP) 
•PLA.(FIFO) 


318 


0000023H 


128C 


003E 


MOVE.B 


319 


O000023E 


12AE 


FFFE 


MOVE.B 


DTA(BASE), (FIFO) 

•DSAD, (FIFO) 

»$04,BC0UNT LOAD INPUT COUNT 


320 


00000242 


12BC 


0068 


MOVE.B 


321 


00000246 


143C 


0004 


MOVE.B 


322 


0000024A 


41EE 


FFF5 


LEA 


ADDR0(BA5E), BYTEPTR STORE ADDR. FOR AODRE 

OZERO. (STATP) 

#$04,IMSK(P0RT) EMHBLE "FIFO BYTE" 


323 


0000024E 


)884 




MOVE.B 


324 


00000250 


157C 


0004 


MOVE.B 






0013 








325 


00000256 


18BC 


0080 


MOVE.B 


#$80, (STATP) LF INHIBIT 


326 


0000025A 


12BC 


0004 


MOVE.B 


#$04. (FIFO) COUNTED XFER ENABLE 


327 


0000025E 


4F8A 


01FH 


JSR 


IUAIT 


328 


00000262 


183C 


0040 


MOVE.B 


•ICMND. (STATP) 
#UNT,(FIF0) 


329 


00000266 


123C 


005F 


MOVE.B 


330 


0000026A 


123C 


003F 


MOVE.B 


#UNL,(FIFO) 



1-206 
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Z26/8' 
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331 


0000026E 


6000 


0030 






BRA 


IDLE 








332 








* 














333 








* 














33* 








* 


PPOLL 


HOLDOFF 










33S 








* 














335 


00000272 


1544 


001F 


FVBIT 


MOVE.B 


DZERO,PPSNS(PORT) POSITIVE SENSE 








337 


00000276 


1S6E 

0C1D 
1884 


FFF4 






MOVE.B 


PMBSK( BASE ) , PPMSK ( PORT) SET PPMSK 








338 


0000027C 








MOVE.B 


DZERO, (STBTP] 

t$20,IMSK(P0RT) PPOLL RESPONSE 








339 


0OO0027E 


1S7C 


0020 






MOVE.B 












0013 


















340 


00000284 


6000 


01D4 






BRA 


IUAIT 








341 








* 














342 








* 














343 








* 


PPOLL NEGATION HOLDOFF 








344 








* 














34S 


00000283 


156E 

001F 
156E 
0010 
1884 


FFF4 


PNUBIT 


MOVE.B 


PMASK( BASE ) , PPSNS ( PORT) SET PPSNS 








346 


0000028E 


FFF4 






MOVE.B 


PMASK( BASE), PPMSK (PORT) SET PPMSK 








347 


00000294 








MOVE.B 


DZERO, (STATP) 
#$20,IMSK(P0RT) 








348 


00000296 


157C 


0020 






MOVE.B 












0013 


















349 


0000029C 


6000 


01BC 






BRA 


IUAIT 








3S0 








* 














3S1 








* 














352 








* 


FIFO 


IDLE HOLOOFF 








353 








* 














354 


000002AO 


1544 


0013 


IDLE 


MOVE.B 


DZERO, IffSK (PORT) 

DZERO, (STBTP) 

»S02,IMSK(P0RT) ENfiBLE "FIFO IDLE" 








3SS 


000002B4 


1884 








MOVE.B 








356 


000002A6 


157C 


0002 






MOVE.B 












0013 


















357 


000002BC 


6000 


01AC 






BRA 


IUAIT 








358 








* 














359 








* 














360 








* 


SEEK 


ROUTINE 










361 








* 














362 


000002BO 


18BC 


0040 


SEEK 


MOVE.B 


#ICMND, (STATP) 

#PTfi, (FIFO) 

DLB(BfiSE), (FIFO) 

#DSBD.(FIFO) SEEK SECONDBRY 

PNUBIT 








363 


000002B4 


12BC 


OOSE 






MOVE.B 








364 


000002B3 


12AE 


FFFF 






MOVE.B 








365 


000002BC 


12BC 


O068 






MOVE.B 








366 


000002CO 


61C6 








BSR 








367 


000002C2 


1884 








MOVE.B 


DZERO, (STBTP) 

#102, (FIFO) OP CODE 

UNIT*1(BBSE) , (FIFO) 

CYLINORl(BASE) .(FIFO) CYLBD HIGH BYTE 

CYLINDR1+1 (BASE), (FIFO) CYLAD LOU BYTE 

HEAD+KBBSE), (FIFO) 








368 


000002C4 


12BC 


0002 






MOVE.B 








369 


000002C3 


12BE 


0025 






MOVE.B 








370 


000002CC 


12BE 


FFFO 






MOVE.B 








371 


000002DO 


12BE 


FFF1 






MOVE.B 








372 


00000204 


12BE 


0023 






MOVE.B 








373 


000002D3 


61C6 








BSR 


IDLE EMPTY FIFO 








374 


000002DA 


13BC 


0080 






MOVE.B 


#EOI. [STATP1 
•SECTOR, (FIFO) 
#ICMND, (STBTP) 
#UNL, (FIFO) 








37S 


000002DE 


12BC 


0000 






MOVE.B 








376 


000002E2 


18BC 


0040 






MOVE.B 








377 


000002E6 


12BC 


003F 






MOVE.B 








378 


000002EA 


61B4 








BSR 


IDLE 








379 


000002EC 


6084 








BRA 


PUAIT WAIT FOR SEEK COMPLETION 








380 








* 














381 
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OF FORMAT. TEXT 




*** File name: 


FORMAT *»* 


382 








* 


INITIALIZE 










383 








* 














384 


000002EE 


18BC 


0040 


INITZE 


MOVE.B 


♦ICMND, (STBTP) 
«PTA, (FIFO) 
DLB(BBSE) , (FIFO) 
♦DSAD, (FIFO) 
PNUfilT 








385 


000002F2 


12BC 


OOSE 






MOVE.B 








386 


000002F6 


12BE 


FFFF 






MOVE.B 








387 


000002FA 


12BC 


0068 






MOVE.B 








388 


000002FE 


6188 








BSR 








389 


00000300 


102E 


FFF2 






MOVE.B 


SPDTEMP(BASE) ,DTEMP 








390 


00000304 


0600 


OOOB 






ADDI.B 


•SB.DTEMP ADD SPD TO OP CODE 








391 


00000308 


1280 








MOVE.B 


DTEMP, (FIFO) 
#EOI, (STATP 








392 


0000030A 


18BC 


0080 






MOVE.B 








393 


0000030E 


12BE 


0025 






MOVE.B 


UNIT+KBASE], (FIFO) 
#ICMND, (STBTP) 
#UNL, (FIFO) 








394 


00000312 


18BC 


0040 






MOVE.B 








395 


0000031(5 


12BC 


003F 






MOVE.B 








396 


0000031A 


6184 








BSR 


IDLE 








397 






















398 


0000031C 


18BC 


0040 






MOVE.B 


tICtIND, (STBTP) 

DLB(BASE), (FIFO) 

♦$60, (FIFO) SEC. UDAT 








399 


00000320 


12BE 


FFFF 






MOVE.B 








400 
401 
402 


00000324 


12BC 


0060 






MOVE.B 








00000323 


1884 








MOVE.B 


DZERO, (STBTP) 

DZERO, IFLBG(BBSE) 

#JOC,DMCTRLO (PRIORITY, OUTPUT, BYTE) 








403 


0000032A 


1D44 


FFF3 






MOVE.B 








404 


0000032E 


33FC 


OOOC 






MOVE.U) 












0050 


0006 
















405 


00000336 


157C 
0003 

157C 


0089 






MOVE.B 


#S89,CRDCTRL(P0RT) (INTERRUPT, OUTPUT, CHAN. 0) 






406 


0000033C 


0002 






MOVE.B 


#J02,CTRL(P0RT) ENfiBLE DMBRQ, 10 BIT PROC . 


? 










0019 


















407 








* 


NOU DBTfi IS BEING TRANSFERRED 








408 








* 




MOVE.L 


#363636, TCOUNT 2 SEC. TIMEOUT 








409 


00000342 


263C 
0207 
4A2E 


0000 






MOVE.L 


#727, TCOUNT 1 MS AT 16 MHZ JS 8/19/83 




410 


00000343 


FFF3 


LOOPU 


TST.B 


IFLBG(BASE) 








411 


00O0034C 


6620 








BNE.S 


UDONE 








412 


0000034E 


5383 








SUBQ.L 


#1, TCOUNT 








413 


000003SO 


6CF6 








BGE 


LOOPU 








414 


000003S2 


0838 

FEDB 


0001 






BTST 


#TIMER_PRESENT,SYSFLfiG2 CHECK FOR TIMER 


JS 


8/19/83 




415 


00000358 


672B 








BEQ.S 


LOOPT USE IF PRESENT 


JS 


8/19/83 




416 


000003SA 


263C 
8C74 
4A2E 


0005 






MOVE.L 


#363636, TCOUNT ELSE DO 2 SEC LOOP 


JS 


8/19/83 




417 


00000360 


FFF3 


L00PU2 


TST.B 


IFLfiG(BASE) SAME BS BEFORE 


JS 


8/19/83 




418 


00000364 


6608 








BNE.S 


UDONE 


JS 


8/19/83 




419 


00000366 


6383 








SUBQ.L 


#1, TCOUNT 


JS 


8/19/83 




420 


00000363 


6CF6 








BGE 


LO0PU2 


JS 


8/19/83 




421 








* 


FAILED TO 00 


IT IN 2 SECONDS 








422 


0000036A 


6000 


0168 






BRA 


TESCflPE 








423 


0000036E 


1S7C 
0019 
18BC 


0080 


UDONE 


MOVE.B 


#I80,CTRL(P0RT) 








424 


00000374 


0040 






MOVE.B 


#ICMND, (STATP) 
#UNL, (FIFO) 








425 


00000373 


12BC 


003F 






MOVE.B 








426 


0000037 C 


12BC 


OOSF 






MOVE.B 


tUNT, (FIFO) 








427 


00000380 


6000 


FF1E 






BRA 


IDLE 








428 


00000384 


1F3C 


0001 


LOOPT 


MOVE.B 


#1,-(SP) SETUP TIMER ROUTINE RECORD 
#2000, -(SP) FOR 2 SEC TIMEOUT 


JS 


8/19/83 




429 


00000383 


2F3C 


0000 






MOVE.L 


JS 


8/19/83 








07D0 


















430 


00O0038E 


4A2E 


FFF3 


L00PT2 


TST.B 


IFLBG(BBSE) SEE IF DONE 


JS 


8/19/83 
























1-207 



431 
432 
433 

434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
44 8 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 

467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 



486 
487 



490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
SCI 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
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02 
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OF FORMAT. TEXT 


*** File name 


FORMAT »»» 


00000392 


6610 






BNE.S 


L00PT3 EXIT LOOP IF SO 


JS 8/19/83 




00000394 


4857 






PEA 


(SP) PUSH PTR TO RECORD 
CHECK_TlriER AND CHECK THE TIMER 


JS 8/19/83 




00000396 


4FB9 


0000 




JSR 


JS 8/19/83 






0000 














0000039C 


6HF0 






BPL 


LO0PT2 LOOP IF NOT TIMED OUT 


JS 8/19/83 




OO00039E 


5C4F 






ADDQ 


»6,SP TIMEOUT, BUT GET ft TRY 
#10. TCOUNT ENTER NORMAL TIMEOUT LOOP 

L00PU2 WITH A SHORT COUNT 


JS 5/2/84 




000003AO 


760B 






MOVEQ 


JS 5/2/84 




000003A2 


60BC 






BRA 


JS S/2/84 




000003P4 


5C4F 


L00PT3 soca 


#6,SP DONE, CLEANUP STACK 
UDONE 


JS 8/19/83 




000003P6 


60C6 


» 




BRB 


JS 8/19/83 








* 


ADDRESS RECORD ROUTINE 






000003A8 


18BC 


0040 ADDREC HOVE.B 


#ICMND. (STATP) 
#PTfi,(FIFO) 






000003AC 


12BC 


OOSE 




MOVE.B 






000003BO 


12AE 


FFFF 




MOVE.B 


DLB(8ASE).(FIF0) 

#DSBD.(FIFO) ADDRESS RECORD SECONDARY 

PNUAIT 






000003B4 


12BC 


0068 




MOVE.B 






000003B8 


6100 


FECE 




BSR 






000003BC 


1884 






MOVE.B 


DZERO, (STATP) 
#$OC,(FIFO) OP CODE 
UNIT-H (BASE) . (FIFO) 

CYLINDR2(BBSE).(FIF0) CYLAD HIGH BYTE 
CYLINDR2+1(BBSE), (FIFO) CYLAD LOU BYTE 
HEBD+1 (BASE), (FIFO) 






OO0003BE 


12BC 


OOOC 




MOVE.B 






000003C2 


12AE 


0025 




MOVE.B 






000003C6 


12BE 


FFEE 




MOVE.B 






OO0003CA 


12BE 


FTEF 




MOVE.B 






000003CE 


12BE 


0023 




MOVE.B 






00000302 


6100 


FECC 




BSR 


IDLE EMPTY FIFO 






00000306 


18BC 


0080 




MOVE.B 


#EOI, (STATP) 

#SECTOR, (FIFO) 

#ICMND. (STATP) 

*UNL, (FIFO) 

PUBlf WAIT FOR COMPLETION 






000003DA 


1?BC 


0000 




MOVE.B 






000003DE 


18BC 


0040 




MOVE.B 






OO0003E2 


12BC 


003F 




MOVE.B 






0O0O03E6 


6000 


FE8A 




BRA 










* 

IN 


EMPTY INBOUND FIFO 






000003EA 


1884 


EMP 


MOVE.B 


DZERO, (STATP) 
#$04,IMSK(PORT) 






000003EC 


157C 


0004 




MOVE.B 








0013 














000003F2 


4fl2A 


0011 EHPTY 


TST.B 


INTR(PORT) CHECK FOR BYTE AVAILABLE 




000003F6 


670O 


0006 




BEQ 


EMPTY1 IF SO, READ, IF NOT 


RETURN. 




O00003FA 


4R11 






TST.B 


(FIFO) (DUMMY READ OF FIFO 
EMPTY 


TO EMPTY IT) 




000003FC 


60 F4 






BRA 






OO0O03FE 


4E75 


EHPTY 


1 RTS 












* 


SET FILE MBSK ROUTINE 










* 




OUTPUT BYTE =XXXXDSCfl 










* 




D-DECREMENTAL SEEK (1) OR INCREMENTAL SEEK(O) 
S-l ALLOUS AUTOMATIC SEEK TO SPARE TRACK 










* 












* 




C = l ENABLES CYLINDER MODE, C-0 SURFACE MODE 










* 




A-l ENABLES AUTOMATIC SEEK AND END OF CYLINDER (SEE 


3) 




00000400 


18BC 


* 
0040 SFM 


MOVE.B 


(tICMND, (STATP) 
•PTB.fFIFO) 
DLA(BASE), (FIFO) 
#DSAD, (FIFO) 






00000404 


12BC 


005E 




MOVE.B 






00000408 


12PIE 


FFFF 




MOVE.B 






0000040C 


12BC 


0068 




MOVE.B 






) [3.0] 12/26/84 


22:58: 


02 


ASSEMBLY 


OF FORMAT. TEXT 


*** File name: 


FORMAT »*« 


00000410 


6100 


FE76 




BSR 


PNUAIT 







00000414 1884 

00000416 12BC OOOF 

0000041A 18BC 0080 

0000041E 128C 0001 



00000422 18BC 0040 
00000426 12BC O03F 
0000042A 6100 FE74 
0000042E 6000 FE42 



MOVE.B 
MOVE.B 
MOVE.B 
MOVE.B 



DZERO, (STATP) 
#$0F, (FIFO) 
#EOI, STATP) 
#1,(FIF0) 



DISABLE AUTO SEEK TO SPARE, EN SURFACE, AUTO 
SEEK TO NEXT CYLINDER 
MOVE.B #ICMNO, (STATP) 
MOVE.B #UNL,(FIFO) 
BSR IDLE 
BRA PUAIT 



» INTERRUPT SERVICE ROUTINE 



» SERVICE EOP INTERRUPT 



00000432 265F 
00000434 2C5F 
00000436 2E8B 
00000438 246E 001E 
0000043C 43EA 0015 
00000440 49EA 0017 
00000444 4284 

00000446 1544 0003 
0000044A 4A2A 0019 
0000044E 6100 FE22 
00000452 107C 0001 
FFF3 



MOVEA.L (SP)*,ATEMP 
MOVEA.L SP *,BASE 
MOVE.L ATEMP. (SP) 
MOVEA.L PHIP0RT(BASE),PORT 
LEA FIFOFFs£t(PORT),FIFO 

LEA STATPOFFS PORT , STATP 

CLR.L DZERO 

MOVE.B DZERO, CRDCTRL (PORT) 

TST.B CTRL(PORT) 

BSR PUAIT 

MOVE.B #*01,IFLBG(BASE) 



RETURN ADDRESS 

STATIC LINK 

(POP PARAMETER & PUSH) RETURN ADDRESS 



DISABLE INTERRUPTS, DMA 

DUMMY READ TO CLEAR INTERRUPT 



516 
517 
518 


O0O0O4S8 


4E75 






RTS 
















„ 












519 








* 












520 








» IUAIT ROUTINE 








521 








* 












522 


O0O0045A 


363C 


0258 


IUAIT 


MOVE.U 


#600,TCOUNT 
INTR(PORT),DTEMP 
TCOUNT, IIUAIT 


DO 1 MS AT 16 MHZ FAST LOOP 


JS 


8/19/83 


523 


0000045E 


102A 


0011 


IIUAIT 


MOVE.B 








524 


00000462 


56CB 


FFFA 




OBNE 


TRY AGAIN 






525 


00000466 


661H 






BNE.S 


IUDONE 


IF DONE THEN GET OUT OF HERE 


JS 


8/19/83 


526 


00000468 


0838 


0001 




BTST 


»TIMER_PRESENT,SYSFLAG2 SEE IF UE HAVE TlnER 


JS 


8/19/83 






FEDH 
















527 


0000046E 


6726 






BEQ.S 


IUTIMER 


USE IT IF UE DO 


JS 


8/19/83 


528 


00000470 


263C 
8CA0 


0000 




MOVE . L 


#36000, TCOUNT 


ELSE USE 200 MS LOOP 


JS 


8/19/83 


529 


00000476 


102A 


0011 


1IUAIT2 


MOVE.B 


INTR(P0RT),0TEMP 


CHECK FOR DONE 


JS 


8/19/83 


530 


0000047A 


6606 






BNE.S 


IUDONE 




JS 


8/19/83 


531 


0000047C 


S383 






SUBQ.L 


♦1, TCOUNT 


THIS IS FIX FOR PREV BUG 


JS 


8/19/83 


532 


0000047E 


6EF6 






BGT 


IIUAIT2 


CAN'T USE DBcc -- >32K COUNT 


JS 


8/19/83 


533 
534 
535 


00000480 


6052 






BRA.S 


TESCAPE 


TIMED OUT 


JS 


8/19/83 


00000482 


B03C 


0004 


IUDONE 


CMP.B 


•04.DTEMP 








536 


00000486 


67C0 


0032 




BEQ 


BYTE 


CHECK INTERRUPT TYPE 






537 


0000048A 


B03C 


0020 




CMP.B 


#$20,DTEMP 








538 


00CH-48E 


6700 


0042 




BEQ 


PPU 








539 


00000492 


6000 


0038 




BRA 


OUT 









1-208 
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540 
541 
542 

543 

544 
545 
546 

547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 

561 
562 
563 
564 
S6S 
566 
567 
568 
S69 
570 
571 
572 

573 
574 
575 
576 
577 
578 
S79 
580 

S81 
582 

583 
584 
585 



587 
588 



00000496 1F3C 0001 
0000049A 2F3C 0000 

00C8 
000004AO 102A 0011 
000004A4 6610 
000004A6 4857 
000004A8 4EB9 0000 

0000 
OOO004AE 6AF0 
000004BO 5C4F 
000004B2 760A 
000004B4 60C0 
000004B6 5C4F 
000004B8 60C8 



nOVE.B 
MOVE.L 

1 MOVE.B 
8NE.S 

PER 
JSP. 

BPL 

ADDfl 

MOVEQ 

BRA 

ADDS 

BRR 



♦200,-(SP) 

INTR(PORT) ,0 
IUTEXIT 

CHECK_TIMER 

IUTLOOP 

#6,SP 

♦10.TC0UNT 

IIUSIT2 

#6.SP 

IUOONE 



SETUP TIMER RECORD 
FOR 200 MS TIMEOUT 

CHECK FOR DONE 
IF SO THEN GET OUT OF LOOP 
ELSE PUSH PTR TO TIME REC 
AND CHECK THE TIMER 

LOOP IF NOT TIMED OUT 
TIMED OUT, TAKE ANOTHER TRY 
USE A SHORT COUNTER 
AND ENTER OTHER LOOP 
CLEANUP STACK WHEN DONE 
AND DO FINISH PROCESSING 



»** File name: FORMAT *** 



JS 8/19/83 
JS 8/19/83 

JS 8/19/83 
JS 8/19/83 
JS 8/19/83 
JS 8/19/83 

JS 8/19/83 
JS 5/2/84 
JS 5/2/84 
JS 5/2/84 
JS 8/19/83 
JS 8/19/83 



000004BA 10D1 BYTE MOVE.B 

000004BC 5302 SUBQ.B 

000004BE 6700 OOOC BEQ 

000004C2 0C2A 0004 TEST CMPI.B 

0011 

000004C8 66F8 BNE 

000004CA 60EE BRA 

000004CC 1884 OUT MOVE.B 

000004CE 1544 0013 MOVE.B 



* SERVICE FIFO BYTE AVAILABLE INTERRUPT 

* 

BYTE 



(FIFO) , (BYTEPTR)* 

♦l.BCOUNT 

OUT 

#4,INTR(P0RT) 

TEST 

BYTE 

OZERO, (STBTP) 

DZERO,IMSK(PORT) 



STORE INPUT DATA 

DECREMENT INPUT COUNT 



ANOTHER BYTE? 



DISABLE INTERRUPTS 



000004D2 4E75 



* SERVICE PPOLL INTERRUPT 
PPU RTS 



HDURCLEAR INVOKE IFC, 

#-10,SYSGL0BALS-2 (GLOBAL) 



00OOO4D4 6100 OOOE TESCAPE 8SR 

000004D8 3B7C FFF6 MOVE.U 

FFFE 

000004DE 2E6D FFF6 MOVEA.L SYSGLOBALS-10 (GLOBAL) ,SP 

000004E2 4E75 RTS 

* HARDWARE CLEAR 
* 

0000 04E4 HDURCLEAR EQU « 

000004E4 4A79 0050 TST.U OMSTAT 

0000 

000004EA 1544 0001 MOVE.B DZERO, ID (PORT) 

000004EE 157C 0080 MOVE.B #$80 ,HPIBADR (PORT) 

001B 

000004F4 6100 3010 8SR IFCLEAR 

* DISK CLEAR FOR HANGUPS 

000004F8 157C 0040 MOVE.B #ICMND ,STATPOFFS(PORT ) 

0017 

000004FE 157C 0014 MOVE.B #114 .FIFOFFSET (PORT) 

0015 
00000504 4E75 RTS 



CLEAR DMA, ETC. 
ESCAPE(-IO) 



REAO DMA CARD CONTROL REG TO DISARM IT 



SOFTWARE RESET 
ON-LINE 



DEVICE CLEAR 
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*** File name: FORMAT *** 



589 
590 
591 
592 

593 



595 



596 
597 
598 
599 
600 
PASS 1 
PASS 2 



00000506 157C 0011 IFCLEAR MOVE.B 

0019 
0000050C 2F3C OOOO DEL100 MOVE.L 

0064 
00000512 4EB9 OOOO JSR 

0000 
00000S18 157C 3080 MOVE.B 

0019 
0000051E 4E75 RTS 



ERRORS: 
ERRORS: 



INTERFACE CLEAR 

#$11,CTRL(P0RT) 
#100,-(SP) 
DELAY_TIMER 
#$80,CTRL(P0RT) 



IFC, INIT OUTBOUND FIFO 
100 MICROSECOND DELAY JS 8/19/83 
JS 8/19/83 
8-BIT PROCESSOR 



1-209 



1-210 



GASSM 



Description 

GASSM provides the low-level alpha driver for the high- resolution (1024x768) bit-mapped display. 



Usage 

Used only with the 9837A display. 



Notes 

This module is linked with the module GCRT (Pascal listings) to produce the INITLIB module 
CRTB. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PAGE 


1 [3.0] 12/26/84 21: 


09:10 AS 


3EMBLY OF GASSM. TEXT 




*** File name 


GASSM *** 


PASS 1 


COMPLETE. 


ERRORS: 














2 
3 

4 
5 
6 








* GATOR bit-mapped alpha driver 














* Pascal 3.0 version 
















def cscrollup,cscrolldown,cupdatecursor,cchar,cclear 




7 










def ct 


uildtable,cshiftlef t 


cshif t right 




8 










def ce 


xchanqe , cscrollwindow.changecu rso r 




9 










def cscrollwinddn.cdbsc 


oil 


l,cdbscrollr,cdbhighl 




10 


00000000 








rorg.l 










11 










ref a c 


tb, sysdevs 








12 
13 










nosyms 










14 
IS 
16 




OOOC 


COOO 


clear] 


equ SCCOOO blank pixel 


row offset 






FFFF 


FFF6 


maxx 


equ crtb-10 








17 




FFFF 


FFF4 


maxy 


equ crtb-12 








18 




FFFF 


FFFC 


cursoraddr equ crtb-4 








19 




FFFF 


FFEE 


highlight equ cr 
controladdr equ sv 


tb-18 








20 




FFFF 


FFAA 


sdevs -86 








21 




FFFF 


FFA6 


screen 


equ sysdevs-90 








22 




FFFF 


FFA4 


replcopy 


equ s> 


sdevs-92 








23 
24 
25 




FFFF 


FFA2 


windcopy 


equ s: 


sdevs-94 










0000 


4008 


repl reg 


equ $4008 








26 




0000 


400C 


windreg 


equ $400c 








27 
28 
29 




0000 


4001 


status 


equ $4001 










0000 


0400 


width 


equ 


1024 








30 




0000 


0023 


initoffset equ 


$23 




offset to initialization offset 




31 
32 
33 
34 
35 




0000 


003B 


fontoffset equ 


$3B 




offset to font info offset 










» gbuildtable(ptr 


); 








oooooooo 


285F 




cbuildtable movea . 1 


(sp)+,a4 a4 = return address 




36 


00000002 


206D 


FFAA 




movea . 1 


cont roladdr (aS) 


aO 


get pointer to ROM start 




37 


00000006 


7000 






moveq 


#0,d0 








33 


00000008 


7200 






moveq 


#0,dl 








39 


OOOOOOOA 


1028 


4001 




move .b 


status(aO) ,d0 




get status reg again 
get monitor type bits 




40 


OOOOOOOE 


E408 






lsr.b 


#2,d0 
#12, dO 






41 


OO0OOO1O 


C03C 


OOOC 




and . b 








42 


00000014 


1230 


0023 




move .b 


initoffset (aO.dC 


.w) 


,dl get MSB of info addr offset 




43 


00000018 


E149 






lsl.w 


#8,dl 








44 


0000001A 


1230 


0025 




move .b 


initof fset+2(a0 


dO. 


w),dl get LSB of info addr offset 




45 


0000001E 


2248 






movea . '. 


aO, al 




make copy of ROM start addr 




46 


00000020 


D2C1 






adda 


dl.al 




al points to init info now 




47 


00000022 


7200 




ginitblock moveq 


#0,dl 




clear some regs 




48 


00000024 


7000 






moveq 


#0,d0 








49 


00000026 


1029 


0002 




move .b 


2(al),d0 




get word count to initialize 
form destination offset 




SO 


0000002A 


0309 


0004 




movep 


4(al),dl 






SI 


0000002E 


D2P8 






add.l 


aO.dl 




dl points to dest addr 




52 


00000030 


45E9 


0008 




lea 


8(al),a2 
dl,a3 




a2 points to first data byte 




53 


00000034 


26'1 






movea . 1 




a3 points to destination 




54 


00000036 


03CA 


0000 


ginitloop movep 


0(a2),dl 
dl, (a3 « 




form a data word in dl 




5S 


0000003A 


36C1 






move .w 




move data to the destination addr 




56 


0000003C 


0811 


0006 




btst 


#6, (al J 




increment data pointer 
based on control byte 




57 


00000040 


6602 






bne . s 


ginit 1 
#4,a2 






58 


00000042 


S84A 






addq 
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*** File name: 


GASSM »** 


59 


00000044 


51C8 


FFFO 


gini tl 


dbra 


dO, ginit loop 




loop till word count exhausted 




60 


00000048 


0811 


0007 




btst 


#7, (al) 




was this last block? 




61 


0000004C 


660C 






bne . s 


ginitdone 
#6, (al) 




yes -- go return 




62 


O000OO4E 


0811 


0006 




btst 




adjust data pointer 




63 


00000052 


6702 






beq . s 


ginit2 
#4,a2 




to point to next init block 




64 


00000054 


S84B 






addq 








65 


00000056 


224B 




ginit2 


movea . 1 


a2,al 




al points to new init block 




66 


00000058 


60C8 






bra 


ginitblock 
#128, repl reg (aO) 




do the initialize 




67 


OOOOOOSA 


317C 


0080 


ginitdone 


move .w 


set repl rule to clear 








40C8 
















68 


00000060 


317C 
40CC 


0000 




move .w 


#0,windreg(aO) 








69 


00000066 


70C0 






moveq 


#0,dO 








70 


00000068 


1028 


4001 




move .b 


status(aO) ,d0 








71 


0O000O6C 


C07C 


OOOF 




and 


#15, dO 




get frame buffer location 




72 


00000070 


7214 






moveq 


#20, dl 








73 


00000072 


E3P8 






lsl.l 


dl,dO 




Dut it in right place 




74 


00000074 


2B40 


FFA6 




move . 1 


dO, screen (a5) 








75 


00000078 


2240 






movea . 1 


dO,al 
#1019, do 




clear the whole frame buffer 




76 


0000007A 


303C 


03 FB 




move 




except last 4 pixel lines 




77 


0000007E 


i2ec 


0000 


zloop 


move .b 


#00, (al) 








78 


00000082 


D3FC 
0400 


0000 




adda.l 


•width, a 1 








79 


00000088 


0828 
4001 


0007 


zcheck 


btst 


#7,status(a0) 








80 


0000008E 


67F8 






beq 


zcheck 








81 


00000090 


51C8 


FFEC 




dbra 


do, zloop 








82 


00000094 


317C 

4008 


0003 




move 


#3,replreg(a0) 








83 


0000009A 


3B7C 
FFA4 
4260 


0003 




move 


#3 , replcopy(aS) 








84 


oooooono 


FFA2 




clr 


windcopy(aS) 








85 


0O000OR4 


0308 


003B 




movep 


fontoffset (a0),dl 




get font info offset 




86 


00000OP.8 


43F0 


1002 




lea 


2(a0,dl.w),al 
*2,d7 




point to font id code 




87 


OOOOOOAC 


7E02 






moveq 




count number of font found with d7 




88 


OOOOOOBE 


0509 


0002 


font idchk 


movep 


2(al),d2 
10(a0,d2.w),a3 




get offset of font info 




89 


00000082 


47F0 


200B 




lea 




a3 points to first char of font 




90 


00000086 


0C11 


0001 




cmpi .b 


#l,(al) 




is font = roman8 ? 




91 


OOOOOOBA 


6718 






beq . s 


unpk roman 




if so go unpack it 




92 


OOOOOOBC 


0C11 


0002 




cmpi .b 


#2, (al) 




is font = kana8 upper half? 




93 


OOOOOOCO 


6738 






beq . s 

addq 


unpkkana 




if so go unpack it 




94 


OOO0OOC2 


5C49 




next font 


#6,al 




point to next font id 
have we found both fonts? 




95 


OO000OC4 


4A47 






tst 


d7 






96 


OO000OC6 


66E6 






bne 


font idchk 




if not look at this one 




97 


0OO0OOC8 


2B6D 
FFFC 


FFA6 




move . 1 


screen (a5) .cursor 


add 


r(a5) initialize cursor location 




98 


OOOOOOCE 


6100 


02CC 




bsr 


changecursor 




turn it on 




99 
100 
101 


00000002 


4ED4 






jmp 


(a4) 




return 




00000004 


363C 


O10O 


unpkronan 


move 


#256, d3 
»$C0000,a2 




#chars to unpack 




102 


00000008 


247C 


OOOC 




movea. 1 




start at beginning of font storage 








0000 
















103 


OOOOOOOE 


DSED 


FFA6 


unpackit 


adda . 1 


screen (a5) , a2 








104 


OO00OOE2 


5347 






subq 


#l,d7 




count a found font 




105 


0O0OOOE4 


E94B 






Isl 


#4,d3 




get number of pixel rows to unpack 




106 


00000OE6 


5343 






subq 


»l,d3 








107 


0000OOE8 


7807 




unpackrow 


moveq 


#7,d4 




we need to look at 8 bits/byte 
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21 :09 


10 


BSSEtlBLY OF GBSSr 


.TEXT **« File name: 


GASSfl *«* 


108 


OOOOOOEfl 


0913 




ur 


pack 


row2 btst 


d4 (a3) is bit set in font? 

(a2) + set frame buffer byte accordingly 




109 


000000EC 


S6DB 








sne 




110 


00O00OEE 


51CC 


FFFfl 






dbra 


d4,unpackrow2 loop till all 8 bits done 
#2,a3 look at next font byte 




111 


OOO0OOF2 


S44B 








addq 




112 


000000F4 


S1CB 


FFF2 






dbra 


d3,unpackrow and loop till all font rows done 




113 


000000F8 


60C8 








b ra 


nextfont go look at next font 

#128, d3 kana8 upper half has 128 chars 




114 


OOOOOOFF. 


363C 


0080 


ur 


pkkana move 




US 


OOOOOOFE 


247C 


OOOC 






movea.l #$C8000,a2 store at font storage * 256»128 








8000 














116 


00000104 


60D8 








b ra 


unpackit 




117 


















118 


















119 


















120 








* 


savecrt state: 


reserve bit mover state 




121 








* 




Entry: d0= replacement rule 




122 








* 






dl= window width 




123 








* 










124 








* 




Uses: ft2 . «3 




125 








* 










126 




0000 


0106 


savecrtstate equ 


* 




127 


00000106 


266D 


FFflfl 






movea.l cont roladdr (a5] ,a3 




128 


0000010B 


082B 
4001 


0007 


55 


vest 


ate! btst 


#7,status(a3) wait for not busy 




129 


00000110 


6 7F8 








beq 


savestatel 




130 


00000112 


245F 








movea.l (sp)+,a2 save ret addr 




131 


00000114 


3F2D 


FFA4 






move 


replcopy(a5) , - [sp) save old copy 




132 


00000118 


3F2D 


FFB2 






move 


windcopy(a5) , - (sp) 

dO, replcopy (aS) setup new values 




133 


0000011C 


3B40 


FFA4 






move 




134 


00000120 


3B41 


FFR2 






move 


dl .windcopy (a5) 




135 


00000124 


3740 


4008 






move 


dO, repl reg(a3) setup the registers 




136 


00000128 


3741 


400C 






move 


dl ,wind re9(a3) 




137 


















138 


0000012C 


4ED2 








jmp 


(a2) 




139 








* 










140 








* 


restcrt state : 


estores window width and replacement rule regs 




141 








* 










142 








* 




Uses 


a3 




143 








* 










144 




0000 


012E 


restcrtstate equ 


* 




145 


0000012E 


266D 


FFflfl 






movea.l cont roladdr (a5) ,a3 




146 


00000132 


082B 


0007 


restcrtl btst 


#7, status(a3) wait for not busy 








4001 














147 


00000138 


67F8 








beq 


restcrt 1 




148 


0000013B 


3B6F 
FFR2 


0004 






move 


4 (sp) ,windcopy(a5) restore copy variables 




149 


00000140 


3B6F 
FFB4 


0006 






move 


6 (sp) , replcopy(aS) 




ISO 


00000146 


376D 
400C 


FFA2 






move 


windcopy(a5 ) ,windreg (a3) restore the registers 




1S1 


0000014C 


376D 
4008 
2E9F 


FFB4 






move 


replcopy(a5),replreg(a3) 




152 


00000152 








move 


1 (sp)+,(sp) move up return addr 




153 


000001S4 


4E7S 








rts 


and return 




154 


















155 








* 


procedure cchar(ord(char),x,y:shortint); 




156 


















157 


00000156 


285F 




cc 


rar 


move a . 1 


(sp)*,a4 




PAGE 


4 [3.0] 12/26/84 


21:09 


10 


ASSEMBLY OF GBSSM.TEXT »** File name 


GBSSM *** 


1S8 


0OO0O1S8 


301F 








move 


(sp)+,dO dO = y 
#16384, dO 




159 


0OO0O15B 


COFC 


4000 






mulu 




160 


0000015E 


2040 








move a. 1 


dO.aO 




161 


00000160 


DIED 


FFA6 






adda . 1 


screen(aS) , aO 




162 


00000164 


3B1F 








move 


(sp)+,d5 d5 = x (this will be used later also) 
#3 , d5 




163 


00000186 


E740 








lsl 




164 


00000168 


D0C5 








adda 


dS,aO aO = address of byte to begin at 




165 


0000016B 


226D 


FFPie 






movea. 1 


screen(a5 ) , al setup font addr in al 




166 


0000016E 


D3FC 
0000 


OOOC 






adda . 1 


#$COOO0,al fonts are just past visible space 




167 


00000174 


301F 








move 


(sp)+,dO dO = character 
#128, dO 




168 


000001/6 


COFC 


0080 






mulu 




169 


000001 7H 


43F1 


0800 






lea 


(al ,d0 . 1 ) , al al = address of char in font storage 
#width-8,d7 




170 


00O0017E 


3E3C 


03 F8 






move 




171 


00000182 


303C 


0003 






move 


#3, dO set repl rule to replace 




172 


000001B6 


082D 
FFEE 


0000 






btst 


#0, highlight (a5) inverse video? 




173 


OOOOOIBC 


6704 








beq. s 


ccharb if not, skip next instruction 




174 


0000018E 


303C 


OOOC 






move 


#12, dO else set repl rule to invert 




175 


00000192 


7200 




cc 


ha rt 


moveq 


#0,dl 




176 


00000194 


6100 


FF70 






bsr 


savecrtstate 




177 


00000198 


2009 








move . 1 


( al )+, (aO)* 




178 


0000019B 


20D9 








move . 1 


al * 


(aO)* 




179 


0000019C 


D0C7 








adda 


d7,a0 






180 


0000019E 


20D9 








move . 1 


(all* 


(a0| + 




181 


000001BO 


20D9 








move . 1 


ial)* 


(aOj* 




182 


000001H2 


D0C7 








adda 


d7,a0 






183 


0OO001A4 


20D9 








move . 1 


(all* 


(aO)* 




184 


000001PI6 


20D9 








move . 1 


(al * 


(aOj* 




185 


000001FI8 


D0C7 








adda 


d7,a0 






186 


000001BB 


20D9 








move .1 


(al) + 


(aO)* 




187 


oooooibc 


20D9 








move . 1 


(al ♦ 


(aO)* 




188 


0OOOO1BE 


0OC7 








adda 


d7,a0 






189 


000001B0 


2009 








move . 1 


(al)* 


(aO)* 




190 


000001B2 


2009 








move . 1 


al ♦ 


(aO)* 




191 


000001B4 


D0C7 








adda 


d7,a0 






192 


000001B6 


20D9 








move . 1 


(al)* 


jaOl* 




193 


00000188 


2009 








move . 1 


fal)* 


(aO)* 




194 


000001BB 


D0C7 








adda 


d7,a0 






195 


OOOOOIBC 


20D9 








move . 1 


(al)* 


(aO). 




196 


000001BE 


20D9 








move . 1 


(al * 


(aO)* 




197 


000001CO 


D0C7 








adda 


d7,a0 






198 


000001C2 


20D9 








move . 1 


(all* 


(aO)* 




199 


000001C4 


20D9 








move . 1 


(al * 


(aO)* 




200 


000001C6 


D0C7 








adda 


d7,a0 






201 


000001C8 


20D9 








move . 1 


(al)* 


(aO)* 




202 


OOOOOlCfl 


20D9 








move . 1 


al * 


(aO)* 




203 


000001CC 


D0C7 








adda 


d7,a0 






204 


000001CE 


20D9 








move . 1 


(all* 


(aO)* 




205 


OOOOOIDO 


20D9 








move . 1 


al * 


(aO)* 




206 


000001D2 


D0C7 








adda 


d7,a0 






207 


000001D4 


20D9 








move . 1 


(all* 


(aO)* 




208 


000001D6 


20D9 








move . 1 


(all* 


(aO)* 




209 


000001D8 


00C7 








adda 


d7,a0 






210 


000001DB 


20D9 








move . 1 


(al)* 


(aO)* 




211 


000001DC 


20D9 








move . 1 


al * 


aO * 




212 


000001DE 


D0C7 








adda 


d7,a0 






















1-213 



move . 1 


(al)+,(aO)+ 




move . 1 


(al) + ,(at>) + 




adda 


d7,a0 




move . 1 


(al ) + , (aOJ + 




move . 1 


(al)+,(aO)+ 




adda 


d7,a0 




move . 1 


(al )+, (a0) + 




move . 1 


(al)+, (a0)+ 




adda 


d7,aC 




move . 1 


(al)+,(aO)+ 




move . 1 


(alj+,(a0)+ 

#2, highlight (a5) 




btst 


underline? 


beq . s 


ccharl 


no, skip next part 


bsr 


res tcrt state 




move 


#138, dO 


setup to invert line 


moveq 


#-8,dl 




bsr 


savecrtstate 




adda 


#-8,aO 


aO points to line 16 


move . b 


#0, (aO) 


do the invert 


bsr 


res tcrt state 




jmp 


(a4) 





>SGE 6 [3.0] 12/26/84 21:09:10 ASSEMBLY OF GSSSM.TEXT **» File name: GflSSrl *»» 

213 000001EO 20D9 

214 000001E2 20D9 

215 000001E4 D0C7 

216 000001E6 20D9 

217 000001E8 20D9 

218 000001EA D0C7 

219 000001EC 20D9 

220 000001EE 20D9 

221 000001FO D0C7 

222 000001 F2 20D9 

223 000001F4 20D9 

224 000001F6 082D 0002 

FFEE 

225 000001FC 6716 

226 OO0001FE 6100 FF2E 

227 00000202 303C 008A 

228 00000206 72F8 

229 00000208 6100 FEFC 

230 OO00O2OC DOFC FFF8 

231 00000210 108C 0000 

232 00000214 6100 FF18 ccharl 

233 00000218 4ED4 

234 * 

235 » 

236 * cscrollup 

237 » 
238 
239 

240 0000021A 6100 0180 cscrollup bsr changecursor 

241 0000021E 206D FFA6 movea.l screen (aS) , aO 

242 00000222 2248 movea.l aO.al 

243 00000224 DOFC 4000 adda #16384, aO 

244 00000228 303C 0083 move.w #131, dO 

245 0000022C 7200 moveq #0,di 

246 0000022E 6100 FED6 bsr savecrtstate 

247 00000232 302D FFF4 move maxy(a5),d0 

248 00000236 S340 subq #l,dO 

249 00000238 720F suloop2 moveq #15, dl 

250 0000023A 1290 suloop move.b (aO),(al) 

251 OO00O23C DOFC 0400 adda #width,aO 

252 00000240 D2FC 0400 adda #width,al 

253 00000244 082B 0007 sucheck btst #7 , status(a3) a3 setup by savecrtstate 

4001 

254 0000024A 67F8 beq sucheck 

255 0000024C 51C9 FFEC dbra dl, suloop 

256 00000250 51C8 FFE6 dbra d0,suloop2 
257 

258 * Clear bottom line on screen 

259 * 

260 00000254 207C 000C movea.l #clearl,aO 

COOO 

261 0000025FI DIED FFP6 adda.l screen (aS) , aO 

262 0000025E 30 JC 000F move #15, dO 

263 00000262 1290 bclrloop move.b (aO).(al) 

264 00000264 D2FC 0400 adda ttwidth.al 

265 00000268 082B 0007 bcheck btst #7, stat us (a3) 

4001 



scrolls the screen up one line of alpha text (16 graphics lines) 



3 PGE 6 [3.0] 12/26/84 21:09:10 ASSEMBLY OF GHSSM.TEXT »** File name: GflSSM 

266 0000026E 67F8 beq bcheck 

267 00000270 51C8 FFFO dbra dO, bclrloop 

268 00000274 6100 FEB8 bsr restcrtstate 
269 

270 00000278 6000 0122 bra changecursor 
271 

272 * 

273 » cscrolldown 

274 » 

275 * scrolls the screen down one text line 

276 * 

277 0000027C 6100 01 IE cscrolldown bsr changecursor 

278 00000280 206D FFP6 movea.l screen aSl.aO 

279 00000284 302D FFF4 move maxy(aS),dO 

280 00000288 COFC 40CO mulu #16384, dO 

281 0000028C 90EC 0000 sub.l #width,dO 

0400 

282 00000292 D1C0 adda.l dO.aO 

283 00000294 2248 movea.l aO.al 

284 00000296 DOFC 4000 adda #16384, aO point to 1 char row past al 

285 0000029H 303C 0083 move.w #131, dO 

286 0000029E 7200 moveq #0,di 

287 000002P.O 6100 FE64 bsr savecrtstate 

288 000002P.4 302D FFF4 move maxy(a5),d0 

289 000002B8 5340 subq #l.dO 

290 000002P.F1 720F sdloop2 moveq #15, dl 

291 000002P.C 1091 sdloop move.b (al ,(a0) 

292 000002AE 90FC 0400 suba #width,aO 

293 000002B2 92FC 0400 suba #width,al 

294 000002B6 082B 0007 sdcheck btst #7 , status (a3) a3 setup by savecrtstate 

4001 

295 000002BC 67F8 beq sdcheck 

296 000002BE 51C9 FFEC dbra dl, sdloop 

297 000002C2 51C8 FFE6 dbra d0,sdloop2 
298 

299 000002C6 206D FFA6 movea.l screen (aS) , aO 

300 000002CA 700F moveq #15, dO 

301 000002CC 227C 000C movea.l #clearl,al 

COOO 

302 000002D2 D3C8 adda.l aO,al 
303 

304 00000204 1091 topclear move.b (al).(aO) 

305 00000206 DOFC 0400 adda #width,aO 

306 000002DA 082B 0007 topcheck btst #7, status (a3) a3 setup by savecrtstate 

4001 

307 000002EO 67F8 beq topcheck 

308 000002E2 S1C8 FFFO dbra dO, topclear 

309 000002E6 6100 FE46 bsr restcrtstate 

310 000002EB 6000 00B0 bra changecursor 
311 

312 » 

313 * cupdatecursor (x, y: short int ) ; 

314 * 
315 

316 000002EE 2260 FFFC cupdatecursor movea.l cursoraddr (aS) , al 

317 000002F2 285F movea.l (sp)+,a4 a4 = return addr 

318 000002F4 301 F move (sp)*,dS dS ■= y 



1-214 



PfiGE 


7 [3.0] 12/26/84 


21:09:10 RSSErlBLY OF GRSSM. TEXT **» File name: 


GRSSM *»* 


319 


000002F6 361F 






move 


(sp)+,dS d3 - x 
#138, dO 




320 


000002F8 303C 


008B 




move .w 




321 


000002FC 72F8 






moveq 


#-8,dl 




322 


000002FE 6100 


FE06 




bsr 


savecr tstate 




323 


00000302 12BC 


0000 




move .b 


»0, (al) 




324 


00000306 D2FC 


0400 




adda 


♦width, al 




325 


0000030FI 082B 
4001 


0007 


curscheck 


btst 


♦7, status(a3) a3 setup in savecrtstate 




326 


00000310 67F3 






beq 


curscheck 




327 


00000312 12BC 


OOOO 




move .b 


#0, (al ) 




328 














329 


00000316 CRFC 


4000 




mulu 


#16384, d5 16*1024 




330 


0000031ft DBBC 
3800 


0000 




add.l 


#14336, d5 spaces you to line 15 of character for cursor 




331 


00000320 E74B 






lsl 


#3,d3 




332 


00000322 2060 


FFR6 




movea . 1 


screen (a5) , aO 




333 


00000326 D0C3 






adda 


d3,a0 




334 


00000328 D1CS 






adda . 1 


dS.aO 




33S 


00O0032F1 2B48 


FFFC 




move . 1 


aO,cursoraddr (a5) 




336 


0000032E 082B 
4001 


0007 


curscheckl 


btst 


#7,status(a3) 




337 


00000334 67F8 






beq 


curscheckl 




338 


00000336 10BC 


OOOO 




move .b 


#0, (aO) 




339 


0000033R DOFC 


0400 




adda 


♦width, aO 




340 


00O0033E 082B 
4001 


0007 


curcheck2 


btst 


♦7,status(a3) 




341 


00000344 67F8 






beq 


curcheck2 




342 


00000346 10BC 


OOOO 




move .b 


#0, (aO) 




343 


0000034ft 6100 


FDE2 


curcheck3 


bsr 


restcr tst ate 




344 














34S 


0000034E 4ED4 






jmp 


(a4) 




346 














347 






* 








348 






* cclearjxpc 

* -- clear 


s, ypos, n 


criars:sriortint ); REVISED FOR 3.01 9/13/84 




349 






s nchars 


starting at xpos, ypos 
must not exceed 128 




350 






* -- nchars + xpos 




351 






* no range checking is done 




352 






* 








353 














354 


00000350 6100 


004ft 


eclear 


bsr 


changecu rsor 




355 


00000364 285F 






movea . 1 


(sp)+,a4 a4 = return address 




356 


00000366 381F 






move 


[sp)+,d4 d4 = number of characters to clear 




357 


000003S8 361F 






move 


(sp)+,d3 d3 = y to begin at 




358 


0000036ft C6FC 


4000 




mulu 


#16384, d3 d3.1 = offset to y 




359 


0000035E 3R1F 






move 


(r,p)t,d5 d5 = x 




360 


00000360 2F0C 






move . 1 


a4,-(sp; stack return address 

♦3,d5 dS = byte offset to begin at 




361 


00000362 E74D 






lsl 




362 


00000364 206D 


FFR6 




movea . 1 


screen (a5) , aO 




363 


00000368 227C 
COOO 


OOOC 




movea . 1 


#clearl,al 




364 


0000036E D3C8 






adda. 1 


aO.al blank line addr in al 




365 


00000370 D1C3 






adda. 1 


d3,a0 aO = where to begin it all 
d5,a0 after adding x offset 




366 


00000372 DOCS 






adda 




367 














368 


00000374 3604 






move 


d4,d3 use requested length 




369 


00000376 E74B 






lsl 


#3,d3 convert to pixels 




370 


00000378 4443 






neg 


d3 complement 




PAGE 


8 [3.0] 12/26/81 


21:09:10 ASSEMBLY OF GRSSM TEXT **» File name: 


GRSSM *** 


371 


0000037ft 3203 






move .w 


d3,dl 
#131 ,d0 




372 


0000037C 303C 


0083 




move .w 




373 


0000036:0 6100 


F084 




bsr 


savecrtstate setup control regs 




374 














375 


0000036:4 760F 






moveq 


#15, d3 16 pixel rows per character line 




376 


00000386 1091 




clearpart 


move .b 


Ial),(aO) 
♦width, aO 




377 


00000388 DOFC 


0400 




adda 




378 


0000038C 082B 
4001 


0007 


clearcheck 


btst 


♦7, status (a3) a3 setup in savecrtstate 




379 


00000332 67F8 






beq 


clea rcheck 




380 


00000394 51CB 


FFFO 




dbra 


d3, clearpart 




381 


00000398 6100 


FD94 




bsr 


restcr t state 




382 


0000 


039C 


doneclear 


equ 


* 




383 














384 














385 


0000039C 226D 


FFFC 


changecursor 


movea . ] 


cursoraddr (a5) , al 




386 


000003RO 303C 


008fl 




move .w 


♦138,d0 




387 


000003fi4 72F8 






moveq 


# 8,dl 




388 


000003FI6 6100 


FD5E 




bsr 


savecrts t ate 




389 


000003RR 12BC 


OOOO 




move ,b 


♦0, (al) 




390 


000003BE D3FC 
0400 


OOOO 




adda . 1 


#width,al 




391 


000003B4 082B 
4001 


0007 


curchcheck 


btst 


#'? , status(a3) a3 setup by savecrtstate 




392 


000003BR 67F8 






beq 


cure hcheck 




393 


0OO0O3BC 12BC 


OOOO 




move .b 


#0,(al) 




394 


000003CO 6100 


FD6C 




bsr 


restcrtstate 




395 


000003C4 4E75 






rts 






396 














397 














398 


000003C6 7001 




cshiftleft 


moveq 


♦l,dO get pointer to last line of screen 




399 


O0O003C8 D06D 


FFF4 




add 


maxy (a5 ) .dO 

♦16384, do 16*1024*screenheight in dO 




400 


000003CC COFC 


4000 




mulu 




401 


000003DO 2060 


FFR6 




movea . 1 


screen (a5) , aO 




402 


000003D4 D1C0 






adda.l 


dO,aO pointer to last char line now in aO 




403 


000003D6 2248 






movea . ] 


aO.al 




404 


000003D8 5049 






addq 


♦8,al al will be source 
♦-8, do get ♦ pixels to move 




40S 


000003DB 70F8 




cshiftl 


moveq 




406 


000003DC D06D 


FFF6 




add 


maxx (a5 ) ,d0 




407 


000003EO E748 






lsl 


♦3,d0 do has ♦ pixels in keybuffer 




408 


OOO003E2 4440 






neg 


dO 




409 


000003E4 780F 






moveq 


#15, d4 counter for row move 




410 


000003E6 3200 






move 


dO.dl set up width register 
♦131 ,d0 and replacement rule 




411 


000003E8 303C 


0083 




move 




412 


000003EC 6100 


F018 




bsr 


savecrtstate 




413 


000003F0 1091 




csrdft3 


move .b 


(al) , (aO) and go for it 
♦width, aO bump addresses 




414 


OOOO03F2 OOFC 


0400 




adda 




415 


0OOO03F6 D2FC 


O4O0 




adda 


#width,al to get next pixel row 




416 


000003FB 082B 
4001 


0007 


cshift4 


btst 


#7 , status ( a3 ) wait for move done 




417 


00000400 67F8 






beq 


cshift4 




418 


00000402 S1CC 


FFEC 




dbra 


d4,cshift3 count till 16 rows done 




419 


00000406 6100 


F026 




bsr restcrtstate fix replacement rule reg and return 




420 


0000040ft 4E75 






rts 






421 














422 


0000040C 7001 




cshift right 


moveq 


#l,dO get pointer to last row 




423 


0000040E 006D 


FFF4 




add 


maxy (a5) , dO 


1-215 



9 [3.0] 12/26/84 21:09:10 ASSEMBLY OF GfiSSM.TEXT 

mulu #16384, dO 

movea.l screen(a5), 

adda.l dO,aO 

movea.l aO.al 

addq #8 , aO 

bra cshiftl 



Fi le name : GfiSSM *** 



424 


00000412 


COFC 


4000 


425 


00000416 


2C6D 


FFA6 


426 


0000041A 


D1C0 




427 


0000041C 


2248 




428 


0000041E 


5048 




429 


00000420 


60B8 




430 








431 








432 








433 








434 


00000422 


28SF 




435 


00000424 


301F 




436 


00000426 


E448 




437 


00000428 


5340 




438 


0000042A 


36 IF 




439 


0000042C 


E74B 




440 


0000042E 


3B1F 




441 


00000430 


321F 




442 


00000432 


225F 




44 3 


00000434 


9A41 




444 


00000436 


5245 




445 


00000438 


E94D 




446 


0000043A 


5345 




447 


0000043C 


C2FC 


4000 


44 8 


00000440 


3800 




449 


00000442 


7C03 




450 


00000444 


610O 


FCCO 


451 


00000448 


3004 




452 


0000044A 


206D 


FFP6 


453 


0O00044E 


D1C1 




454 


00000450 


D0C3 




455 


00000452 


2448 




456 


00000454 


3E00 




457 


00000456 


2C12 




458 


00000458 


2401 




459 


0000045R 


22C6 




460 


0000045C 


51CF 


FFF8 


461 


00000460 


D1FC 
0400 


0000 


462 


00000466 


51CD 


FFEA 


463 


0000046A 


6100 


FCC2 


464 


0000046E 


4E04 




465 









467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 



aO points to last char row 
make a copy 

dest in aO -- 1 char to right 
now do same stuff as shift left 



procedure cexchange (savearea : windowp; ymin, ymax, xmin, width: shortint) 

a4 = return addr 

width of window in pixels in dO 

dO=window width in long integers 

setup for later looping 

d3 = x offset in chars 

d3 = x offset in pixels 

d5 = ymax 

dl = ymin 

al = ptr to save area 

d5 has # of char rows to move 
now has # of pixel rows to move 
setup for outer loop 
dl = y offset into frame buffer 
save dO temporarily 
setup replacement rule 

restore dO 
, aO aO points to frame buffer start 
now points to correct row 
do x offset into row 
make a working copy 
initialize inner loop 
screen to temp 
save area to screen 
temp to save area 
inner loop (pixel row move) 
bump row pointer 

outer loop (row count) 
restore control regs 
done 

* procedure esc rollwindow( ymin, ymax, xmin, width: shortint); 



cexchange 


movea . 1 


sp)+,a4 




move 


(sp + ,d0 




Isr 


#2,d0 




subq 


#l,d0 




move 


(sp)+,d3 
#3,d3 




lsl 




move 


(5p +,dS 




move 


fsp +,dl 




movea. 1 


(sp) + , al 




sub 


dl ,dS 




addq 


#l,d5 




lsl 


#4,d5 




subq 


#l,dS 
#16384. dl 




mulu 




move 


d0,d4 




moveq 


#3,d0 




bsr 


savecrtstate 




move 


d4,d0 




movea . 1 


screen(a5) ,a 




adda . 1 


dl,a0 




adda 


d3,a0 


cexchg2 


movea. 1 


a0,a2 




move 


d0,d7 
(a2),d6 


cexchg3 


move . 1 




move. 1 


lel) f (a2)+ 




move.l 


d6,(al)+ 




dbra 


d7,cexchg3 

#width,aQ 




adda , 1 




dbra 


d5,eexchg2 




bsr 


restcrtstate 




jmp 


(94) 



00000470 6100 FF2A cscrollwindow bs 
00000474 7400 
00000476 285F 



00000478 30 IF 
0000047A E748 
0000047C 4440 
0000047E 321F 
00000480 E749 
00000482 3B1F 
00000484 361F 
00000486 9(143 



cscrollwindc 



moveq 
movea. 1 
move 
lsl 

neg 

move 

lsl 

move 

move 

sub 



changecursor 
#0,d2 

sp)+,a4 

sp)*,dO 

3,d0 
dO 

(sp)+,dl 
#3,dl 

sp)+,d5 
(sp)+,d3 
d3,d5 



set upscroll flag in d2 

a4 = return addr 

dO = width in chars 

do - width in pixels 

setup for repl rule reg 

dl = x offset of window in chars 

dl = x offset in pixels (bytes) 

d5 = ymax 

d3 = ymin 

d5 has # of rows to move 
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480 
481 
482 
483 
484 
485 
466 
487 
488 
489 

490 
491 
492 
493 
494 
495 
496 
497 



499 
500 
501 

502 
503 
504 
505 
506 

507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
621 
S22 
523 
524 
525 
526 
527 
528 

529 
530 
531 



00000488 
0000048C 
0O0O048E 
00000492 
00000496 
00000498 
0000049A 
0000049C 
0000049E 
000004AO 

000004R.6 
000004A8 
000004AC 

000004BO 
000004B2 
000004B6 

000004BB 

0O0004CO 
000004C2 
000004C6 
000004C8 

000004CE 

000004D2 
000004D4 
000004 D8 

000004 DE 
OO0004EO 
000004E4 
000004E8 
0O0OO4EA 



CAFC 0010 

S34S 

206D FFA6 

C6FC 4000 

D1C3 

D0C1 

4A42 

6650 

2248 

D3FC 0000 

4000 

3200 

303C 0083 

6100 FC58 



1091 
DOFC 
D2FC 
082B 
4001 
67F8 
51CD 
7B0F 
227C 
COOO 
D3ED 

1091 
DOFC 
082B 
4001 
67F8 
51CD 
6100 
2F0C 
6000 



cscrollwinl 
0400 
0400 
0007 cscrollwin2 



O0OC 

FFA6 

cscrollwin3 
0400 
0007 cscrollwin4 



FFF0 
FC48 



FEB0 



cscrollwindb 



000004EE 78C0 

000004FO 3805 

000004F2 5244 

000004F4 740A 

000004F6 E5BC 

000004F8 D1C4 

000004FA 90FC 0400 

000004FE 2248 

00000500 DOFC 4000 

00000504 3200 

00000506 303C 0083 

OOOOOSOA 6100 FBFA 

0000050E 1091 

00000510 90FC 0400 

00000514 92FC 0400 

00000518 082B 0007 cscrollwin6 

4001 
0000051E 67F8 
00000520 S1CD FFEC 
00000524 2049 



mulu 




#16, d5 


subq 




#l,dS 


movea 


1 


sc reen (a5) , aO 


mulu 




#16384, d3 


adda . . 




d3,aO 


adda 




dl.aO 


tst 




d2 


bne.s 




cscrollwindb 


movea 


1 


aO.al 



adda.i #1^384, al 



now dS has # of pixel rows to move 

setup for loop 

frame buffer addr in aO 

get y offset in bytes 

aO points to first row of window 

now add in x offset 

check up/down flag 

and branch if dn 
make a copy for source pointer 
which starts 1 char row down 



move d0 ; dl 

move #131, dO set up control regs 

bsr savecrt state 

move.b (al),(aO] move a row 

adda #width,au 

adda #width, al 

btst #7,status(a3) 

beq cscrollwin2 

dbra dS .cscrollwinl 

moveq #15, d5 

movea.l #clearl, al 

adda. 1 screen(aS),al 

move.b (al),(aO) 

adda #width,aO 

btst #7,status(a3) 



a3 setup by savecrtstate 



loop till all rows moved 

clear first or last line of window 



clear a pixel row 

wait for bitmover 



beq 
dbra 
bsr 
move.l 

bra 



moveq 

move 

addq 

moveq 

151. 1 

adda. 1 
sub a 

movea. ; 
adda 
move 
move 
bsr 
cscrollwin5 move .b 
suba 
suba 
btst 



cscrollwin4 
d5,cscrollwin3 
restcrtstate 
a4,-(sp) 

changecursor 

#0,d4 

d5,d4 

#l.d4 

#10, d2 

d2,d4 

d4,a0 

#width,aO 

aO.al 

#16384, aO 

dO.dl 

#131, dO 

savecrtstate 

(al),(aO) 

#width,aO 

#width,al 

#7,status(a3) 



beq cscrollwin6 
dbra dS,cscrollwin5 
movea .1 al , aO 



restack return addr 
and fixup curso r 

calculate first source row loc. 

d4 = #pixel rows to move 

mpy by 1024 to get offset in FB 

add to prev . calculated pointer 

point to bottom row to move 

al is source pointer 

aO points to destination 

dl has width for window reg 

setup repl rule value 

move a pixel row 

point to next sre and dst 

wait till bit mover done 



go till all rows moved 
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S32 
S33 
534 
535 
S36 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
S70 
571 
572 

S73 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 



00000526 DOFC 0400 
0000052R 609R 



adda 
bra 



0000052C 6100 FE6E cscrollwinddn bsr 
00000530 7401 moveq 

00000532 6000 FF42 bra 



#width ,a0 
cscrollw2b 

changecursor 

#l,d2 

cscrollwindc 



00000536 
0000053B 
0000053C 
0000053E 
00000540 
00000542 
00000544 
00000546 
00000548 
0000054A 
00000S4C 
00000S4E 
00000550 
00000552 
00000554 
00000556 
00000568 
0000055C 
0000055E 
00000560 
00000562 
00000564 
00000566 
00000568 
0000056A 
0000056E 
00000570 
00000574 
00000578 
0000057C 
0000057E 
00000582 
00000586 

0000058C 
0000058E 
00000592 
00000596 
00000598 



6100 
7400 
285F 
321F 
5341 
E749 
4441 
301F 
E748 
3A1F 
7600 
361F 
9A43 
5245 
E94D 
5345 
206D 
780E 
E9AB 
D1C3 
DOCO 
2248 
4A42 
6606 
DOFC 
6004 
D2FC 
303C 
6100 
1290 
DOFC 
D2FC 
0828 
4001 
67F8 
51CD 
6100 
2F0C 
6000 



FE64 cdbscrolll 
cdbscrollb 



0008 

O0O8 cdbscroll2 
0083 cdbscroll3 
FB8C 

cdbscrolH 
0400 
0400 
0007 cdbscroll5 



FFEC 
FB9A 



0000059C 6100 FOFE cdbscrollr 
000005AO 7401 
0OOO0SH2 6098 



bsr 

moveq 

movea . 1 

move 

subq 

lsl 

neg 

move 

lsl 

move 

moveq 

move 

sub 

addq 

lsl 

subq 

movea . 1 

moveq 

lsl.l 

adda. 1 

adda 

movea . 1 

t st 

bne . s 

adda 

bra . s 

adda 

move 

bsr 

move. b 

adda 

adda 

btst 

beq 
dbra 
bsr 

move. 1 
b ra 

bsr 

moveq 

bra 



aO 



changecjrsor 
#0,d2 

sp)+,«4 

sp)+,dl 

l,dl 
#3,dl 
dl 

Tsp)+,dO 
#3,d0 
(sp)*,dS 
#0,d3 
(sp)*,d3 
d3,dS 
#l,d5 
#4,d5 
#l,d5 
screen (a5) 
#li ,d4 
d4,d3 
d3,a0 
dO.aO 
aO,al 
d2 

cdbscroll2 
#8,a0 

cdbscroll3 
#8,al 
#131, dO 
savecrtstate 
TaO),{ali 
#width,a6 
♦width, al 
#7,status(a3) 



cdbscroll5 
d5,cdbscroll4 
restcrtstate 
a4,-(sp) 
changecu rsor 

changecursor 

#l,d2 

cdbscrollb 



aO points to char row to clear 



set down scroll flag 
go to common code 



set left scroll flag 

pickup return addr 

width in chars 

actual width to move is 1 less 

width in pixels in di 

setup for window width reg 

x offset in chars 

dO = x offset in pixels 

d5 = ymax 



d3 



ymin 



d5 = # char rows to move 
d5 = # pixel rows to move 
setup dS for loop 



d3 = d3»18384 ( y window start offset) 

add in x offset 

copy to al 

check left/right flag 

if right, skip 

else src is to right of dest 

if right then src is left of dest 
setup replacement rule 

move a pixel row 
point to next row 

check status 

loop till all rows moved 

finished! 



set right shift flag 
go to common code 



procedure cdbhighl (ord (cha r) ,x, y: short int ) ; 

Assumes the character is in the highlight range 

Does not know about current highlight state of character 
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588 


000005A4 


285F 




cdbhighl 


movea. ] 


(sp)+,a4 


589 


00000SA6 


301F 






move 


sp +,d0 dO 


590 


000005A8 


COFC 


4000 




mulu 


#16384, dO 


591 


0OO005AC 


2040 






movea. 1 


dO,aO 


592 


000005AE 


DIED 


FFA6 




adda.l 


screen(a5) , aO 


593 


0OOO05B2 


3A1F 






move 


(sp)+,d5 dS 
#3,dS 


594 


000005B4 


E74D 






lsl 


595 


0OO005B6 


DOCS 






adda 


d5,a0 aO 


596 


000005B8 


341 F 






move 


(sp)t,d2 


597 


0OO005BA 


6100 


FOEO 




bsr 


changecursor 


598 


000005BE 


303C 


008A 




move 


#138, dO 


599 


0OO005C2 


72F8 






moveq 


#-8,dl 


600 


000005C4 


6100 


FB40 




bsr 


savecrtstate 


601 


0OOO05C8 


0802 


OOOO 




btst 


#0,d2 


602 


0OOO05CC 


6718 






beq . s 


cdbhigh3 


603 


0OOO0SCE 


760F 






moveq 


#15, dS 


604 


000005DO 


2248 






movea. 1 


aO,al 


605 


000005D2 


12BC 


0000 


cdbhighl 


move .b 


#0,(al) 


606 


0OO00SD6 


D2FC 


0400 




adda 


♦width, al 


607 


0OOO05DA 


082B 
4001 


0007 


cdbhigh2 


btst 


#7,status(a3) 


608 


0OO005EO 


67F8 






beq 


cdbhigh2 


609 


00000SE2 


51CB 


FFEE 




dbra 


d3, cdbhighl 


610 


00000SE6 


0802 


0002 


cdbhigh3 


btst 


#2,d2 


611 


OOOOOSEP, 


6710 






beq.s 
adda 


cdbhighS 
#15360, aO 


612 


000005EC 


DOFC 


3C00 




613 


000005FO 


108C 


0000 




move .b 


#0 , ( aO ) 


614 


000005F4 


0S2B 
4001 


0007 


cdbhigh4 


btst 


#7,status(a3) 


615 


OOOOOSFA 


67F8 






beq 


cdbhigh4 


616 


000005FC 


6100 


FB30 


cdbhighS 


bsr 


restcrtst ate 


617 


00000600 


2F0C 






move . 1 


a4,-(sp) 


618 


00000602 


6000 


F098 




bra 


changecursor 


619 














620 










end 


PASS 1 


ERRORS: 












PASS 2 


ERRORS: 













= x (this will be used later also) 

= address of byte to begin at 
d2 = highlight char 

take off the cursor 

repl rule = negate 

we will work with 8 byte wide chars 

invert? 

no, try for underline 
setup loop for invert char 
copy pointer to the char 
do a row RQ 

point to next row 
is move done? 

wait here till done 

loop till 16 rows done 

underline? 

no -- drop out 

point aO to last row of char 

and negate it 

wait for done 



put the cursor back 
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GLE_AUTL 



Description 

GLE_AUTL provides assembly language utility routines for the Graphics Low End (GLE). 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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1 

2 
3 
4 
S 
6 
7 
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14 
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17 
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19 
20 
21 
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25 
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27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
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47 
48 
49 
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File name: GLE_HUTL »* 



Gr ,3phics Low End 



Module 

Programer 

Date 



= GLE_AUTL 

= BJS 

= 9/30/82 



Purpose : To provide low level bit operations for GLE 
Rev history 



Created 
Modified 



9/30/82 



(c) Copyright Hewlett-Packard Company, 
All rights are reserved. 



1983. 
Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 



RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 

Saragraph (b) (3) (B ) of the Rights in Technical 
ata and Computer Software clause in 
DHR 7-104. 9(a) . 

HEWLETT-PACKARD COMPANY 
Fort Collins, Colorado 



MNAME GLE HUTL 

src MODULE" GLE HUTL; 

src EXPORT 

src FUNCTION GLE_IflND (VALUE1, VBLUE2 

src FUNCTION GLE_I0R (VALUE1, VHLUE2 

src FUNCTION GLE ISHIFT (VALUE, SHIFT 

src END; 

rorg 

def GLE HUTL GLE ISHIFT 
def GLE PlUTL GLE IP.ND 
def GLE~AUTL~GLE I0R 
def GLE_HUTL_GLE_AUTL 

nosyms 

****************** 



INTEGER) 
INTEGER 
INTEGER 



INTEGER 
INTEGER 
INTEGER 






************** 
* 

* T :- GLE_ISHIFT ( VALUE, SHIFT ) 

* This function shifts VALUE right (if SHIFT is negative) or left ( if 

* SHIFT is positive) by ABS(SHIFT). 
* 

0000 0000 GLE_AUTL_GLE_ISHIFT equ * 
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59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
8S 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 



100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 



0O000O0O 4E56 0000 



00000004 
00000008 



00000O0C 
000O0O0E 



000OOO10 
00000012 



202E 
2?2E 



OOOC 
0008 



4H81 

6D04 



E3f)0 
6004 



move . 1 
move . 1 



tst.l 
bit .s 



asl.l 

bra. s 



a6,#0 



12(a6),dO 
8(a6),dl 



dl 

shif t_right 



dl,dO 
shift done 



value to shift 
shift value 



0000 0014 shift_right equ 



00000014 
00000016 



4481 
E2R0 



neg. 1 
asr . 1 



dl 
dl.dO 



0000 0018 shift_done equ * 

00000018 2C40 0010 move.l d0,16(a6) 

unlk a6 
movea.l Isp)+,aO 
addq.w *8,sp 
jmp (aO) 



OO00001C 
0000001E 
00000020 
00000022 



4ESE 
20SF 
504F 
4ED0 



return to pascal 



00000028 
OO0OOO2C 



00000032 

00000036 
00000038 
OO00003A 
OOO0OO3C 



0000 

4E56 

202E 
222E 

C081 

2D40 

4ESE 
20SF 
504F 
4E00 



****************************************************************************** 
* 

* T := GLE_IPND ( VALUE:, VHLUE2 ) 
* 

« This function and's VHLUE1 with VALUE2. 
* 
0024 GLE_AUTL_GLE_IANO equ * 



0000 



OOOC 
0008 



link 

move . 1 
move . 1 

and. 1 

move . 1 

unlk 
movea . 1 
addq.w 
jmp 



a6,#0 

12(a6),d0 
8(a6),dl 

dl.dO 

d0,16(a6) 
a6 
?P 



(sp)+,aO 
48 sp 
(aO) 



value2 
valuel 

perform operation 

put result on stack 

return to pascal 



0000003E 



0000 
4E56 



****************************************************************************** 
* 

* T := GLE_I0R ( VHLUE1, VALUE2 ) 

* This function OR"s VALUE1 with VHLUE2. 
* 

003E GLE_AUTL_GLE_IOR equ * 

0000 link a6,#0 
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value2 
val jel 

perform operat ion 

put result on stack 

return to pascal 

module init procedure 



116 

117 


00000012 


202E 000C 




move . 1 


12(a6) ,d0 


118 


00000046 


222E 0008 




move .1 


8(a6),dl 


119 












120 


0000004 PI 


8081 




Dr.l 


dl.dO 


121 












122 


0000004C 


2D40 0010 




move .1 


dO,16(a6) 


123 












124 


00000050 


4ESE 




unlk 


a6 


125 


00000052 


205F 




moves. 1 


(sp)*,aO 


126 


00000054 


S04F 




addq .w 


#8 sp 
(aO) 


127 


00000056 


4ED0 




imp 


128 












129 


00000058 


4E75 


GLE BUT I GLE AUTL RTS 


130 






END" 






PBSS 1 


ERRORS: 










PASS 2 


ERRORS: CI 
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GPIO 



Description 

GPIO contains assembly language low-level drivers. 



Usage 

GPIO is used for the 98622 interface. 



Requirements 

G_DRV and COMASM. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 

1-223 



PRGE 

PSSS 1 
2 
3 

4 
5 



1 [3.0] 12/2P/S4 21:31:49 ASSEMBLY OF GPIC.TEXT 
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**************************** ******************************* 

* COPYRIGHT (C) 1984 BY HEWLETT-PACKARD COMPANY 



*** File name: GPIO 



***************** 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
2 7 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 



IOLIB EXTG 



Library 

Author 

Phone 



J************* ************* ********* 



************ 



Purpose - This set of assembly language code is intended to be used as 
a PASCAL module for I/O drivers for use by the external I/O 
procedures library. 



Date 

Update 

Release 



Source 
Object 



RELEASED 
VERSION 



Much of this code was taken from HPL GPIO 
drivers . 

09/20/81 
04/26/84 
05/15/84 



IOLIB:GPI0.TEXT 
IOLIB:GPI0.CODE 



************************ 



************* 



******** 



*************************************** ********* 



45 
46 
47 
48 
49 
SO 
51 
52 
53 
64 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
7 2 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 



2 [3.0] 12/26/84 21:31:49 IOLIB EXTG - GPIO DRIVERS *** File name: GPIO *** 
******** ******************************************************************** 

* * 

* BUG FIX HISTORY - after release 1.0 * 

* ^ 

* BUG # BY / ON LOC DESCRIPTION * 

* M 

* SPR836 G_SET_PCT a I0CONTR0L (x, 1 , 1 ) : does * 

* 08/09/1982 ~ not set the PCTL line, it * 

* resets the interface. * 
» * 

* 475 al\ over Change BSRs into JSRs to * 

* 09/17/1982 allow re-placement of the * 

* modules. Also in HPIB and * 

* Data comm modules. * 

* * 

* 507 G_TFI Did not do a trigger to the * 

* 09/17/1982 gpio card before a FHS tfr. * 

* * 

* 508 G_UTC Typographical error in * 

* 09/17/1982 write control to CTL0/1. * 

* xxx G_TFR Transfer should wait for * 

* 10/06/1982 card to be ready ( ala the * 

* HPL system I . * 

* * 

* yyy G t N tt Changes for timing on * 

« 8/1/83 GlJAIT 680xx UMM CPU boards * 

* 5/2/84 G STSCHK * 

* ~ * 

* 69 GJJTC Missing inst. in set CTLO/1 * 

» (3.0 OP) 4/26/84 3 ' * 

* SPR12724 GJTFR Clear upper byte on byte * 

* 5/3/84 transfers * 

****************** ********************************************** ********^*»* 
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** *** ********** ******* *** ********** 



*** File name: GPIO *** 
************************************* 



87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 



The following lines are used To tell the LINKER/LOADER what this module 
looks like in PASCAL terms. 

Note that it is possible to create assembly modules that are functions. 
These routines are called through an indirect pointer using the CALL 
facilit y which does NOT permit functions. 

This module is called 'EXTG' ( upper or lower case - doesn't matter ) 
independent of the file name ( by use of the MNAME pseudo-op ). 

All the externally used procedures are called 'EXTG ta@@@@@@@' in 
this module. If you are using assembly to access tFem use the 
'EXTG_@<PWeW name. If you ire using Pascal use the '9099909' 
name . 



************** 


********************* 


*********************************** 


MNAME EXTG 














SRC 


MODULE 


EXTG; 












SRC 


IMPORT 


iodeclarations : 










SRC 


EXPORT 














SRC 




PROCEDURE 


eg init 


temp 


ANYPTR 


; 




SRC 




PROCEDURE 


eg_isr 


temp 


ANYPTR 






SRC 




PROCEDURE 


eg rdb 


temp 


ANYPTR 


VAR x 


CHAR) : 


SRC 




PROCEDURE 


eg_wtb 


temp 


ANYPTR 


val 


CHAR); 


SRC 




PROCEDURE 


eg_rdw 


temp 


ANYPTR 


VAR x 


io word) ; 


SRC 




PROCEDURE 


eg wtw 


temp 


ANYPTR 


val 


io word) ; 


SRC 




PROCEDURE 


eg_rds 


temp 


ANYPTR 


VAR x 


io_word: 


SRC 












io word) ; 


SRC 




PROCEDURE 


eg_wtc 


temp 


ANYPTR 


req 
val 


io_word ; 


SRC 












io word ) 


SRC 




PROCEOURE 


eg tfr 


temp 


ANYPTR 


bcb 


ANVPTR j ; 


SRC 




PROCEDURE 


eg_clr 


temp 


ANYPTR 


line 


io_bit j ; 


SRC 




PROCEDURE 


eg set 


temp 


ANYPTR 


line 


io_bit ) ; 


SRC 




PROCEDURE 


eg test 


temp 


ANYPTR 


line 


io bit ; 


SRC 












VAR x 


BOOLEAN ) 


SRC 


END; < 


of EXTG ) 
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******************************************************************************** 

* 

« SYMBOLS FOR EXPORT AS PROCEDURE NAMES 



124 

125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
162 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 



************************ 
DEF EXTG_EXTG 



******************* 



i*************************** 



DEF EXTG EG_INIT 
DEF EXTG"EG ISR,EXTG EG TDMA 
DEF EXTG_EG_RDB,EXTG_EG UTB 
DEF EXTG EG RDJ.EXTG EG~UTU 
DEF EXTG EG RDS.EXTG EGlJTC 
DEF EXTG_EG_TFR 

DEF EXTG_EG_SET,EXTG_EG_CLR,EXTG_EG_TEST 






************* 



***************************** 



******** 



SYMBOLS FOR IMPORT 

*************************** 

REFA STBSY 

REFA STCLR 

REFA ITXFR 

REFA ABORT 10 

REFA LOGINT 

REFA GETOMA 

REFA DROPDMA 

REFA TESTDMA 

REFA DMA STBSY 

REFA WAIT TFR 

REFA CHECK TFR 

REFA CHECIOTIMER 

REFA DELP,Y_TMER 

change references to allow 

modules get moved around 

LMOOE STBSY 

LMOOE STCLR 

LMODE ITXFR 

LMODE ABORT 10 

LMODE LOGINT 

LMODE GETDMA 

LMODE DROPDMA 

LMODE TESTDMA 

LMODE DMA STBSY 

LMODE UAlT TFR 

LMODE CHECK TFR 

LMODE CHECK TIMER 

LMODE DELAY TIMER 



******************************************* 



long jumps when the I/O 



yyyy 


JS 


8/ 1/83 


yyyy 


JS 


8/ 1/83 


475 


Ttl 


9/17/82 


475 


m 


9/17/82 


475 


in 


9/17/82 


475 


in 


9/17/82 


475 


Irt 


9/17/82 


475 


in 


9/17/82 


475 


in 


9/17/82 


475 


in 


9/17/82 


475 


in 


9/17/82 


475 


in 


9/17/82 


47b 


in 


9/17/82 


475 


in 


9/17/82 


475 


in 


9/17/82 


yyyy 


JS 


8/ 1/83 


yyyy 


JS 


8/ 1/83 
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177 INCLUDE COMDCL 



AGE 6 [3.0] 12/2S/84 21:31:49 IOLIB COMDCL - COMMON EQUATES AND DEFINITIONS **» File name: GPIO 

181 * 

182 * modified: 02/22/82 JPC added parm to user EOT 8, ISR proc's 

183 * 08/01/83 JS added t imer_present and sysflag2 equ's 

184 * 

185 ****#*************************************************************************** 

186 « 

187 * HPL CONVENTIONS 

188 » 

189 * 

190 * Much of this code is taken intact from the 9826 HPL 

191 » language system EIO ROM ( extended I/O ROM ). 

192 * 

193 * The Pascal that will be calling this code uses 

194 * the stack for parameter passage. The HPL code 

195 * uses : he Ax and Dx registers for all parameters. 

196 * The Pascal driver entry points on the previous pages 

197 * take care of getting the parameters into the correct 

198 * registers. 

199 * 

200 * 

201 * GENERAL HPL ENTRY/EXIT CONDITIONS: 

202 * 

203 * HI .L = CHRD ADDRESS 

204 » H2.L = DRIVER TEMP ADDRESS 

206 * UNLESS OTHERWISE INDICATED, THESE REGISTERS HRE UNALTERED. 

206 « 

207 * 

208 « NEU ENTRY/EXIT CONDITIONS FOR PASCAL USE : 

209 » 

210 » H3.L = SUFFER CONTROL BLOCK ADDRESS 

211 * In addition to the A1/A2 convention, Pascal will use 

212 * A3 for a pointer to the buffer control block. 

213 * The HPL system kept much of the transfer 

214 * information in the 5.c. temps. 

215 » 

216 * TIME0UT(A2) = contains timeout information 

217 * Timeout was a global temp in HPL and a timeout 

218 * generated an error. 

219 * In PASCAL each card has a timeout value stored in 

220 * its temporary area. A timeout error 

221 * generates an ESCAPE ( which can be trapped ). 

222 » 

223 * 

224 ********x********#******#***#x******x*****************x************************* 
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226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
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* DRIVER TEflPS TEMPLATE 

* OFFSET FROM A2 

» HPL DECLARATIONS ( MODIFIED ) 



***** 



0000 


0000 


ISR ENTRY 


EQU 





.19 


0000 


0014 


USER" ISR 


EQU 


20 




0000 


0014 


H ISR" PR 


EQU 


20 


.23 


0000 


0018 


H ISR SL 


EQU 


24 


.27 


0000 


001C 


H ISR PH 


EQU 


28 


.31 


0000 


0020 


C ADR 


EQU 


32 


.35 


0000 


0024 


FjUFI OFF 


EQU 


36 


.39 


0000 


0028 


BUFO OFF 


EQU 


40 


.43 


0000 


002C 


EIRB OFF 


EQU 


44 




0000 


002D 


10 SC" 


EQU 


4S 




0000 


002E 


TIREOUT 


EQU 


48 


.49 


0000 


0032 


* 

riA li 


EQU 


50 


.51 


0000 


0033 


MA" 


EQU 


51 




oooo 


0034 


AVAIL_OFF 


EQU 


52 


. 9? 






* 




52 


!83 






* 




52 


.179 



PASCAL ISR LINK & UNLINK area 

user ISR: do NOT change the proc/stat link/parm ordering! 

procedure ptr 

static link 

parameter 
card address 
buffer pointer offset 
buffer pointer offset 
e i r b yt e 

select code ( i.e. 7, 22, etc. ) 
timeout value 

=0 : no timeout 
#0 : value of timeout 
word access to my address 
byte access to my address 
standard space taken from temps 
normal cards ( 32 bytes ) 
98628 card ( 128 bytes ) 
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256 
257 
258 
259 
260 
261 
_'. 
263 
264 
26S 
266 
267 
268 
269 
270 
271 
?72 
273 
274 
27S 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 



COMMON EQUATES AND DEFINITIONS 



»** File name: GPIO 



TRANSFER OFFSETS IN BUFFER CONTROL BLOCK 
OFFSET FROM A3 
PASCAL DECLARATION 



********* 



0000 0000 TTMP OFF 

0000 0005 T SC OFF 

OOOO 0007 TffCT OFF 

0000 0OO9 TUSR OFF 



EQU 

EQU S 

EQU 7 

EQU 9 



..3 



0000 COOA T_BU_0FF EQU 10 

0000 OOOB TEND OFF EQU 11 

* 

0000 000D TD1R_0FF EQU 13 

0000 000E TCHR_0FF EQU 14 ..15 



0000 0010 TCNT OFF 

0000 C014 TBUF OFF 

0000 0018 TBSZlOFF 

0000 001C TEMP OFF 

0000 0020 TFIL_OFF 

0000 0024 T PR OFF 



0000 0028 T SL OFF 
0000 C02C OM'OFF 
0000 0030 TJMHPRI EQU 48 



FQII 


IB 


.. IS 


Kill 


20 


. .23 


Full 


24 


.VI 


Full 


n 


. .31 


FIJII 


■iY 


.31, 


EQU 


36 


. .39 


FQII 


40 


.43 


EUU 


44 


. .47 



0000 0001 TT INT 
0000 0002 TTJJMfi 
0000 0003 TT BURST 
0000 0004 TT FHS 



TRANSFER EQUATES 

EQU 1 

EQU 2 

EQU 3 

EQU 4 



****** at********************* ***** 
pointer to driver temp offset 
transfer select code 
actual transfer mode 
t ransfer mode 
00 

01 serial DMA 

02 serial FHS 

03 serial FASTEST ( DMA or FHS ) 

04 - not used 



*********** 



not used 



05 overlp INTR 

06 overlp DMA 

07 overlp FHS ( BURST ) 

08 overlp FASTEST DMA or BURST 1 

09 overlp OVERLAP ( DMA or INTR ) 
transfer byte/word indicator 

= byte / 1 = word 
transfer EOI/ENQ indicator 

= no eoi / 1 = eoi sent or searched for 
t ransfer direction 

= input / 1 = output 
transfer terminate character 

-1 = no termination character 
t ransfer count 
transfer buffer pointer 
transfer buffer maximum size 
transfer empty pointer pointer 
t ransfer fill pointer 
transfer pointer to eot procedure 
NIL no procedure 
transfer eot proc static link 
transfer eot proc parameter 
dma priority request 



inter rupt 

Drift 

burst 

fast handshake 
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30 7 
308 
309 
310 
311 
312 
313 
314 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
34 
34 1 
34 2 
34 3 
34 3 
34 3 
344 
345 
345 
345 
346 
34 7 
348 
348 
348 
349 
350 
351 
352 
353 
354 
356 
357 



21:31:46 IOLIB I0C0MBSM - ESCAPE SUPPORT 

****** ********************************* 

* EXTERNAL REFERANCES for escape 

* 

*************************************** 

REFA iodeclarations 

REFA sysglobals 

*************************************** 



*** File name: GPI0 
******************************* 



********************** 
reference the io lib v 



********* 



**************** 



********** 







* E 


scape 


code values 






******************************** 


0000 


0001 


NO CARD 


EQU 


1 


0000 


0002 


NOT HPIB 


EQ.U 


2 


coco 


0003 


NO A"CTL 


EQU 


3 


0000 


0004 


NO OVC 


EQU 


4 


coco 


0005 


NO SPACE 


EQU 


5 


0000 


0006 


NO DATA 


EQU 


6 


0000 


0007 


TFR" ERR 


EQU 


7 


oooo 


0008 


sc Susy 


EQU 


8 


oooo 


0009 


BUT BUSY 


EQU 


9 


0000 


oooa 


TCNTERR 


EQU 


10 


oooo 


OOOB 


BADTMO 


EQU 


11 


oooo 


OOOC 


NO ORV 


EQU 


12 


oooo 


OOOD 


NO DMA 


EQU 


13 


oooo 


OOOE 


NOTJORD 


EQU 


14 


0030 


OOOF 


NOT TALK 


EQU 


15 


oooo 


0010 


NOT LSTN 


EQU 


16 


oooo 


0011 


TMO ERR 


EQU 


17 


oooo 


0012 


NO S"CTL 


EQU 


18 


oooo 


0013 


BAD" RDS 


EQU 


19 


oooo 


0014 


BAD SCT 


EQU 


20 


oooo 


0015 


CRD DUN 


EQU 


21 


oooo 


0016 


EOD SEEN 


EQU 


22 


oooo 


0017 


IO_FIISC 


EQU 


23 


FFFF 


FFE6 


IOE_ERROR 


EQU 


-26 



***************************************** 
no interface 
not an hpib interface 
no active controller 
sc ( not device ) specified 
not enough space in the buffer 
not enough data left in the buffer 
tfr error 

sc is cur rent ly busy 
the buffer is busy 
bad count 
bad timeout value 
no driver 
no dma installed 
no word transfers allowed 
not addressed as talker 
not addressed as listener 
timeout 

not system controller 
bad read status / write control 
bad set/clear/test 
interface is dead 
end of data has happened 
misc. error 



io sub system error escape code 



FFFF FFBE I0E_RSLT EQU 
FFFF FFBH I0E_SC EQU 



FFFF FFFE ESC CODE EQU 
FFFF FFF6 RCVR" BLK EQU 



0000 0001 TIMER PRESENT 
FFFF FEDA SYSFLHG2 



********* 



IODECLARATIONS-66 
IODECLARATIONS-70 



SYSGLOBALS-2 
SYSGLOBALS-10 



EQU 
EQU 



1 JS 
SFFFFFEDB 



************* 



8/1/83 SYSFLAG2 BIT -- 
JS 8/1/83 



***************** 



0=>TIMER PRESENT 



******************** 
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358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
38 8 
389 
390 
391 
392 
393 
394 
39S 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 



* PASCAL DRIVER ENTRY POINTS FOR GPIO CARDS 

* 

******************************************************** 



MODULE initialization 



0000 OOOO EXTG_EXTG EQU 
00000000 4E7S RTS 



Driver initialization 



OOOO 0002 EXTG EG INIT 



00000002 20SF 

00000004 245F 

00000006 226P 0020 

0030000A 4850 

OOOOOOOC 6000 O0D4 



MOVE A 
MOVE A 
MOVE A 
PEA 
BRA 



EQU * 
(SP)*,AO 



(SP W,A2 
C_A0R(A2),A1 



(Ho. 

G INIT 



get return address 

get temp address 

get card address 

push return address back on stack 



Interrupt service routine 



OOOO 0010 EXTG_EG ISR 
00000010 205F " MOVEA . 

00000012 245F MOVEA. 

00000014 226P, 0020 MOVEA. 

00000018 4850 PEA 

0000001P, 6000 0576 BRA 






EQU * 
SPH.AO 
SP) + ,H2 

ADR(B2) , 
A"0) 



G ISR 



get return address 

get temp address 

get card address 

push return address back en stack 



HPIB DMA transfer termination routine 



OOOO 001E EXTG_EG TDMA 

0000001E 205F " MOVEA . L 

00000020 246F MOVEA. L 

00000022 226A 0020 MOVEA . L 

00000026 4850 PEA 

00000028 6000 04FE BRA 



EQU « 

SP)*,A0 

SP)*,A2 
. ADR(P,2),A1 
(A"0) 
G DMBTERM 



Read a byte 



OOOO 002C EXTG EG RDB 

0000002C 205F "" " MOVEA . L 

OO000O2E 265F MOVEA. L 

00000030 245F MOVEA. L 

00000032 226A 0020 MOVEA. L 

00000036 4850 PEA 

00000038 6100 OOEE BSR 

0000003C 1680 MOVE.B 

0000003E 4E75 RTS 



EQU « 
SP)*,A0 
SP + ,A3 
SP *,A2 

. B0R(A2), 

G RDB 
DO", (A3) 



get return address 

get temp address 

get card address 

push return address back on stack 



get return address 

get VAR address 

get temp address 

get card address 

push return address back on stack 

call read byte ( or word ) 

save character 



Write a byte 



OOOO 0040 EXTG EG UTB 
00000040 206F MOVEA. L 

00000042 101 F MOVE.B 

00000044 245F MOVEA . L 

00000046 226A 0020 MOVEA. L 

0000004A 4850 PEA 



EQU * 
SP1+.A0 
SP)*,D0 
SP1+.P2 

. A0R(A2 

(HO) 



get return address 

get value 

get temp address 

get card address 

push return address back on stack 



( this actually bumps SP by 2 
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41S 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 



0000004C 6000 OOCE 



BRH GJJTE 
Read a word 



call write byte [ or word ) 



0000 0050 EXTG_EG_RDU EQU » 

00000050 205F "" ~ MOVER. I (SP)+,BO 

00000052 265F MOVEfi.L (SP)+,A3 

00000054 245F MOVER. L (SP1+.A2 

00000056 226fi 0020 MOVER. L C RDR(A2),R1 

0000005R 4850 PER (fl~0] 

0000005C 6100 OOCfi BSR G RD6 

00000060 3680 MOVE.U DO", (A3) 

00000062 4E75 RTS 

* UJriteaword 



OOOO 0064 EXTGJGJJTU 

00000064 205F MOVER. L 

00000066 301 F MOVE.W 

00000068 245F MOVER. L 

0000006R 226R 0020 MOVER. L 

0OO00O6E 4850 PEP 

00000070 6000 OOAR BRfi 



EQU * 
SP)+,RO 
SP)+,DO 
SP)+,A2 

_ ADR(A2) 

i ff0 l 
G UTE; 



Read status 



OOOO 0074 EXTG EG RDS 



00000074 20SF 

00000076 265F 

00000078 321F 

0000007P 245F 

0000007C 226R 0020 

0000008C 4850 

00000082 6100 0204 

00000086 3680 

00000088 4E75 



MOVER. L 
MOVER. L 
MOVE.U) 
MOVER. I 
MOVER .1 
PER 
BSR 

MOVE.U 
RTS 



EQU * 
(SP)+,BO 

SPJ+,03 

SP +,D1 

SP + ,R2 
C RDR(B2) ,fil 

nk 

DC, (A3) 



get return address 

get VRR address 

get temp address 

get card address 

push return address back on stack 

call read byte ( or word ) 

save word 



get return address 

get word value 

get temp address 

get card address 

push return address back on stack 

write the byte ( or word ) 



get return address 

get VRR address 

get register number 

get temp address 

get card address 

push return address back on stack 

get status 

save status info 



Ulrite control 



OOOO 008R EXTG EG UTC EQU * 

0000008R 205F ~ MOVER. L (SP) + ,flO 

0000008C 301F MOVE.U SP +,00 

0000008E 321F MOVE.U (SP +,01 

00000090 24SF MOVER. L (SPJ + ,A2 

00000092 226A 0020 MOVER. L C ADR(A2),A1 

00000096 4850 PEfl (R"0) 

00000098 6000 024R BRR GJJTC 

* 

* Transfer 



OOOO 009C EXTG_EG_TFR 

0000009C 20SF MOVER. L 

0000009E 265F MOVER. L 

OOOOOORO 245F MOVER. L 

OOO00CR2 226R 0020 MOVER. L 

00O0O0R6 4850 PER 

OOO0OCR8 6000 02A4 BRR 



EQU * 
SP)+,«0 
SP1+.A3 
SP +,A2 

. A0R(A2) 



get return address 

get value 

get register number 

get temp address 

get card address 

push return address back on stack 

write control 



get return address 

get buffer control block address 

get temp address 

get card address 

push return address back on stack 

t ransfer 
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472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
49S 
496 
497 
498 
499 
SOO 
601 
502 
503 
504 



Set an GPIO line 





OOOO 


OOAC 


EXTG_ 


.EG. 


SET 


EQU * 




OOOOOC'HC 


205F 








" MOVER. L 


(SP)+,RO 




OOOOOCAE 


321F 








MOVE.U 


SP +,D1 




OOOOOOBO 


245F 








MOVER. L 


SP)+,A2 




OOOOO0B2 


226A 


0020 






MOVEfi.L 


C ADR(A2) 


Al 


000000B6 


4850 








PER 


Set 




000000B8 


6000 


0158 


* 
* 
* 
EXTG, 




BRR 












Clear an GPIO line 




OOOO 


OOBC 


_EG 


CLR 


EQU * 




OOOOOOBC 


205F 








" MOVER. L 


(SP)+,AO 




OOOOOOBE 


321F 








MOVE.U 


(SP +,01 




OOOOOOCO 


245F 








MOVER . L 


SP1+.A2 
C fiOR(A2) 




000000C2 


226A 


0020 






MOVEfi.L 


Al 


0000OOC6 


4850 








PER 


(HO) 
G_CLR 




OOO00OC8 


6000 


016C 






BRR 










* 
EXTG. 




Test an 


GPIO line 






OOOO 


OOCC 


_EG 


TEST 


EQU * 




oooooocc 


205F 








" MOVER. L 


(SP)+,RO 




OOOOOOCE 


266F 








MOVER. L 


SP + .B3 




OOOOOODO 


321F 








MOVE.U 


SP +,01 




00000002 


24SF 








MOVEfi.L 


SPJ + .A2 




00000004 


226A 


0020 






MOVEfi.L 


C R0R(R2) 


fll 


OOO00OD8 


4850 








PER 


G TEST 




OOOOOODA 


6100 


0178 






BSR 




OOOOOOOE 


1680 








MOVE.B 


DO", (A3] 




OOOOOOEO 


4E75 








RTS 







get return address 

get line ( this actually bumps SP by 2 

get temp address 

get card address 

push return address back on stack 

call set line 



get return add ress 

get line ( this actually bumps SP by 2 ) 

get temp address 

get card address 

push return address back on stack 

clear t he line 



get return address 

get VflR address 

get line 

get temp address 

get card address 

push return address back on stack 

read status 

save character 



( this actually bumps SP by 2 ) 
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507 

soe 

509 
510 
511 
512 
51 3 
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* GPIO INITIALIZATION 

******************************* 
0000 00E2 G_INIT EQU * 
0O000OE2 4E69 0000 G RESET JSR P1B0RT 10 
0000 

514 000000E8 35 'C FFFF MOVE. J #-1 , MP, U [M ) 

0032 

515 OOOOOOEE 1340 0001 MOVE.B DO, 1 [fill 

516 0O0OOOF2 2F3C 0000 tlOVE.L #40, -ISP) 

0028 

517 O00OOOF8 4EB9 0000 JSR DELfiY TIMER 

0000 

518 OOOOOOFE 137C 0003 MOVE.B #3,2(P1) 
0002 

RTS 



the card is not addressable 



Reset the GPIO card 

Wait f)T LESST IS microseconds 



*** File name: GPIO 



475 TH 9/17/82 
so my add r =-1 



U6E DELAY ROUTINE 40 uS 



yyyy JS 8/1/83 



519 


00000104 


4E75 


520 






520 






520 






520 






520 






520 






521 






522 






523 






524 






526 






526 


00000106 


70C0 


527 


00000108 


0829 0003 
0007 


528 


0000010E 


6702 


529 


00000110 


7001 


530 


00000112 


0811 0000 


531 


00000116 


6702 


532 


00000118 


5440 


633 


0000011H 


4E75 



********** 



****** 


************ 


*************** 


MOVEQ 


*0,D0 




BTST 


#3,7(fil ) 


PSTS -> D0<0> 


BEQ.S 


G I0FS1 




MOVEQ 


*T,DO 




BTST 


#0, (fill 
G I0FS2 


PFLG -> D0<1> 


BEQ.S 




flDDQ 


#2", DO 




RTS 







560 
56 1 

562 

56 3 
564 
565 

566 
567 
568 
569 
570 
571 
572 



574 
575 

6/6 



0000011C 611C 
0000011E 616E 
00000120 3340 0004 
00000124 1280 
00000126 4E75 



00000128 6110 
0000012A 6162 
0000012C 3029 0004 
00000130 1280 
00000132 615P, 
00000134 3029 0004 
00000138 4E75 



*************** ******#***■ 

* wtb 


**************** 








G WTB BSR.S G STSCHK 
BSR.S G UflIT 
MOVE.U 0CT,4 (fil ) 
MOVE.B DO, (fil) 
RTS 


**************** 
Check for PSTS 
Wait for FLG 
Write the word 
wt i 7,0 t rigger 


out put 
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535 
536 
537 
533 
' • 
540 
541 
542 
543 
544 
646 
545 
54 5 
54 6 
Si 7 
54 6 
54 9 
550 
65! 
552 
553 
554 
555 
656 
557 
558 
558 
558 
558 
558 
558 
559 



*** File name: GPIO 



BSR.S 

BSR.S 

MOVE.U 

MOVE.B 

BSR.S 

MOVE.U 

RTS 



G STSCHK 
G LIBIT 
4Xflll,D0 
DO, (HI) 
G UP IT 
4Xfll),D0 



Check for PSTS 

Set I/O line for input 
wti 7,0 trigger input 
Uait for data to come i 



00000140 
00000142 

"0000148 
O000014R 
0000014C 
00000150 

O0000156 
00000158 
0000015P, 
000001SC 
00000160 
00000164 
60000168 

0000016E 

00000174 
60000176 
00000178 



0826 
000" 
6616 
0636 
FEOfi 
671P, 
3 FOG 
3036 
032? 
0007 
6704 
301F 
4E75 
5166 

6oc: 

1F3C 
2F36 
0064 
0829 
0007 
6614 
4857 
4E69 

oooo 

6AEE 



0003 G_STSCHK BTST 
0001 



#3,7(A1) 



CHECK FOR PSTS OK 



yyyy JS 8/1/83 



BNE.S 
BTST 



G STSRTS IF OK THEN RETURN 
#TWER_PRESENT,SYSFLAG2 



yyyy JS 8/1/83 
TIMER EXISTS? 



yyyy JS 8/1/83 



55F0 
0003 



FFF2 

003C 
0C01 
OOOO 



GJTSO 



BEQ.S 
MOVE 

MOVE 
BTST 



BEQ.S 
MOVE 
G_STSRTS RTS 
DBRA 
BRA 



G_STS1 
G STSOB 



MOVE.B 
MOVE. I 



0003 G_STSOC BTST 

BNE.S 
PEP 
0000 JSR 



G STSOB 
DO", -(SP) 
♦22000,00 
#3,7(A1) 

G STS1 

(5~P) + ,D0 

DO.G STSO 
CRDJJOUN 
#1,-(SP) 
#100, -(SP) 

#3,7(A1) 

G STS1B 

CHECK TIMER 



yyyy JS 8/1/83 
yyyy JS 8/1/83 
yyyy JS 8/1/83 



YES, USE IT 
SAVE DO 

SETUP 100MS LOOP 
Is PSTS O.K. ? 

No : Give him 100 ms 
Yes: Restore DO 



Decrement loop counter 

If counter expires, card is down 

SETUP TIMER RECORD yyyy JS 8/1/83 

LOCP FOR 100 MS — "' " 



PSTS SET ? 

YES, RETURN 
CHECK TIMER 
SEE IF 100MS GONE 

NO, CHECK PSTS 



yyyy JS 8/1/83 

yyyy JS 8/1/83 

yyyy JS 8/1/83 

yyyy JS 8/1/83 

yyyy JS 8/1/83 

yyyy JS 8/1/83 
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578 000001 



IOLIB EXTG 
BTST 



■J 0829 0003 
0007 

579 00000186 6700 0068 8E0 

580 0000018A 5C4F G STS1B ADDO. 

581 0000018C 4E75 RTS 
582 



- GPIO DRIVERS 
#3,7(A1) LAST CHANCE TEST 



*** File name: GPIO ** 



CRD DOWN 
#6,5"P 



IF NOT PSTS, ERROR 
STRIP TIMER REC 
AND RETURN 



yyyy JS 5/2/84 

yyyy JS 5/2/84 
yyyy JS 8/1/83 
yyyy JS 8/1/83 
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*** File name: GPIO 



584 








585 








586 








587 








588 








589 


0000018E 


0811 


0000 


590 


000001S2 


662A 




591 


00000194 


222A 


002E 


592 


00000198 


671E 




593 


000001SA 


0838 
FEDO 


0001 


594 


OOOOOlFiO 


671E 




595 




0000 


01H2 


596 








597 


000001A2 


2A01 




598 


000001A4 


EF89 




599 


000001A6 


EQ8C 




600 


000001A8 


D285 




601 


000001AA 


0811 


0000 


602 


000001AE 


$60E 




603 


000001B0 


5381 




604 


000001B2 


6EF6 




605 


000001B4 


7011 




606 


000001B6 


6044 




607 








607 








607 








607 








608 


000001B8 


0811 


0000 


609 


OOOOOIBC 


67FA 




610 


000001BE 


4E7S 




611 








612 


OOOOOICO 


1F3C 


0001 


613 


000001C4 


2F01 




614 


000001C6 


223C 
016C 


0000 


615 


000001CC 


0811 


0000 


616 


000001D0 


6614 




617 


000001D2 


5381 




618 


000001D4 


6EF6 




619 


000001D6 


4857 




620 


000001D8 


4EB9 
OOOO 


0000 


621 


000001DE 


6AE6 




622 


000001E0 


0811 


0000 


623 


000001E4 


67CE 




624 


000001E6 


6C4F 




625 


oooooi[:8 


4E7S 




626 












* GPIO UAIT ROUTINE 



***********#***> 
G WAIT BTST 
BNE.S 
MOVE .L 
BEO.S 
BTST 



************* 

#0, (Ai; 

G URTS 

TIMEOUT (A2) ,D1 Dl 

G UAIT4 

#TIMER PRESENT, SVSFLAG2 GOT A TIMER? yyyy JS 8/1/83 





BEQ.S 


G UAIT2 


EQ.U 


* tm 


hulu 




MOVE . L 




LSL.L 




LSL.L 




ADD.L 


G UIAIT3 


BTST 




BNE.S 




SUBQ.L 




BGT.S 


G UAITER 


MOVEQ 




BRA.S 



G UAIT4 BTST 

BEQ.S 
GJJRTS RTS 

G UAIT2B MOVE.B 

MOVE.L 

G_UAIT3B MOVE . L 

G UAIT4B BTST 
BNE . S 
SUBO.L 
BGT 
PER 
JSR 

BPL 
BTST 
BEQ 
G UAIT5B ADDO. 
RTS 



IF CARD_READV THEN RETURN 
(TIMEOUT) 



GJJAIT2B 

#182. Dl 
D1.D5 
#7,D1 
#6,D5 
05, Dl 
*0, (Al i 
G URTS 
#T,01 

G UAIT3 
#TriO ERR, DO 
ESC ERR 



#0, (Al) 
G UAIT4 



#1,-(SP) 
Dl,- SP) 
#364,01 

#0, (All 
G UAITSB 
#1,01 
G UAIT4B 

CHECK_riMER 

G LJBIT3B 
*6",[R1> 
G WAITER 
#6\SP 



YES, SO USE IT yyyy JS 8/1/83 
TO MILLISECONDS 
182 



CONVERT Dl 

\ * 196 IS CLOSE TO 
/ 

WHILE Dl MILLISECONDS HAS NOT EXPIRED 00 
IF CARD_READY THEN RETURN 



GENERATE ESCAPE 



IF CARD_READY THEN RETURN 



SETUP TIMER RECORD 

Dl HAS MS TO UAIT 

INNER LOOP TO GET 1 MS AT 



16 MHZ -- CHECK FOR READY 
READY -- EXIT THE LOOP 
ELSE LOOP FOR 1-2 MS HERE 



yyyy JS 8/1/83 
yyyy JS 8/1/83 
yyyy JS 8/1/83 

yyyy JS 8/1/83 
yyyy JS 8/1/83 
yyyy JS 8/1/83 
yyyy JS 8/1/83 
AFTER INNER LOOP CHECK TIMER yyyy JS 8/1/83 
yyyy JS 8/1/83 

BRANCH IF NO TIMEOUT yyyy JS 8/1/83 

TIMEOUT -- LAST CHANCE yyyy JS 5/2/84 

REAL TIMEOUT IF NOT READY yyyy JS 5/2/84 

CLEAN UP STACK yyyy JS 8/1/83 

DONE yyyy JS 8/1/83 
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************* ****************************************** 

* 

* Error escapes 



62 9 

63 
631 
632 
$33 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
644 
644 
644 
645 
646 
647 
648 
649 



********** 



File name: GPIO 
************ 



000001EA 7008 
000001EC 600E 
000001EE 7015 
000001 FO 600A 
000001F2 7014 
000001 F4 6006 
OO00O1F6 7007 
0O00O1F8 6002 
000001 FA 700D 



G_SCBSY MOVEQ #SC BUSY, DO 

BRP.S ESC ERF 

CRD_D0UN MOVEQ #CRD" DLirj.DO 

BRR.S ESC FRR 

G_SC_ERR MOVEO. #BAD" SCT,DO 

BRR.S ESC ERR 

GTERRJi riOVEQ #TFR" ERR, DO 

BRR.S ESC E"RR 

GTERRJ) MOVEO #NO_DMfl,00 

* BRR.S ESC_ERR 



**************************** 
sc is busy 



***************** 



CfiRD IS DOUN 

bad set/clear/test 

bad transfer specification 

DMA not installed 



000001FC 48C0 ESC ERR 

00000 1FE 2B40 FFBE 
00000202 102A 002D 
00000206 2B40 FFBR 
0000020R 3B7C FFE6 

FFFE 
00000210 4E4A 



EXT.L DO assume errors<128 

nOVE.L DO,IOE RSLT(A5) save ioe result 

nOVE.B 10 SC(fl~2),D0 

MOVE.L DO, IOE SC(A5) save io s.c. 

MOVE.U #I0E_El?R0R,ESC_C0DE(A5) 

TRAP #10 escape 
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653 
654 
655 
656 
65 7 
668 
659 
660 
661 
66? 
663 
664 
665 
666 
667 
667 



*** File name: GPIO *** 



************ 



******* 



LINE DEFINITIONS 






STIO 


1 


STI1 


? 


EIR 


3 


PSTS 


4 


CTLO 


5 


CTL1 


6 


READY 


7 


PCTL 



********* 



****************** 



669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
664 
684 
685 
686 
687 



690 
691 
692 
693 
694 
696 
696 
697 



699 
699 
700 
701 

702 

703 



00000212 C23C 0007 G SET 
00000216 B23C 0005 
0000021A 6714 
0000021C B23C 0006 
00000220 6DD0 
00000222 923C 0005 
00000226 8329 0007 
0000022A 832R 002C 
000OO22E 4E75 
00000230 1341 0000 GSET 1 
00000234 4E7S 



SET LINE 



******* 
AND.B 
CMP.B 
BEQ.S 
CHP.B 
BLT.S 
SUB.B 
OR.B 
OR.B 
RTS 

MOVE.B Dl 
RTS 



#7,D1 

#5.D1 

GSET 1 

»6,DT 

G SC ERR 

#5",Dr 

01,7(A1 



************** 



*********** ********* 

MASK TO RIGHT SIZE 
' HANDLE SET PCTL 



CAN ONLY SET 
/ CTLO/1 
GET INTO 1/2 FORM 
SET CTLO or 1 



D1,EIRB_0FF(A2) SAVE IN EIRB 
0(A1) 



************************ 



CLEAR LINE 



****************** 



00000236 C23C O007 
0000023A B23C 0006 
0000023E 60B2 
00000240 102A 002C 
00000244 923C 0006 
00000248 0380 
0000024A 1540 002C 
0000024E 1340 0007 
00000252 4E75 



******* 



************************************ 

AND.B »7,D1 MASK TO RIGHT SIZE 

CflP.B 16 Dl \ CRN ONLY CLEAR 

BLT.S G SC_ERR / CTLO/l 

MOVE.B ETRB 0FF(R2),D0 GET OLD CTLO/1 

SUB.B #6,DT GET INTO 0/1 FORM 

BCLR Dl.DO CLEAR COPY 

MOVE.B DO, EIRB 0FFIR2) SAVE IN EIRB 

MOVE.B 00,7(AlT WRITE TO CARD 

RTS 



******* 



********** 



****************** 



TEST LINE 
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File name: GPIO **« 



704 








****************************** 


70S 


000002S4 


4240 




GJTEST 


CLR.U 


DO 


706 


000002S6 


C23C 


0007 




ANO.B 


#7,D1 


707 


000002SB 


B23C 


0007 




CMP.B 


#7,D1 


708 


0000025E 


6792 






BEQ 


G SC ERR 


709 


00000260 


823C 


O0O3 




CMP.B 


«3",DT 


710 


00000264 


6E0H 






BGT.S 


GTST2 


711 


00000266 


0329 


0007 


GTST1 


BTST 


D1,7(A1) 
GTST RTS 


712 


0000026B 


6702 




GTST CHK 


BEQ.S 


713 


0000028C 


7001 




GTST SET 


MOVEQ 


»1,D0" 


714 


0000026E 


4E7S 




GTST_RTS 


RTS 




71S 














715 














716 


00000270 


923C 


0004 


GTST2 


SUB.B 


*4,D1 


717 


00000274 


B23C 


O0O1 




CMP.B 


#1 , Dl 


718 


00000278 


6E06 






BGT.S 


GTST4 


719 


0000027B 


032H 


O02C 


GTST3 


BTST 


Dl.EIRB 0FF(A2 


720 


0000027E 


60Efl 






BRR.S 


GTST_CHK" 


721 














721 














722 


0000021:0 


0829 

ooco 


0000 


GTST4 


BTST 


#0,0(R1) 


723 


00000286 


60E2 






BRfi.S 


GTST_CHK 



set FALSE indication 
mask to the right size 
\ CHECK FOR PCTL 
/ AND GIVE ERROR 



TEST STO/l,EIR,or psts 
if clear then RTS 

else return trite indication 



TEST CTLO/1 

GO TO COMMON CHECK 



CHECK READY LINE 



725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
765 
755 
756 
757 
758 
758 
759 
760 
761 
762 
763 
764 
765 
765 
765 
766 
767 
768 
769 
770 
771 
772 
773 
773 
773 
774 
775 



*************************** 



»*« File name: GPIO *»» 
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****************************** 

« G_RDS 

* 

» READ STATUS 

* 

* PASCAL ROUTINE 

* 

******************************************************************************** 
0000 0002 G_ROUTINE EQU 2 
0000 0001 G_TEMP EQU 1 
0000 OOOO G CRDREG EQU 



00000288 41FA 004E G_RDS 

0000028C 0241 

0OOO028E 823C OOOC 

00000292 6C18 

00000294 3030 1000 

00000298 6B12 

000002SH 803C 0001 



trn 



0000029E 6D12 

000002PO E048 

000002P2 671A 

000002A4 5340 

0OO002F6 671C 

000002B8 5340 

000002BP. 6722 



00O002BC 7013 RDS ERR 
000002BE 6000 FF4C 



LEA G RDSTBL.BO 

P.OD.U OT.Dl 

CMP.B #G RT SI2.D1 

BGE.S RDS ER"R 

MOVE.U 0(A0",D1),D0 

BMI .S RDS ERR 

CMP.B #G TEMP, DO 

BE8.S GR~TEMP 

BLT.S GR_CARO 

LSR #8. DO 

BEQ.S G RDS DI 

SUBQ #T.DO" 

BEQ..S G RDS RDV 

SUBQ #T.DO 

BEO.S G RDS PST 

BRA.S RffS ER"R 



MOVEQ *BBD RDS, DO 
BRA ESC„E"RR 



get pointer to lookup table 

multiply the rds register by 2 

\ check for out of bounds 

/ 

get the table entry 

if the entry is then error 



get the routine offset 
status rtn 3 - data in 



status 4 - ready 



status 5 - peripheral status 
there are no more status 'routines' 



retrieve temps as words 

trn GR_TEMP LSR #8, DO 

tm MOVE.U 0(A2,D0) ,D0 

tm RTS 



bad read status 



get temp offset 
get the value 



retrieve card registers as bytes 



000002B2 E048 GR CARD LSR #8, DO 

O0O002B4 1031 OOOO GR CARD1 MOVE.B 0(A1,DO),DO 

000002B8 0240 OOFF GREGEXIT ANDI.U *$00FF,DO 

000002BC 4E7S RTS 



get the card offset 
get the value 
mask off garbage 
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*** File name: GPIO 


... 


776 






» 






777 


000002BE 


0029 0004 


G RD5 CI MOVE.U 4(B1) ,D0 


get data lines 




778 
779 
779 


000002C2 


4E75 


RTS 
















779 












780 


000002C4 


1029 0000 


G RD3 ROY MOVE.B 0(R1),D0 


get ready line 




781 


000002C8 


C200 0001 


HNDI.B #$01, DO 
BRP. GREGEXIT 


mask to 1 bit 




782 


000002CC 


f OEfi 


and get out 




783 












783 












783 












784 


000002CE 


1029 0007 


G RDS PST MOVE.B 7(fll),D0 


get status 




785 


000002D2 


C200 OOOF 


P.NDI .B #$OF,D0 


mask to 4 bits 




786 


00000206 


60E0 


BRP, GREGEXIT 


and get out 




787 












787 












787 












787 












788 




0000 02D8 


G RDSTBU EQU * 






789 


00000208 


01 


DC.B 1,G_CRDREG 


status - card reg - card id 




789 


000002D9 


00 








790 


000002DH 


03 


DC.B 3,G_CRDREG 


status 1 - card reg 3 - intr/dma status 




790 


000002DB 


00 








791 


000002DC 


09 


DC.B 9,G_R0UTINE 


status 2 - not implemented 




791 


000002DD 


02 








792 


000002DE 


CO 


DC.B 0,G_ROLITINE 


stat us 3 - data in 




792 


000002DF 


02 








793 


000002EO 


CI 


DC.B 1,G_R0UTINE 


stat us 4 - ready line 




793 


000002E1 


2 








794 


000002E2 


02 


DC.B 2,G_R0UTINE 


status 5 - peripneral status 




794 


000002E3 


02 








795 




0000 02E4 


G RT END EQU * 






796 




0000 OOOC 


G_RT„SIZ EQU G_RT_END-G_RDSTBL 


size of table 




PPGE 
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*** File name: GPIO 


*** 


798 






**************X**********X**********X 


a****************************************** 




799 






* 






800 






* G UTC 






801 






* 






802 






* URITE CONTROL 






803 






* 






804 






* ENTRY: DO .U = PPRPMETER 






805 






* 






806 






*x******************#***************# 


A*********************************** ******* 




807 


000002E4 


B27C 0006 


G UTC CMP.U #6,01 


\ 




808 


000002E8 


6CC2 


BGE.S RDS ERR 


/ check wtc limits 




809 


000002EP. 


4SC1 


EXT.L 01 " 






810 


000002EC 


D281 


PDD.L D1,D1 






811 

812 
812 


000002EE 


4EFB 1002 


JMP GUTCTBL(Dl) 
















813 


000002F2 


600H 


GUTCTBL BRH.S G UTC RST 


CONTROL - DO fl RESET 




814 


000002F4 


f .)0C 


BRB.S G SET PCT 


CONTROL 1 - set pctl 




815 


O00002F6 


6)10 


BRH.S G SET CTL 


CONTROL 2 : set control lines 




816 


OO00O2F8 


022 


BRH.S G DflTff 


CONTROL 3 - write data out 




817 


000002FH 


6)B0 


BRH.S RD"S ERR" 


CONTROL 4 : not used 




818 
819 
819 


O00002FC 


6024 


BRP . S G_ETR 


CONTROL 5 : enable intrpts 














819 












820 


000002FE 


6000 FDE2 


G UTC RST BRP G INIT 


reset card 




821 












821 












822 


00000302 


1340 0000 


G SET PCT MOVE.B D0,0(P1) 


set pctl line SPR836 TM 8/9/82 




823 


00000306 


4E7S 


" ~ RTS 






824 












824 












825 


00000308 


1340 0007 


G SET CTL MOVE.B D0,7(P1 ) 


set ctl and 1 




826 


0000030C 


C03C 0003 


RND.B #3, DO 

HNDI.B #$FC,EIRB_0FF(R2) 


\ save CTLO/1 508 TM 9/17/82 
CLEHR CTLO/1 #69 (3.0) JUS 4/26/84 




827 


00000310 


022R OOFC 

002C 

8 120 002C 




828 


00000316 


OR.B DO.EIRB 0FF(P2) 


/ in EIR byte 508 TM 9/17/82 




829 


OO00031A 


4E75 


RTS 






830 


0000031C 


3340 0004 


G DPTP MOVE.U D0,4(fll ) 


write 16 bit data 




831 


00000320 


4E75 


~ RTS 




1-234 



23 [3.0] 12/26/84 21:31:49 I0LIB EXTG - GPIO DRIVERS 



833 
834 
835 
836 
837 
838 
839 

840 
841 
842 
843 
844 
845 
846 

847 
848 



00000322 
00000326 

OOO0032: 
OOO0032E 
00000332 
00O0033S 
00000333 
0000033: 
00000335 

00000344 
00000346 



1540 
4EB9 
OOCO 
6 616 
134 
OPCO 
B60O 
4S30 
6C08 
13 7C 
0003 
4E7S 
137C 
0003 
4E7S 



**************** 
002C G„EIR nOVE.B 

0000 JSP, 



BNE.S 

MOVE.B 

BTST 

BNE 

TST.8 

BGE.S 

nove.B 



0007 
0005 
FQRA 



G_RTS 
0000 G_RTS1 



RTS 
HOVE.B 



********** 


***** 


**************** 


DO.EIRB 0FF(R2) 




ITXFR 






G RTS 




if tfr then don't 


DfJ,7(fil) 




Update CTL1 :CTLO 


#5, DO 
G RESET 




Check RESET bit 






D0~ 






G RTS1 






#180, 3 ( PI 1 ] 







*** File name: GPIO *** 



475 TM 9/17/82 



#0,3(R1) 



PRGE 24 [3.0] 12/26/84 21:31:49 IOLIB EXTG - TRANSFER 



BSR G UIBIT 

nOVE.U) #5,4 (HI ] 

TST.B TEND 0FF(PI3) 

BNE GTERR" B 

MOVE.L TCNT_Q"FF(R3),D0 

CLR.U Dl 

ttOVE.B TUSR 0FF(R3),D1 

flDD.UI D1,DT 

JSR TESTOMfl 

BEQ.S G NOOMfl 
flODI.U #?0,D1 
LER G TBL.RO 

RDDR.U 0TP0,6l),R0 
JMP (AO) 

TRANSFER JUMP TABLE 



852 








*» 


***** 


853 








* 




854 








* 


GPIO 


855 








* 




856 








** 


***** 


857 


0000034E 


4EB9 

0000 


0000 


G_ 


JFR 


858 


00000354 


6100 


FE38 






859 


00000358 


337C 
0004 


0000 






860 


0000035E 


4A2B 


OOOB 






861 


00000362 


6600 


FE92 






862 


00000366 


202E 


0010 






863 


0000036R 


4241 








864 


0OO0036C 


122B 


0009 






865 


00000370 


D241 








866 


00000372 


4EB9 
OOOC 


0000 






867 


00000378 


6704 








868 


0000037R 


0641 


0014 






869 


0000037E 


41 FA 


0008 


G. 


NODMA 


870 


00000382 


DOFO 


1OO0 






871 


00000386 


4ED0 








872 








* 




873 








* 




874 








* 




875 








* 




876 


00000388 


FE6E 




G. 


TBL 


877 


OOOO038B 


FE72 








878 


0000038C 


0OF4 








879 


0000038E 


0OF4 








880 


00000390 


FE6E 








881 








* 




882 


00000392 


OOCO 








883 


00000394 


FE72 








884 


00000396 


00C8 








885 


00000398 


00C8 








886 


0000039H 


OOCO 








887 








* 




888 


0000039C 


FE6E 








889 


0000039E 


0028 








890 


000003BO 


0OF4 








891 


0OO003B2 


0028 








892 


00O003B4 


FE6E 








893 








* 




894 


000003R6 


OOCO 








895 


000003A8 


0028 








896 


000003RR 


00C8 








897 


000003RC 


0028 








898 


ooooosre: 


0028 









********* 



********** 
wait for tfr to finish 



Uait for FLG 
CLERR DRTA REG 



*** File name: GPIO 



475 TM 9/17/82 



xxx TM 10/6/82 
SPR12724 JS 5/3/84 



\ end NOT HLLOUED 

GET COUNT 
\ 
\ COMPUTE OFFSET INTO JUMP TABLE 

\ 

/ BASED ON TFR 475 Ttl 9/17/82 



/ 



TYPE AND DMA PRESENCE 



INDEXED JUMP THRU TABLE 



DC.U 


GTERR B-G TBL 


serial 


interrupt 


DC.U 


GTERR D-G TBL 


serial 


dm a 


DC.U 


G T FHS-G TBL 


serial 


fhs 


DC.U 


G"T"FHS-G TBL 


serial 


fastest 


DC.U 


GTER\_B-G_TBL 
G T INT-G TBL 


serial 


overlap 


DC.U 


overlap 


interrupt 


DC.U 


GTER"R D-G TBL 


overlap 


dma 


DC.U 


G T B3T-G TBL 


overlap 


fhs 


DC.U 


G"T - BST-G"TBL 


overlap 


fastest 


DC.U 


G_T_INT-G_TBL 
GTERR B-G TBL 


overlap 


overlap 


DC.U 


serial 


interrupt 


DC.U 


G T ORA-G TBL 


serial 


dma 


DC.U 


G T _ FHS-G TBL 


serial 


fhs 


DC.U 


G T DMA-G TBL 


serial 


fastest 


DC.U 


GTER"R._B-G_TBL 
G T INT-G TBu 


serial 


overlap 


DC.U 


overlap 


interrupt 


DC.U 


G T"DMR-G TBl 


overlap 


dma 


DC.U 


G T BST-G TBL 


overlap 


fhs 


DC.U 


G T"DMR-G TBl 


overlap 


fastest 


DC.U 


G T _ DMR-G TBl 


overlap 


overlap 



DMA is not installed or available 



DMR is installed 
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[3.0] 12/26/84 21:31:49 IOLIB EXTG 



File name: GPIO 



9CC 








* 




901 








* 




902 








* 




903 


00000380 


BOBC 

OCOl 


0000 


G 


JJ3MA 


904 


000003B6 


6700 


0090 






905 


000003BA 


177C 

Of 07 


0002 






906 


000003CO 


4MB 


0000 






907 


000003C4 


6E36 








908 








.* 




909 








* 




910 








* 




911 




0000 


03C6 


G_ 


_TID 


912 


000003C6 


5380 








913 


000003C8 


4EB9 
OOOO 


0000 






914 


000003CE 


0829 

0003 


0003 






915 


000003D4 


6704 








916 


000003D6 


0C42 


0008 






917 


OO0003DA 


3882 




G. 


.DM01 


918 


OO0003DC 


6100 


006E 






919 


O00003EO 


4P69 


0004 






920 


000003E4 


1230 








921 


O00003E6 


137C 
0002 


0001 






922 


000003EC 


4A2B 


OOOfl 






923 


000003FO 


6704 








924 


000003F2 


D67C 


0004 






925 


000003F6 


1343 


0003 


G 


DMA3 


926 








* 




927 


OO00O3FH 


602C 








928 








* 




929 








* 




930 








* 




931 




0000 


03FC 


G 


TOD 


932 


000003FC 


4FB9 
0000 


0000 


G~_ 


DMAOUT 


933 


00000402 


0829 

0003 


0003 






934 


00000408 


67 04 








935 


0000040A 


0042 


O008 






936 


0000040E 


3882 




G. 


0MP4 


937 


00000410 


6100 


002A 






938 


00000414 


137C 
0002 


0001 






939 


0000041A 


4P2B 


oooa 






94 


0000041E 


6704 








941 


00000420 


0043 


0004 






94 2 


00000424 


1343 


0003 


G 


DMF16 


94 3 








* 




944 








* 




945 








* 




946 


00000428 


182B 


0009 


G_ 


DMAJJ 


94 7 


0000042C 


B83C 


0005 






94 8 


00000430 


6C38 









Transfer DMA 
CMP. L #1,D0 



\ USE INTR IF C0UNT=1 ON OMFI 



BEQ G T INT 

MOVE.B #TT_DMA,TACT_0FF(B3) set tfr type to DMA 



/ 



TS1 .B TDIR 0FF(B3) 
BGT.S G_TOU 



T ransfe 


r Input Oma: 


EQU 

SUBQ.L 

JSR 


* 

• 1,00 
GETDMB 


BTST 


#3,3(01) 


BEQ.S 

ORI .U 

MOVE 

BSR 

TST 

MOVE.B 

MOVE.B 


G DMB1 
#8",D2 
02, (PI4) 
GO STBSV 
4(ffl) 
DO, (HI) 
#l,2(fll) 


TST.B 
BEQ.S 
ADD 
MOVE.B 


T BUI 0FF(A3) 
G DMFT3 
#?",D3 
D3,3(B1] 



BRfl.S G_DMB_U 
Transfer Output Oma: 



EQL 
JSR 

BTST 

BEQ.S 

ORI.U 

MOVE 

BSR 

MOVE.B 

TST.B 

BEQ.S 
ORI.U 
MOVE.B 



#3,3(A1) 

G DMA4 
#S",D2 
D2, (A4) 
GD_STBSV 
#1 ,2(A1) 

T_BU 0FF(P3 1 
G OMfi"S 
#4", 03 
D3,3(f)l) 



\ test for transfer direction 



- Set up DMA for Input 

Tfr N-l bytes via DMA 47S TM 9/17/82 

Is BURST bit set on GPIO card ? 

No 

Yes: Set BURST bit in DMA arm byte 

Arm DMA 

Set buffer busy (Card is still not triggered) 

rdi 4 

wti 7,0 (trigger card) 

RDYEN = (so transfers won't interrupt) 



MOVE.B TUSR 0FF(A3),04 
CMP.B #5,D4~ 
BGE.S G DMA U2 



Byte (0) or Uord ;i) transfers ? 



Tell the GPIO what channel he's got and 

watch the shit hit the fan 
DONE 



Get a DMA channel 47S TM 9/17/82 

Is Burst mode enabled (1) 

Yes: Set the Burst bit in DMA arm byte 

Arm the DMA channel 

Set the buffer busy 

Disable the transfer interrupt mechanism 

Byte (1) or Uord I'O) transfers ? 

Byte: Don't set the WORD bit on GPIO card 

WORD: Set the WORD bit 

Tell the GPIO what channel he's got, etc. 

IF SERIAL THEN IJAIT FOR COMPLETION 

\ 

IS THE TRANSFER OVERLAP ? 



PAGE 

949 

950 
9S1 
952 
952 
952 
9S2 
952 
953 
954 



26 [3.0] 12/26/84 21:31:49 IOLIB EXTG - TRANSFER 

00000432 0C2B OOFF G DMA Ut CMPI.B #255, T SC 0FF(A3) 

0005 
00000438 66F8 BNE.S G DMA Ul 

0000043A 4E75 G_DMA_UI2 RTS 



0000043C 49FP FBEO GD STBSV LEA 

00000440 4EB9 0000 JSR 

0000 

00000446 4E75 RTS 



EXTG EG TDMA,04 
DMA S~TBS~Y 



*** File name: 

IF NOT THEN UBIT TILL DONE 



\ save g_dmaterm 
/ in dma temps 



•outine 

475 TM 9/17/82 



475 TM 9/17/82 



1-236 



PAGE 27 


[3.0] 12/26/81 


21:31:49 IOLIB EXTG - TRBNSFER 


*«« Fj 


le name: GPIO 


«*> 


957 








* 










9S8 








* 


Transfer INTERRUPT 








959 








* 










960 


00000448 


177C 
0007 


O0O1 


G_T_INT 


MOVE.B *TT_INT,TfiCT_0FF(R3) 


set tfr type to INTERRUPT 






961 


0000044E 


6006 






BRB.S G_T_BIC 


go to corrmon code 






962 


















962 


















962 


















963 








* 










964 








* 


Transfer BURST ( intr on 1st 


byte FHS on rest ) 






96S 








* 










966 


00000450 


177C 
0007 


0003 


G_T_BST 


MOVE.B #TT_BURST,TACT_0FF(A3) 


set tfr type to BURST 






967 








* 


BRB.S G_T_BIC 


go to common code 






968 


















968 


















968 


















969 








* 










970 








* 


common interrupt &r)0 burst Co 


de 






971 








* 










972 


00000456 


4EB9 
0000 


0000 


G_T_BIC 


JSR STBSY 


SET BUFFER BUSY, ETC 






973 


0000045C 


4B2B 


OOOD 




TST.B TDIR 0FF(B3) 


\ test for transfer direction 






974 


00000460 


6E06 






BGT.S G_TOT 






975 








* 










976 








* 


Transfer Input Interrupt or 1 


ransfer Input Burst 






977 








* 










978 




0000 


0462 


G Til 


EuU * 








979 


00000462 


4B69 


0004 


G_INT_I 


TST 4(01) 
MOVE.B DO, (fll) 


Dummy read to set I/O line to I 
wti 7,0 (trigger input) 






980 


00000466 


1280 










981 








* 










982 








* 


Transfer Output Interrupt or 


Transfer Output Burst 






983 








* 










984 




0000 


0468 


G TOI 


EQU » 








985 


00000468 


137C 
0002 
102H 


0003 


G_INT_0 


MOVE.B #3,2(fll) 


Allow I/O to cause an interrupt 






936 


0000046E 


002C 




MOVE.B EIRB 0FF(A2) ,D0 


GET CTLO/1 






987 


00000472 


0000 


O080 




ORI.B #$807D0 








988 


00000476 


6100 


FEB6 




BSR G UTIS 


Enable interrupts 






989 


0000047B 


60AC 






BRB G DMA U 


and wait if necessary 






PAGE 28 


[3.0] 12/26/84 


21:31:49 IOLIB EXTG - TRBNSFER 


*** File name: GPIO 


»«. 


991 








. 










992 








X 


Transfer FHS 








993 








* 










994 


0000047C 


177C 

0007 


0004 


G_T_FHS 


MOVE.B #TT_FHS,TACT_0FF(S3) 


set tfr type to FHS 






995 


00000482 


4EB9 
0000 


0000 




JSR STBSY 


set buffer busy 475 Ttl 


9/17/82 




996 


00000488 


4EB9 
0000 


0000 




JSR ITXFR 


get all pointers 475 TM 


9/17/82 




997 


0000048E 


4B2B 


OOOD 




TST.B TDIR 0FF(B3) 


\ test for transfer direction 






998 


00000492 


6E54 






BGT.S G_TFO" 


/ 






999 








* 










1000 








* 


Transfer FHS in 








1001 








* 










1002 


00000494 


4B69 


0C04 


G_TFI 


TST 4(01) 
MOVE.B DO, (fll) 


to set I/O line to I 507 TM 


9/17/82 




1003 


00000498 


1280 






trigger input 507 TM 


9/17/82 




1004 


0000049A 


7000 






MOVEQ #0.D0 


clear upper part of data in 
GET FILL POINTER 






1005 


0000049C 


206B 


0020 




MOVEB.L TFIL CFF(A3),A0 






1006 


000004BO 


4B2B 


OOOB 




TST.B T BU OFF A3) 


GET B/U INDICATIONS 






1007 


00000404 


661C 






BNE.S G~TFT"U 








1008 


000004A6 


6100 


FCE6 


G TFIB 


BSR G~UAIT 








1009 


000004RB 


1029 


0005 


G_TFIB1 


MOVE.B 5lBl),D0 
rlOVE.B DO,(AC) + 


DO.L = Byte received 






1010 


000004BE 


10C0 












1011 


000004BO 


5383 






SUBQ.L #1.D3 
BLE.S GTFI TRM 


Decrement transfer counter 






1012 


00O004B2 


6F24 






If buffer full; exit fast handshake 




1013 


000004B4 


B440 






CMP.UI D0.D2" 
BEQ.S GTFI TRM 


If input character matches end 


character 




1014 


000004B6 


6720 






then we're done 






1015 


000004B8 


1280 






MOVE.B DO, (Si) 


wti 7,0 (Trigger next input) 






1016 


000004BB 


0811 


0000 


G_TFIB2 


BTST #0, fll 
BNE G TFIBl 


PFLG = 1 ? 






1017 


000004BE 


66EB 






Yes: Get next byte 






1018 


O0O004CO 


60F8 






BRA GITFIB2 


No: Keep checking 






1019 


















1019 


















1019 


















1020 


000004C2 


6100 


FCCB 


G TFIU 


BSR G WAIT 








1021 


000004C6 


30E9 


0004 


GlTFIUl 


MOVE 4TB1),(A0)* 
SU8Q.L ftl.D3 


Copy word from GPIO to buffer 






1022 


0OO004CB 


5383 






Decrement transfer counter 






1023 


0OO004CC 


6F0A 






BLE.S GTFI TRM 


If D3 = we' re done 






1024 


0OO004CE 


1280 






MOVE.B DO,(fl"l) 


wti 7,0 (Trigger next input) 






1025 


OOO004DO 


0811 


OOOO 


G_TFIU2 


BTST *0, Rl 


PFLG = 1 






1026 


00000404 


66F0 






BNE G TFIU1 








1027 


0OO004D6 


60F8 






BRP. G TFIU2 


No : Keep checking 






1028 


















1028 


















1028 


















1029 








* 










1030 








« FHS TRBNSFER TERMINATION 








1031 








* 










1032 


000004D8 


2743 


0010 


GTFI_TRH 


MOVE.L D3.TCNT 0FF(B3) 


D3 has bytes not finished 






1033 


OOO004DC 


2743 


0020 




MOVE.L AO.TFIL 0FF(03) 
JSR STCLR 


update fill pointer 

MARK BUFFER FINISHED 475 TM 






1034 


OOO004E0 


4EB9 
0000 
4E75 


OOOO 


GTFO_TRM 


9/17/82 




1035 


000004E6 






RTS 








1036 


















1036 


















1036 


















1037 








* 








1-237 



PRGE 

1038 
1039 

104 
1041 
104 2 
1043 
1044 
1045 
1046 
104 7 
1048 
1049 
1050 
1051 
1051 
1051 
1052 
1053 
1054 
1055 
1056 
10S7 
1058 
1059 
1060 
1060 
1060 
1061 
1062 
1063 
1064 
1064 
1064 
1064 



[3.0] 12/26/84 21:31:49 IOLIB EXTG 



File name: GPIO 



000004E8 2C6B OC1C 

000004EC 402B OOOA 

000004FO 6616 

000004F2 6100 FC9A G_TFOB 

000004F6 1358 0005 G TFOB1 

000004FR 1280 

000004FC 6383 

000004FE 6F1E 

00000500 0811 0000 G TFOE2 

00000504 66FO 

00000506 60F8 



* Transfer FHS out 
G_TFO MOVER. L TEMP_0FF(R3) ,R0 



G_TFOUI 
G_TFOLU 



00000508 6100 FC84 

0000050C 3358 0004 

00000510 1280 

00000S12 5383 

00000S14 6F08 

00000516 0811 0000 G TFOU2 

0000051A 66F0 

00000S1C 60F8 



0000051E 2748 001C 
00000522 42HB 0010 
00000526 60B8 



TST.B 
BNE.S 
BSR 

MOVE.B 

MOVE.B 

SUBQ.L 

BLE.S 

BTST 

BNE 

BRH 



BSR 

MOVE.U 

MOVE.B 

SUBO.L 

BLE.S 

BTST 

BNE 

BRA 



MOVE.L 
CLR.L 

BRA.S 



_BU 0FF(R3) 
G_TF0"U 
G URIT 
(R0)+,5(A1) 
DO, (Al) 
»1,D3 
G TF03 
#5, (Al) 
G_TF0B1 
G TF0B2 



G URIT 
(fT0)*,4(Al) 
DO, (fll) 
#1,D3 
G TF03 



#5 (fil) 
G TF0U1 



BO,TEMP 0FF(fl3) 
TCNT 0FF(R3) 
GTFO TRM 



GET EMPTv POINTER 
GET B/U INDICATIONS 

Wait for card ready 

Copy byte from buffer to GPIO 

wti 7,0 (Trigger next output) 

Decrement transfer count 

If D3 = C then we' re done 

PFLG = 1 ? 

Yes: Get next byte 

No: Keep checking 



wait for jard ready 

Copy word from buffer to GPIO 

wti 7,0 (Trigger next output) 

Decrement transfer count 

IF D3 = then we're done 

PFLG = 1 ? 

Yes: Get next byte 

No: Keep checking 



SAVE EMPTY PTR 
CLEAR COUNT 
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1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 



1077 

1078 
1079 
1080 
1081 
1082 
1083 
1084 

1085 
1086 
1087 
1088 
1089 
1090 

1091 
1092 
1092 
1092 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 

1101 

1102 

1103 



9 IOLIB EXTG - TRANSFER 

************************ 

UNDMA 



*** File name: GPIO **» 






Release the DMA channel associated with the GPIO 
card when the transfer is done. 



0000 0528 G_DMRTERM 

00000528 007C 2700 G UNDMA ORI 

0000052C 4FB9 0000 JSR 

0000 

00000532 4E89 0000 JSR 

OOOO 

00000538 6756 BEQ.S 

OO0O053A 4A2B OOOD TST.B 

0000053E 672R BEQ.S 

00000540 1C2R 002C UNOUTPUT MOVE.B 

00000S44 C07C 000F AND 

00000548 6100 F0E4 BSR 
0000054C 337C 0300 

0002 

00000552 4A2B OOOA TST.B 
00000556 6702 BEQ.S 

00000553 D683 ADD . L 
OOOOOSSA D7AB O01C HNOUT2 ADD.L 
0000055E 42AB 0010 CLR.L 
00000562 4EB9 0000 JSR 

OOOO 

00000568 4E75 RTS 



ECU « 
#$2700, SR 
DROPQMA 

ITXFR 

G UNDEND 

TfjIR 0FF(R3) 

UNINPUT 

EIRB 0FF(R2),D0 

#»F,no 

G UTI5 



************************ 



MOVE.U #J300, 2(A1) 



T BU 0FF(A3) 

UROUT2 

D3.D3 

D3,TEMP 0FF(A3) 

TCNT 0FF(fi3) 

STCLR" 



OO00056R 202B 0010 UNINPUT MOVE. 
» tm MOVE. 

0000056E 9084 SUB.L 

00000570 4A2B OOOR TST.B 

00000574 6702 BEQ.S 

O0000S76 D080 RDD . L 

00000578 D1AB 0020 UNIN2 RDD . L 

0000057C 277C OOOO MOVE. 

0001 0010 

00000584 337C 0380 MOVE. I 

0002 

OO000S8A 177C 0001 MOVE. I 

0007 



TCNT 0FF(R3),D0 

04, TCNT OFF(M) 

D4.D0 

T BU 0FF(H3) 

UfllNZ 

DO, DO 

DO.TFIL 0FF(A3) 

#1,TCNT_0FF(R3) 

#$380,2(01) 

#TT_INT,THCT_0FF(R3) 



Disable all other interrupts 

Release the OMA channel 475 TM 9/17/82 

See if buf was active 475 TM 9/17/82 

No: this should never happen 

Uas it an Input (0) or Output (1) ? 



Restore REDYN and EIREN 

Uas it a Byte (1) or Uord (0) 

Uord: Double the count 
UPDATE EMPTY POINTER 
CLEAR COUNT 
Unbusy the buffer 



475 TM 9/17/82 



DO = Transfer count 

SET COUNT TO REMAINING BYTES 

GET RCTURL BYTES TFR'D 

Uas it a Byte (1) or Uord (0) t f r ? 

Uord: Double the count 

UPDATE FILL POINTER 

Last byte is received via interrupt 

Allow it to cause an interrupt 

change tfr type 



00000590 4E75 



G_UNDEND RTS 
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PfiGE 31 


[3.0] 12/26/84 


21:31:49 IOL 


IB EXTG 


- INTERRUPT SERVICE 


ROUTINE »** File name: GPIO 


*** 


1106 








******** 


******** 


******************** 


******************* 




1107 








* 










1108 








* GPIO 


INTERRUPT SERVICE ROUTINE 






1109 








* 










1110 








******** 


******** 


******************** 


******************* 




1111 




0000 


0592 


G ISR 


EQU 


* 






1112 


00000592 


4EB9 
0000 


0000 


G_ISR1 


ISR 


ITXFR 


Transfer In progress? 475 TM 9/17/82 




1113 


00000598 


S614 






BNE.S 


G RTFR 






1114 


0000059H 


102R 


002C 


G_ISR2 


MOVE.B 


ETRB 0FF(R2),00 


NO TFR IN PROGRESS 




111S 


00000SSE 


C07C 


OOOF 




AND 


#$F,D~0 
G 1JTIS 






1116 


00O0OSR2 


6100 


FD8P, 




BSR 






1117 


00000SA6 


4EB9 
0000 


0000 




JSR 


LffGINT 


log the interrupt 475 TM 9/17/82 




1118 


000005RC 


4E7S 




GISR_ENO 


RTS 








1119 


















1119 


















1119 


















1119 


















1120 


000005RE 


1029 


0003 


G_AT FR 


MOVE .B 


3(fll) ,D0 
#3, DO 
G TRBORT 


Put DMA channel for GPIO in 00 




1121 


000005B2 


C07C 


0003 




AND 






1122 


000005B6 


6 64 8 






BNE.S 


If DMA in progress: Abort & update pointers 




1123 


OOO00SB8 


B23C 


0004 




CMP.B 


#TT FHS.D1 
G Tfl~BORT 


\ If FHS then exit 




1124 


OOOOOSBC 


6742 






BEO.S 


/ 




112S 


000005BE 


923C 


0001 


G_ATFR1 


5UB.B 


#T,D1 


\ IF INTR THEN D1 = 




1126 


000005C2 


E609 






LSL.B 


#2,D1 

T BU 0FF(R3) 


/ BURST THEN 01=8 




1127 


00OO05SC4 


4R2B 


OOOA 




TST.B 


\ IF WORD THEN ADD 4 




1128 


000005C8 


6704 






BES.S 


GIST DIR 


/ 




1129 


000005CA 


D23C 


0004 




RDD.B 


#4,DT 

TDIR 0FF(R3) 






1130 


000005CE 


4A2B 


0000 


GTST_DIR 


TST.B 


\ IF OUTPUT THEN ROD 16 




1131 


000005D2 


6708 






BEO.S 


G HTFR2 


/ 




1132 


000005D4 


D23C 


0010 




RDD.B 


#$10, Dl 






1133 


00000SD8 


4881 






EXT.U 


Dl 






1134 


000005DA 


48C1 






EXT.L 


Dl 






1135 


OOOOOSDC 


4EFB 


1002 


G_ATFR2 


JhP 


GJTTBL(Dl) 


computed goto 




1136 


















1136 


















1136 


















1136 


















1137 


000005EO 


6000 


OOCO 


G_TTBL 


BRR 


G TII3 


INTR IN BYTE 




1138 


000005E4 


6000 


OODO 




BRR 


G TIIU 


INTR IN UORD 




1139 


000005E8 


6000 


0084 




BRP 


G TIFB 


BRST IN BYTE 




1140 


000005EC 


6000 


009E 




BRR 


G TIFW 


BRST IN UORD 




1141 


000005FO 


6000 


0044 




BRR 


G TOIB 


INTR OUT BYTE 




1142 


OOO00SF4 


6000 


0046 




BRR 


G TOIU 


INTR OUT UORD 




1143 


OOO0OSF8 


6000 


0010 




BRR 


G TOFB 


BRST OUT BYTE 




1144 


000005 FC 


6000 


O022 




BRR 


G„TOFU 


BRST OUT UORD 




1145 


















114S 


















114S 


















1145 


















1146 


00000600 


4EB9 

0000 


OOOO 


G_TABORT 


JSR 


DROPDMR 


Release DMA channel 475 TM 9/17/82 




1147 


00000606 


6000 


O0C2 




BRR 


G_TDIN 






PAGE 32 


[3.0] 12/26/8' 


21:31:49 IOLIB EXTG 


- INTERRUPT SERVICE 


ROUTINE «»» File name: GPIO 


*** 


1149 








******** 


******** 


******************* 


*********** 




1150 








* 










1151 








* 


OUTPUT TRANSFERS 






1152 








* 










1153 








******** 


************************************** 




1154 


0000060A 


007C 


2700 


G TOFB 


OR I 


#$2700, SR 
JRO)+,S(fll) 

G toOUT 


Disable interrupts 




1155 


0000060E 


1358 


0005 


G_T0FB1 


MOVE.B 


Copy byte from buffer to GPIO 




1156 


00000612 


5383 






SUBQ.L 


Decrement transfer count 




1157 


00000614 


6F3P, 






BLE.S 


If D3 = then we' re done 




1158 


00000616 


1280 






MOVE .B 


DO", (HI) 


wti 7,0 (Trigger next output) 




1159 


00000613 


0811 


0000 


G_T0F82 


BTST 


#0. (HI) 
G TOFBl 


PFLG = 1 ? 




1160 


0000061 C 


66F0 






BNE 


Yes: Get next byte 




1161 


0000061 E 


60F8 






BRR 


G_T0FB2 


No : Keep checking 




1162 


















1162 


















1162 


















1162 


















1163 


00000(320 


007C 


2700 


G TOFU 


ORI 


#$2700, SR 


Disable interrupts 




1164 


00000624 


3358 


0004 


GJT0FW1 


MOVE.U 


a TDOUT 


Copy word from buffer to GPIO 




1165 


00000628 


5383 






SUBO.L 


Decrement transfer count 




1166 


00000623 


6F24 






BLE.S 


IF D3 = then we're done 




1167 


0000062: 


1280 






MOVE ,B 


05, (fll) 


wti 7,0 (Trigger next output) 




1168 


0000062= 


0811 


0000 


G_T0FU2 


BTST 


#0.(A1) 
G TOFUl 


PFLG - 1 ? 




1169 


00000632 


66F0 






BNE 


Yes: Get next byte 




1170 


00000634 


60F8 






BRR 


GJT0FU2 


No : Keep checking 




1171 


















1171 


















1171 


















1171 


















1172 


00000636 


1358 


0005 


G_TOIB 


MOVE.B 


(flO)t.S(Sl) 
G ENDOUT 


Copy a byte from buffer to GPIO 




1173 


0000063A 


6004 






BRfl.S 






1174 


0000063= 


3358 


0004 


G TOIU 


MOVE.U 


(R0)t,4(Rl) 
HO, TEMP 0FF(R3) 


Copy a word from buffer to GPIO 




1175 


00000640 


2748 


001C 


G_END0U1 


MOVE . L 


Save RO for use on next output byte/word 




1176 


00000644 


5383 






SUBO.L 


#1,03 






1177 


00000646 


2743 


0010 




MOVE.L 


03.TCNT 0FF(A3) 
G TOOUT 


Decrement transfer out counter 




1178 


0000064A 


6F04 






BLE.S 


If zero, go thru Transfer Done Out 
wti 7,0 (Trigger byte out) 
End of ISR 




1179 


0000064C 


1280 






MOVE.B 


05, (Rl) 




1180 


0000064E 


4E7S 






RTS 






1181 


















1181 


















1181 


















1181 


















1182 


OOOOOSSO 


2748 


001C 


G_TD0UT 


MOVE . L 


RO.TEMP 0FF(R3) 


save empty ptr 




1183 


OOO00SS4 


42RB 


0010 




CLR.L 


TCNT 0FF(A3) 


clear tfr count 




1184 


00000358 


137C 
0003 


OOOO 




MOVE.B 


#0,3TH1) 


Stop card from interrupting 




1185 


000006SE 


136R 
0007 


002C 




MOVE.B 


EIRB_0FF(A2) ,7(R1) 


Put EIR byte in CTL1/CTL0 




1186 


00000664 


1280 






MOVE.B 


DO, (HI) 
STCLR 


wti 7,0 (Trigger last output) 

Unbusy buffer 475 TM 9/17/82 




1187 


00000366 


4EB9 


OOOO 




JSR 








0000 














1188 


0000066C 


4E75 






RTS 
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File name: GPIO 



1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1207 
1207 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1216 
1216 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1221 
122S 
1225 
1225 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1233 
1233 
1233 
1234 



********************** 
INPUT TRANSFERS 



0000066E 007C 2700 
00000672 7C00 
00000674 1C29 0005 
00000678 1CC0 
0000067ft SJ83 
0000067C 6F4C 
0000067E B440 
OC000680 6748 
00000682 1280 
00000684 0811 0000 
00000688 66ER 
0000068A 60F8 



0000068C 007C 2700 
00000690 30E9 0004 
00000694 5383 
00000696 6F32 
00000698 1280 
0000069ft 081 1 0000 
0000069E 66F0 
000006BO 60F8 



000006H2 7000 
00000604 1029 0005 
OO00O6P.8 10C0 
000006P.PI B440 
000006P.C 660C 
000006P.E 5383 
O00006BO 2743 0010 
000006B4 6014 



********* 



000006B6 30E9 0004 
000006BP. 2748 0020 
000006BE 5383 
000006CO 2743 0010 
000006C4 6F04 
000006C6 12.90 
000006C8 4E75 



g_jiiu 

G„ENDIN 



OR I 

MOVEQ 

MOVE.B 

MOVE.B 

SUBQ.L 

BLE.S 

CMP.U 

BEQ.S 

MOVE. 8 

BTST 

BNE 

BRfl 



#$2700, SR 
#0,D0 
5(R1),D0 
DO, (flO)+ 
#1,03 
G TDIN 
D0",D2 
G TDIN 
DO", (fill 
#0. ffllj 
G_tlFBl 
G_TIFB2 



*************** 



G TIFU 


ORI 


#$2700, SR 


G TIFU1 


MOVE 


4(H1), (ftOl 
#1.D3 




SUBQ . L 




BLE.S 


G TDIN 




MOVE.B 


DO", (fill 


G TIFU2 


BTST 


#0. (fil 




BNE 


G T1FU1 




BRft 


G TIFU2 



MOVEQ 
MOVE .B 
MOVE .B 
CMP.U 
BNE.S 
SUBC.L 
NOVE.L 
BRfi.S 



MOVE 

nOVE.L 

SUBQ.L 

nOVE.L 

BLE.S 

MOVE.B 

RTS 



5(fll),D0 

DO, (flO)+ 

D0.D2 

G ENOIN 

ttT,D3 

D3.TCNT_0FF(fi3) 

G_TDIN 



4(fil) flOl* 
HO.TFIL 0FF(P|3) 
#1,D3 ~ 
D3.TCNT 0FF(R3) 
G TDIN 
D5, (ftl) 



DO.L = Byte received 

Decrement transfer counter 

If buffer full; exit fast handshake 

If input character matches end character 

then we're done 
wti 7,0 (Trigger next input) 
PFLG > 1 ? 
Ves: Get next byte 
No : Keep checking 



Disable interrupts 

Copy word from GPIO to buffer 

Decrement transfer counter 

If 03 = »e're done 

wti 7,0 (Trigger next input) 

PFLG = 1 

No: Keep checking 



DO.L = Byte received 

Store byte in input buffer 

Compare termination byte with input byte 

No match: Everybody get out of here J 

Decrement byte counter 



Copy word from GPIO to buffer 
Save buffer pointer 



000006CA 2748 0020 G„TDIN MOVE.L HO, TFU_0FF(fi3) 



wti 7,0 



save fill pt r 



PPGE 34 [3.0] 12/26/84 21:31:49 IOLIB EXTG - INTERRUPT SERVICE ROUTINE 



File name : GPIO *** 



1235 000006CE 2743 001C 

1236 000006D2 137C 0000 

0003 

1237 00000608 13BB 002C 

0007 

1238 000006DE 4EB9 0000 

0000 

1239 000006E4 4E7S 



MOVE.L D3,TCNT 0FF(A3) 

MOVE.B #0,3(H1J 

MOVE.B EIRB_0FF(fi2),7(fil) 

JSR STCLR 

RTS 



save remaining count 

Stop card from interrupting 

Put EIR byte in CTL1/CTL0 



Unbusy buffer 



475 TM 9/17/82 
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1241 END 

PASS 1 ERRORS: 

PRSS 2 ERRORS: 



INTERRUPT SERVICE ROUTINE 



*** File name: GPIO *** 



PAGE 36 [3.0] 12/26/64 21:31:49 IOLIB EXTG 
**» 68000 ASSEMBLER SYMBOL TABLE DUMP »** 
EXTERNAL SYMBOLS 



INTERRUPT SERVICE ROUTINE 



**» File name: GPIO **« 



SYMBOL 


TYPE 


DEF 


VftLUE 




ABORT 10 


ABS 


148 


00000008 




CHECK TFR 


BBS 


155 


00000019 




CHECK'TIMER 


BBS 


156 


0000001C 




DELAY TIMER 


HAS 


157 


OOOOOOIF 




DMA STBSY 


ASS 


153 


00000013 




DROPDMA 


BBS 


151 


OOOOOOOF 




GET DMA 


BBS 


150 


OOOOOOOO 




IODECLARATIONS 


ABS 


312 


00000022 




ITXFR 


ABS 


147 


00000006 




LOGINT 


BBS 


149 


OOOOOOOB 




STBSY 


BBS 


145 


00000002 




STCLR 


BBS 


146 


00000004 




SYSGLOBALS 


BBS 


313 


00000026 




TESTDMA 


BBS 


152 


00000011 




UAIT_TFR 


BBS 


154 


00000016 




INTERNAL SYMBOLS 






SYMBOL 


TYPE 


DEF 


EQU SYM 


VALUE 


BO 


BREG 







000"0000 


Al 


AREG 







00000001 


A2 


AREG 







00000002 


A3 


BREG 







00000003 


A4 


AREG 







00000004 


A5 


AREG 







00000005 


A6 


BREG 







00000006 


B7 


AREG 







00000007 


AVAIL OFF 


ABS 


252 




00000034 


8BDTMD" 


BBS 


330 




OOOOOOOB 


BAD RDS 


BBS 


338 




00000013 


BAD SCT 


BBS 


339 




00000014 


BUFT OFF 


BBS 


243 




00000024 


BUFO~OFF 


BBS 


244 




00000028 


BUF SUSY 


BBS 


320 




00000009 


CCR 


STREG 







00000005 


CRD DOUN 


REL 


636 




000001EE 


CRD DUN 


BBS 


340 




0000001S 


C AUR 


ABS 


242 




00000020 


DO" 


DREG 







OOOOOOOO 


01 


DREG 







00000001 


D2 


DREG 







00000002 


03 


DREG 







00000003 


D4 


DREG 







00000004 


05 


DREG 







00000005 


06 


DREG 







00000006 


07 


DREG 







00000007 


OFC 


STREG 







00000008 


EIRB OFF 


ABS 


245 




0000002C 


EOD SEEN 


BBS 


341 




00000016 


ESC CODE 


BBS 


349 


SYSGLOBALS 


► FFFFFFFE 


ESC ERR 


REL 


645 




000001FC 



1-241 
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OOOOOOBC 

00000002 
00000010 
0000002C 
00000074 
00000050 

oooooobc 

0000001E 

oooooocc 

OO0O009C 
00000040 
0O00008B 
00000064 
00000000 
0000043C 
OOOOOSRC 
0O0002B8 
000002B2 
OO0002B4 
00000230 
000001F6 
000001FR 
000004D8 
0O0OO4E0 
00000266 
00000270 
000C027B 
00000280 
0000026R 
000005CE 
0000026E 
0000026C 
OO0O02F2 
0O0005HE 
000005BE 
0000050C 
00000236 
OOOOOOOO 
0000031C 
0O0O03DA 
000003F6 
0000040E 
00000424 
000003FC 
00000S28 
00000428 
00000432 
000O043B 
00000322 
0O0OO6BB 
00000640 
0O0OOOE2 
00000462 
00000468 
00000106 
00000112 
OOOOOllfi 



*** File name: GPIO *** 



EXTG EG CLR 


RE. 


485 


EXTG EG INIT 


RE- 


370 


EXTG EG ISR 


RE- 


379 


EXTG EG RDB 


RE- 


397 


EXTG EG RDS 


REL 


441 


EXTG EG RDU 


RE- 


419 


EXTG EG SET 


RE L 


475 


EXTG EG TDMB 


REl 


388 


EXTG EG TEST 


REL 


495 


EXTG EG FFR 


REL 


46b 


EXTG EG dTB 


REL 


4 06 


EXTG EG iJTC 


REL 


454 


EXTG EG OJTU 


REL 


431 


EXTG EXTG 


REL 


366 


GD STBSV 


REL 


953 


GISR END 


REL 


1118 


GREGFXIT 


REL 


771 


GR CARD 


REL 


769 


GR CBRD1 


REL 


770 


GSE"T 1 


REL 


682 


GTERR" 8 


REL 


640 


GTERR 


REL 


642 


GTFI TRM 


REL 


1032 


GTFO TRM 


REL 


1034 


GTSTT 


REl 


711 


GTST2 


REL 


716 


GTST3 


REL 


719 


GTST4 


REL 


722 


GTST CHK 


REL 


712 


GTST DIR 


RE- 


1130 


GTST RTS 


REL 


714 


GTST SET 


REL 


713 


GUTCTBL 


REL 


813 


G BTFR 


REL 


1120 


G~BTFR1 


REL 


1125 


G BTFR2 


REL 


1135 


G CLR 


REL 


690 


G CRDREG 


BBS 


736 


G DBTPI 


REL 


630 


G Dual 


REL 


917 


G DMB3 


REL 


925 


G DMB4 


REL 


936 


G DMB6 


REL 


942 


G DMfiOUT 


REL 


932 


G DMBTERI1 


REL 


1074 


G DMA U 


REL 


946 


G~onfl Ul 


REl 


949 


G Dnfi~U2 


REl 


951 


G EIR 


REL 


838 


G ENDIN 


REL 


1227 


G ENDOUT 


REL 


1175 


G INIT 


REL 


512 


G INT I 


REL 


979 


G INT 


REL 


985 


G I0FS 


REL 


626 


G I0FS1 


REL 


53C 


G I0FS2 


REL 


533 
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00000592 
00000S92 
00000S9PI 
0000037E 
00000128 
00000288 
0O0O02D8 
0O0OO2BE 
000002CE 
000002C4 
OO0O00E2 
00000002 
00000344 
00000346 
0O0O02E4 
OOOOOOOC 
OOOOOIEB 
OO00O1 F2 
00000212 
00000308 
00000302 
00000150 
00000164 
0000016E 
0000015C 
0000018B 
0000013B 
0O0O015A 
00000600 
00000388 
000006CB 
00000650 
000O0001 
00000254 
00000494 
OO0O04B6 
0O0O04BB 
0O0O04BB 
000004C2 
0O0O04C6 
00000400 
000004E8 
0000051E 
000004F2 
0O0004F6 
00000500 
00000508 
0000050C 
00000516 
0000034E 
000003C6 
000O066E 
00000674 
00000684 
0000068C 
00000690 
0000069B 



File name: GPIO *** 



G ISR 


REL 


1111 


G ISR1 


REL 


1112 


G~ISR2 


REL 


1114 


G NODIIfl 


REL 


369 


G ROB 


REL 


55: 


G RDS 


REL 


739 


G~R0S1BL 


REL 


738 


G RDS DI 


REL 


777 


G RDS PS1 


REL 


784 


G RDS RDV 


REL 


"80 


G - RESE*T 


REL 


513 


G ROUTINE 


BBS 


734 


G RTS 


REL 


347 


G RTS1 


REL 


848 


G~RT ENO 


REL 


?95 


G RT SIZ 


BBS 


795 


G SCfSY 


REL 


63<l 


G SC ERR 


REL 


638 


G SET 


REL 


673 


G SET CT1 


REL 


825 


G SET PCT 


REL 


82 2 


G STSO" 


REL 


565 


G STSOB 


REL 


571 


G STSOC 


REL 


573 


G STS1 


REL 


569 


G STS1B 


REL 


580 


S STSCHK 


REL 


559 


S~STSRTS 


REL 


568 


S~T ABORT 


REL 


1146 


5 TBL 


REL 


876 


8 TDIN 


REL 


1234 


5 TDOUT 


REL 


1182 


G TEMP 


BBS 


735 


G TEST 


REL 


70S 


GTFI 


REL 


1002 


G TFIB 


REL 


1008 


G TFIB1 


REL 


1009 


G TFIB2 


REL 


1016 


G TFIU 


REL 


1020 


G _ TFIU1 


REL 


1021 


G TFIU2 


REL 


1025 


G TFO 


REL 


104 


G TF03 


REL 


1061 


G TFOB 


REL 


1043 


G~TF0B1 


REL 


1044 


G TF0B2 


REL 


1048 


G TFOU 


REL 


1052 


G TF0U1 


REL 


; .153 


G TF0LJ2 


REL 


105 7 


G TFR 


REL 


857 


G TID 


REL 


911 


G TIFB 


REL 


1195 


G TIFB1 


REL 


1197 


G TIFB2 


REL 


1204 


G"TIFU 


REL 


1208 


G TIFUIt 


REL 


1209 


G TIFU2 


REL 


1213 
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*** File name: GPIO *** 


G Til 


REl 


978 


00000462 




G~TIIB 


REL 


1217 


000006B2 




G TIIU 


REL 


1226 


000006B6 




G TOD 


REL 


931 


000003FC 




G TOFB 


REL 


11S4 


0000060R 




G'TOFBl 


REL 


1155 


0000060E 




G T0FB2 


REL 


US9 


00000618 




G TOFU 


REL 


1163 


00000620 




G TOFU1 


REL 


1164 


00000624 




G T0FU2 


REL 


1168 


0000062E 




G~TOI 


REl 


984 


00000468 




G TOIB 


REL 


1172 


00000636 




G TOIU 


REL 


1174 


0000063C 




G TTBL 


REL 


1137 


000005E0 




G T BIC 


REL 


972 


00000456 




G T BST 


REL 


966 


00000450 




G T DMA 


REL 


903 


000003B0 




G T FHS 


REL 


994 


0000047C 




G T INT 


REL 


960 


00000448 




G UNDEND 


REL 


1103 


00000590 




G UNDMB 


REL 


1075 


00000528 




G URIT 


REL 


589 


0000018E 




G~UflIT2 


REL 


595 


000001B2 




G UBIT2B 


REL 


612 


000001C0 




G UAIT3 


REL 


601 


000001BA 




G UAIT3B 


REL 


614 


000001C6 




G~UAIT4 


REL 


608 


000001B8 




GTJBIT4B 


REL 


615 


00000 ICC 




G UMTSB 


REL 


624 


000001E6 




GTJBITER 


REL 


605 


00000184 




G LJRTS 


REL 


610 


00000 18E 




G UITB 


PEL 


540 


0000011C 




G U1TC 


REL 


807 


000002E4 




G UTC RST 


REL 


820 


000002FE 




G UTI5" 


REL 


841 


0OOO032E 




H ISR pn 


BBS 


241 


0000001C 




H ISR PR 


BBS 


239 


00000014 




H ISR SL 


BBS 


240 


00000018 




IDE ER"ROR 


BBS 


344 


FFFFFFE6 




IOE RSLT 


BBS 


346 IODECLBRBTIONS 


+ FFFFFF8E 




IOE SC 


BBS 


347 IODECLBRATIONS 


+ FFFFFFBfi 




10 FIISC 


BBS 


342 


00000017 




10 SC 


BBS 


246 


0000002D 




ISR" ENTRY 


BBS 


237 


00000000 




nfl 


BBS 


251 


00000033 




fid u 


BBS 


250 


00000032 




NOT HPIB 


BBS 


321 


00000002 




NOT LSTN 


BBS 


335 


00000010 




NOT TALK 


BBS 


334 


OOOOOOOF 




NO RCTL 


BBS 


322 


00000003 




NO CBRO 


BBS 


320 


0OOOOO01 




NO DATA 


BBS 


325 


00000006 




NO DMA 


PBS 


332 


OOOOOOOD 




NO DRV 


BBS 


331 


OOOOOOOC 




NO DVC 


BBS 


323 


00000004 




NO SCTL 


BBS 


337 


00000012 




NO_SPBCE 


BBS 


324 


ooooooos 
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*** File name: GPIO *** 


NO WORD 


BBS 


333 


00OO0O0E 




RC7R blk 


BBS 


350 SYSGL08BLS 


* FFFFFFF6 




ROS E"RR 


REL 


756 


000002BC 




SC BUSY 


BBS 


327 


00000008 




SFC 


STREG 





00000009 




SP 


BREG 





00000007 




SR 


SIREG 





00000006 




SYSFLBG2 


BBS 


353 


FFFFFEDB 




TBCT OFF 


BBS 


267 


00000007 




TBSZ OFF 


BBS 


290 


00000018 




TBUF OFF 


BBS 


289 


00000014 




TCHR OFF 


BBS 


286 


OOOOOOOE 




TCNTERR 


BBS 


329 


00OOO n 0B 




TCNT OFF 


BBS 


28S 


000001.10 




TOIR OFF 


BBS 


284 


OOOOOOOD 




TEMP OFF 


PBS 


291 


0000001C 




TEND OFF 


PBS 


282 


OOOOOOOB 




TFIL OFF 


BBS 


292 


00000020 




TFR ERR 


BBS 


326 


00000007 




TIMEOUT 


BBS 


247 


0000002E 




TIMER PRESENT 


BBS 


352 


00000001 




TMO EUR 


BBS 


336 


00000011 




TTMP OFF 


BBS 


265 


00000000 




n BURST 


BBS 


303 


00000003 




TT DMA 


BBS 


302 


00000002 




TT~FHS 


BBS 


304 


00000004 




TT INT 


BBS 


301 


00000001 




TUSR OFF 


BBS 


268 


00000009 




T 8U OFF 


BBS 


280 


OOOOOOOB 




T DtlffPRI 


BBS 


297 


00000030 




T _ PM OFF 


BBS 


296 


0000002C 




T~PR~OFF 


BBS 


293 


00000024 




T SC OFF 


BBS 


266 


00000005 




T SL OFF 


PBS 


295 


00000028 




URIN2" 


REL 


1099 


00000578 




UNINPUT 


REL 


1093 


0000056B 




UN0UT2 


REL 


1088 


0000055B 




UNOUTPUT 


REl 


1081 


00000540 




USER ISR 


BBS 


238 


00000014 




USP 


STREG 





00000007 




VBR 


STREG 





OOOOOOOB 
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GPIODVR 



Description 

GPIODVR is the assembly language support routines for the 9885 flexible disc drive transfer method 
F9885. 
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File name : GPIODVR ** 



PB53 1 COMPLETE. ERRORS: 

1 



2 

3 

4 src module gp; 

5 src 
5 src import 



nosyms 
mname gp 



src sysglobals, 

src 

src export 

src type 



9 
10 

JJ src gpiotype = { gpio interface card definition ) 

12 src packed record case integer of 

|3 src 0: {direct byte access) 

J; 5r c ( rO,rl,r2,r3,r4,rS,r6,r7: byte ); 

1= src 1 : (read access) 

iS s rc ( (rO) ROpad:0. .127; ready :boolean; 

JI src (rl> Rlpad:0..7; cardid:0 . .31 ; 

J| src < r2> R2pad: byte; 

IS src <r3> Renab,req:boolean; intlevel :0 . .3; burst ,Rword,Rdmacl .RdmacO : boolean; 

20 src {r4> Rdata: 

21 src { r 5> shortint; 
\\ src {r6) R6pad:byte; 

?? sr c (r7) R7pad:0..1S; pst s.eir ,st il , sti0:boolean ); 

24 src 2: {write access) 

Si src ( <r0> setpcti:byte; 

|6 src frl) reset:byte; 

%' src {r2) U)2pad:0. .63; rdyen ,ei ren :boolean ; 

%% src {r3> Uenab:boolean; U3pad:0..1S; Uword,Udmacl .UdmacO : boolean; 

29 src {r4> Udata: 

3° src (rS) shortint; 



31 



src (r6) U6pad:byte; 



32 src {r7) U7pad:0..63; ctll ,ct 10:boolean 

33 src end; { gpio interface card definition ) 



34 src 



5rc gpio_r3 type = {separate declaration for use with structured constants) 



35 

36 src packed" record 

il 5rc <r3) Wenab:boolean; U3pad:0..15; Uword.Udmacl , UdmacO : boolean; 

38 src end: 



39 
40 



src dmachanneltype = packed array[0..7] of byte; 



41 src 

42 src var 
4 J src dma„port [5242880] : array[0..1] of dmachanneltype; 
44 src 

^5 src procedure gpioclear (var gpio: gpiotype); 

4° src procedure gpiowordout var gpio: gpiotype; datum: shortint); 

*' src function gpiowordin (var gpio: gpiotype): shortint; 

4o src procedure gpiodmaout (var gpio: gpiotype; 

£9 src command: shortint; 

50 src enable_byte: gpio r3_type; 

2i src var dma channel: dmachanneltype : 

52 src L - '<"- - '" - ' - - ■ 

|3 src procedure gpiodmain 

55 

56 
57 

56 



src buffer: charptr; length: integer) 

src procedure gpiodmain [war gpio: gpiotype; 

src command: shortint; 

enable_byte: gpio r3_type; 



src var dma_channel: dmachanneltype; 

src buffer: charptr; length: inteqer) 

src end; (gpio) 
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60 * 

61 * dmaout/dmain stack frame definitions 

63 0000 0000 olda6 

64 0000 0004 radd 

65 0000 0008 len _._ . , _., , .„.,..-, 

66 0000 000C buf equ +12 long addfess of buffer 
H 0000 0010 chan equ +16 long) dma channel base address 



68 0000 0014 enab 



70 0000 0016 cmnd 



equ 


+0 


long) 


equ 


+ 4 


lonql 


equ 


+8 


long) 


equ 


+ 12 


long) 


equ 


+ 16 


long) 


equ 


+ 20 


byte) 


equ 


*l l 


byte) 


equ 


tlZ 


word) 


equ 


+24 


long) 



old stack frame pointer 

return address 

length of transfer in words 



gpio dma enable byte 



69 0000 0015 stackpad equ +21 (byte) unused - caused by pushing byte on stack 



disc command (read/write/verify) 



71 0000 0018 gpio equ +24 (long) gpio card base address 

73 

74 » 

75 * Def's i Ref's 

76 » 

11 de I gp_gp 

'5 def gpjpioclear 

'^ def gpgpiowordout 

80 def gp_gpiowordin 

81 def gp_gpiodmaout 

82 def gp_gpiodmain 

^ refa sysglobals 

85 refa -'-- ' 



mini loresc 



refa checF_timer jws 8/10/83 

88 lmode mini ioresc 

89 lmode check"_timer jws 8/10/83 

91 0000 0001 timer_present equ 1 jws 8/10/83 

92 FFFF FEDP, sysflag2 equ $fffffeda jws 8/10/83 

94 
95 

96 » 

97 * module initialization routine 

99 00000000 4E7S gp gp rts 

100 3 - 
101 

102 * 

103 * ioresult assignments 

104 » 

105 0000 0004 ztimeout equ 4 

106 0000 0015 zcatchall equ 21 
107 

103 

109 < 

110 * error exits 

111 « 

112 00000002 701= ioresc^catchall moveq #zcatchall,d0 zcatchall ioresult 

114 00000004 3F00 ioresc move dO.-(sp) push the ioresult 

115 00000006 4EB9 0000 jsr miniiioresc setiorlsulf trier, escape t -10) 
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«» File name: GFIODVR »* 



116 
117 
118 



OOOOOOC'C 3B7C FFF4 bus error 

FFFE 
00000012 4E4A 



move 
t rap 



#-12,sysglobals-2(aS) 

#10 



set the escapecode 
escape 
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*** File name: GPIODVR »** 



121 
122 
123 
124 

125 
126 
127 
128 
129 
130 

131 
132 
133 
134 
135 
136 
137 
138 
139 
140 

141 
142 



144 
14S 
146 
147 
148 
149 
ISO 
151 
152 
153 



155 
156 
157 
158 
159 

160 
161 
162 
163 
164 
165 
166 
167 
168 



00000014 203C 
OOCE 



0000001A 0829 
0007 

00000020 66E0 

00000022 0811 

00000026 6650 

00000028 5380 

0000002A 6EEE 



0838 
FEOfi 
671A 
203C 
2569 
0829 
0007 
66CO 
0811 
6630 
5380 
6EEE 
602C 



* gpiowait ready with 2 second timeout 
* 
0000 waitready move.l #206, dO 



timeout counter 



Counter changed to be about 1 ms at 16 MHz -- 
by jws 8/10/83 



0003 waitready_loop btst 
0000 



bne 
btst 
bne . s 
subq . 1 
bgt 



#3,7(al) 

ioresc catchall 

#0, (all 

wait ready_r ts 

#l,dO 

wait ready_loop 



peripheral status? 

io resc (zcatchall ) if so 

ready? 

branch if so 

decrement the timeout counter 

loop until timeout count expired 



Low data rate if we get here, so use timer if have it 
8 MHz loop code is duplicated from above 



#t imer_present , sysf lag2 



iws 8/10/83 

iws 8/10/83 

iws 8/10/83 

jws 8/10/83 



00000032 
00000034 

0000003A 

00000040 
00000042 
00000046 
00000048 
0OO0004A 
0OOO004C 



0000004E 
00000052 

00000058 

0000005E 
00000060 
00000064 
00000066 
00000068 

0000006E 
00000070 
00000072 
00000074 
00000076 
00000078 



0000 
1F3C 
2F3C 
07D0 
0829 
0007 
6602 
0811 
6610 
4857 
4E89 
0000 
6RE8 
5C4F 
700A 
60C4 
5C4F 
4E75 



beq . s 

move . 1 

wait ready_loop2 btst 

bne 
btst 
bne .s 
subq . 1 
bgt 
bra . s 

* 

wait ready_t irner equ 

move .b 
move . 1 



0003 

0003 



004E 
0001 
0000 



0003 waitready_tloop btst 

0000 

0000 



bne 
btst 
bne . s 
pea 

jsr 

bpl 
addq 
moveq 
b ra 
wait ready„texit addq 
wait ready_rts rts 



wait ready timer 
#206185, dO" 

#3,7(al) 

ioresc catchall 

#0 , ( a 1 y 

wait ready_rts 

#1 ,d0 

wait ready_loop2 

wait_t imeout 



#1 -(sp) 
#2000, -(sp) 

#3,7 (al) 

ioresc catchall 

#0,(al| 

wa it ready_texit 

(sp) 

check_timer 



use timer iws 8/10/83 

else set 2 sec loop jws 8/10/83 

peripheral status? 

ioresc (zcatchall) if so 

ready? 

branch if so 

decrement the timeout counter 

loop until timeout count expired 

timeout on 2sec loop jws 

jws 8/10/83 
setup timer record iws 8/10/83 
time to wait jws 8/10/83 

check psts jws 8/10/83 

if not there, escape iws 8/10/83 

check card ready iws 8/10/83 

if so then done iws 8/10/83 

point to timer rec iws 8/10/83 

timed out? jws 8/10/83 



no--try again jws 8/10/83 

yes, clean stack iws 5/2/84 

give one more try Jws 5/2/84 

wait ready_loop2 with a short count iws 5/2/84 

#6,sp cleanup stack iws 8/10/83 

and continue ]ws 8/10/83 



wait ready_t loop 
#6 sp 
#10, aO 



0000007A 7004 
0000007C 6086 



wait timeout 



moveq 
bra 



#ztimeout ,d0 
io resc 



ztimeout ioresult 
escape 
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170 
1 *1 
172 
173 
174 
175 
176 
177 
178 
179 
180 

181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 



File name: GPIODVR *** 



************************** ****************************************** ********** 

gpioclear * 

******************************************** 



********************************* 

0000007E 205F gp gpioclear movea.l (sp)+,a0 

00000080 225F movea.l sp t al 

00000082 1340 0001 move.b dO.llal) 

00000086 203C 0000 move.l #200, dO 
00C8 



pop the return address 

pop the gpio card base address 

reset the card 

prepare to . . . 



* Count changed from 100 to 200 for 16 MHz processors jws 8/10/83 



0000008C S1C8 f-FFE 
00000090 4229 0007 
00000094 6100 FF7E 
00000098 4ED0 



dbra 

clr.b 

bsr 

jmp 



d0,« 
7(al) 
wait ready 
(aO) 



wait a while .. . 

clear ctll S cltO 

before testing psts & ready 

return 



************************** 



********* 



**************** 

00000O9A 205F gp gpiowordout 

0000009C 226F 0002 

00000OR0 6100 FF72 

000O0OB4 33S7 0004 

000OOOA8 1280 

OOOOOOflfi SC8F 

O0OO0OBC 4ED0 



movea . 1 
move a . 1 
bsr 
move 
move -b 
addq . 1 
jmp 



********** 



(sp)*,aO 

2(sp),al 

wait ready 

(sp),4(ai) 

dO,(al) 

#6,sp 



gpiowordout 



************ 



********* 



pop the return address 

gpio card base address 

wait until ready 

output the datum 

set pctl 

pop off tie parameters 

return 



********************************************* ******************************* 



********************** 



gpiowordin 
******************** 



******************* 



OOOOOOAE 20SF 
0000OOBO 225F 
O000OOB2 6100 FF60 
OO0OOOB6 3EA9 0004 
OOOOOOBA 1280 
00OOOOBC 4ED0 



gp_gpiowordin 



movea.l (sp)+,aO 
movea.l (sp)+,al 
bsr waitready 
move 4[al) (sp) 
move.b dO,(ai) 
jmp (aO) 



pop the return address 

gpio card base address 

wait until ready 

input the datum 

set pctl (same manner as 98032 autohandshake) 

return 



PAGE 6 [3.0] 12/26/84 21:38:2$ ASSEMBLY 
*************** 



214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 

228 
229 

230 
231 
232 
233 
234 
235 
236 



************** 

000000BE 4E56 0000 gp_gpiodmaout 

000OOOC2 226E 0018 
000000C6 6100 FF4C 

OOOOOOCfl 4E4B 

* scs 
O0O000CC 007C 2700 

00000000 336E 0016 

0004 
00000006 1280 
0000OOD8 136E 0014 

0003 

OOOOOODE 246E 0010 
000000E2 24AE 000C 
O0O00OE6 202E 0008 
OOOOOOEH 5380 
00000OEC 3540 0004 
OOOOOOFO 357C 0006 
0006 



_loop 



237 








238 


0O000OF6 


460F 




239 








240 


OO00OOF8 


47E9 


0007 


241 


OO00OOFC 


7003 




242 


O0000OFE 


49EA 


0007 


243 


00000102 


7200 




244 








24 5 


00000104 


0113 


do 


246 


00000106 


6600 


FEFA 


24 7 


0000010A 


0314 




24 8 


0000010C 


66F6 




24 9 








250 


0000010E 


0C6A 
0004 


FFFF 


, 51 


00000114 


6600 


FEF6 


252 








253 


00000118 


6100 


FEFA 


254 








255 


0000011C 


4E5E 




256 


00000UE 


2C5F 




2S7 


00000120 


DEFC 


0014 


25 8 


00000124 


4ED0 




259 









OF GPIODVR. TEXT 
*************** 
*********************** 
link a6,#0 

movea. 1 gpio(a6) ,al 
bsr wait ready 

trap 

move 
ori 



*** File name: GPIODVR 
****************** 



***************************; 

gpiodmaout 

************************************** 



sr -(sp) 
#$2700, sr 

cmnd{a6) ,4 (al ) 



move.b dO,(al) 

move .b enab(a6) ,3(al) 



movea . 1 chan (a6) , a2 
move , 1 buf (a6) , (a2) 
move.l Ien(a6),d0 
subq.l #l,dO 
move d0.4£a2) 
move #$0006, 6(a2) 



move 

lea 

moveq 

lea 

moveq 

btst 

bne 

btst 

bne 

cmpi 

bne 

bsr 

unlk 
movea . 1 
adda 
jmp 



(sp)+,sr 

7(al1 ,a3 
#3,d0 
7(a2) ,a4 

#6\dl 

d0,(a3) 

ioresc catchall 
dl, (a4j 
do_ioop 

#-l,4(a2) 

bus_error 
waitready 

aS 

isp)+, aO 
20, sp 
(aoS 



create our own stack frame 

gpio card base address 

wait for previous handshake to complete 

move into supervisor mode (scs) 

prepare to disable interrupts 

disable interrupts ******************* 

disc command 

set pctl 

enable the gpio card for dma 



dma channel base address 

set the dma address 

t ransfer lengt h 

length-1 

set the dma count 

arm the dma channel 



re-enable interrupts ****************** 

gpio register 7 address 
psts bit (gpio register 7) 
dma status lower byte address 
armed bit (dma status register) 

psts? 

ioresc (zcatchall ) if so 
dma channel still armed? 
keep looping if so 

dma transfer complete normally? 

branch if not (bus error) 

wait for the final handshake to complete 

remove our stack frame 
pop the return address 
pop off the parameters 
return 
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261 
262 
263 
264 
26S 
266 
267 
268 
269 
270 
271 
272 
273 
274 

27S 
276 
277 
278 
279 
280 
281 
282 
283 
284 
286 
286 
287 
288 
289 

290 
291 
292 
293 

294 
295 
296 
297 
298 

299 
300 
301 
302 
303 
304 
306 
306 
307 
308 
309 
310 
311 



************* 



************* 

00000126 4E56 00O0 gp_gpiodmain 

0000012A 226E 0018 
0000012E 6100 FEE4 

00000132 4E4B 

* SC5 

00000134 0O7C 2700 

00000138 336E 0016 

0004 
000001 3E 1280 

00000140 7000 
00000142 4SE9 0007 
00000146 7203 



OF GPIODVR.TEXT 
******* 

link 36, *0 
movea . 1 gpio ( 36) , al 



************** 
gplodmain 



00000148 C312 
0000014A 660A 
0000014C 0111 
0000014E 67F8 

00000150 4269 0004 
00000154 1280 

000001S6 136E 0014 
0003 

0000015C 246E 0010 
00000160 24PE 000C 
00000164 3S7C FFFF 

0004 
0000016A 202E 0008 
0000016E 5580 
00000170 6DCA 
00000172 3540 0004 
00000176 357C 0002 

0006 

0000017C 460F 

0000017E 47E9 0007 
000001132 7003 
000001134 49EA 0007 
000001138 7200 

0000013A 0113 
0000013C 6600 FE74 
00000190 0314 
00000192 66F6 



d_loop 



bsr 

trap 
move 
ori 

move 

move .0 



btst 
bne . 5 
btst 
beq 

clr 
move .b 



wait ready 

#11 

sr.-(sp) 
#$2700, sr 

cmnd(36) ,4(al) 

dO, (al) 

#0,d0 

7(al),a2 

*3,dl 

dl, (a2) 
d enab 
do" (al) 

d__loop 

4(al) 
dO, (al) 

move .b enab (aS) ,3 ( al ) 



movea. 1 chan(a6),a2 

move.l buf(a6).(a2) 

move #-l,4(a2) 

move.l Ien(a6),d0 

subq.l #2,d0 

bit. 5 direni 

move d0.4(a2) 

move #$0002, 6 (a2) 



di_loop 



move 

lea 
moveq 
lea 
moveq 

btst 
bne 
btst 
bne 



(sp)*,sr 

7(al),a3 
#3,d0 
7(a2),a4 
#0,dl 

d0,(a3) 

ioresc catchall 
dl ,(a4T 
di_loop 



»** File name: GPIOOVR *** 

******************************** 

* 

******************************** 

create our own stack frame 

gpio card base address 

wait for previous handshake to complete 

move into supervisor mode (scs) 

prepare to disable interrupts 

disable interrupts ******************* 

disc command 

set pctl 

ready bit (register 0) 
register 7 address 
psts bit (register 7) 

peripheral status? 

fall out of the critical section if so 

ready? 

branch if not 

clear the output buffer 

set pctl, requesting the first word in 

enable the gpio card for dma 



dma channel base address 

set the dma address 

set count to -1 for the case of one transfer 

transfer length 

length-2 

branch if one transfer only 

set the dma count 

arm the dma channel 



re-enable interrupts ***************** 

gpio register 7 address 
psts bit (gpio register 7) 
dma status lower Byte address 
armed bit (dma status register) 

psts? 

ioresc (zcatchall ) if so 
dma channel still armed? 
keep looping if so 
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cmpi #-l,4(a2) 

bne bus_error 

bsr waitready 

movea . 1 buf ( a61 , aO 

move .1 len(a6) ,d0 

add.l dO.dO 

move 4(al),-2(a0,d0.1) 



unlk a6 

movea. 1 (sp)+,a0 
adda #20, sp 

imp (aO) 



313 








314 


00000194 


0C6A 

0004 


FFFF 


315 


0000019A 


6600 


FE70 


316 








317 


0000019E 


6100 


FE74 


318 








319 


000001A2 


206E 


000c 


320 


0OO001H6 


202E 


0008 


321 


000001HA 


0080 




322 


000001AC 


31A9 
08FE 


0004 


323 








324 


000001132 


4E5E 




325 


000001134 


205F 




326 


000001136 


DEFC 


0014 


327 


OOOOOliSA 


4ED0 




328 








329 








330 








PASS 1 


ERRORS: 






PASS 2 


ERRORS: 







*** File name: GPIODVR *** 

dma transfer complete normally? 

branch if not (bus error) 

wait for last handshake to complete 

buffer address 
transfer length in words 
transfer length in bytes 
t ransfer last word 



remove our stack frame 
pop the return address 
pop off the parameters 
return 



1-249 



1-250 



HPIB 



Description 

HPIB provides low-level HP-IB drivers. 



Usage 

Used by the built-in HP-IB and the 98624A card. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a), 
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PASS 1 
2 
3 
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COMPLETE. ERRORS: 



****************************************************** 

* COPYRIGHT (C) 1984 BY HEWLETT-PACKARD COMPANY 



*** File name: HPIB 



************ 



********* 



IOLIB EXTH 



11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 



*************** 



Library 

Author 

Phone 

Purpose 



Date 

Update 

Release 



Source 
Object 



RELEASED 
VERSION 



******************** 



******************************************************** 



This set of assembly language code is intended to be used as 
a PASCAL module for I/O drivers for use by the external I/O 
procedures library. 

Most of this code is taken from HPL code. 



08/18/81 
08/01/83 
10/06/82 



IOLIBlHPIB.TEXT 
I0LIB:HPIB.CODE 



**************** 



*************** 






************* 






44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
5 7 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
63 
69 
70 
71 
7 2 
73 
74 
75 
7 3 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
83 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 



[3.0] 12/26/84 21:29:28 IOLIB EXTH ■ HPIB DRIVERS 

****************************************************** 



*** File name: HPIB 



BUG FIX HISTORY - after release 1.0 

BUG # BY / ON LOC DESCRIPTION 

SPR695 HPLJJTC the HPIB cards will not 

04/21/1982 respond properly to a PPC/ 

PPE setup of ppoll info 

SPR740 HJTID DMP input t ransfer s will 

05/28/1982 not terminate properly if 

there is an EO I termination 
and EOI is true on the 
first byte and the byte 
comes in immediately. This 
is a big problem for disk 
t r ansfers . 

SPRxxx H_BYTTST DMP. input t ransfers will 

06/14/1982 not terminate properly if 

07/21/1982 the device is very fast and 

EOI is true on the last 
byte. Due to DMP on lvl 3 
and an external HPIB card 
on lvl 4,5, or 6 . 

475 all over Change SSRs into JSRs to 

09/17/1982 allow re-placement of the 

modules. Also in GPIO and 
Data Comm. 

564 - H UTC PPC I0C0NTR0L(sc,2,x) does not 

10/22/1982 work - set up PPOLL byte. 

Always responds with a 
PPOLL response of 4. 

********************************************************************** 



BUG FIX HISTORY 
BUG # BY / ON 

qqqq 

12/16/1982 

rrrr 

12/17/1982 



- after release 2.0 

LOC DESCRIPTION 



H TID 



Non active controller DMA 
transfers do not work. 
They mess up the count. 

Re-enabling interrupts when 
srq is already asserted do 
not wo rk . 
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*** File name: HPIB 



101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 



01/19/1983 



01/28/1983 



08/01/1983 
05/02/1984 



Re-enabling interrupts when * 

ON EOT routine is called * 

due to flukey term emulator * 

problem. * 



H_INIT_S 

H EIR 

H _ 0MATERf1 

H_ISR 

H TFR 

H ENABLE H DISABLE 



Allowing DMA non-ctlr tfrs 
to be started from inside 
user ISR. 



H T_FHS 



H_UHIT BO 
H UAIT BI 
H P P0l"L 
H IFC 
H_ISR0 



**************** ***************** 



Even though FHS with the « 

internal HPIB to Coyote » 

makes the interleave, FHS * 

with the external HPIB to * 

Coyote does not ! ! ! * 

Timing changes for 680xx * 
processors on unn CPU boards* 



************** 



128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
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**************************************** 



*** File name: HPIB *** 
******************* 



The following lines are used to tell the LINKER/LOADER what this module 
looks like in PASCAL terms. 

Note that it is possible to create assembly modules that dre functions. 
These routines are called through an indirect pointer using the CALL 
facility which does NOT permit functions. 

This module is called 'EXTH' [ upper or lower case - doesn't matter ) 
independent of the file name ( by use of the MNAME pseudo-op ). 

All the externally used procedures are called 'EXTH @@@@@@(a<5i ' in 
this module. If you are using assembly to access tTTem use the 
'EXTHja@@@@<a<a' name. If you are using Pascal use the ■-———■ 
name . 



***** 


*************************** 


************************ 


*********** 


MNHrlE EXTH 














SRC 


MODULE 


EXTH; 












SRC 


IMPORT 


iodecla rat ions; 










SRC 


EXPORT 














SRC 




PROCEDURE 


eh init 


temp 


ANYPTR 


; 




SRC 




PROCEDURE 


eh_isr 


temp 


ANVPTR 






SRC 




PROCEDURE 


eh_rdb 


temp 


ANYPTR 


' VAR x 


: CHAR); 


SRC 




PROCEDURE 


eh wtb 


temp 


ANYPTR 


val 


: CHAR); 


SRC 




PROCEDURE 


eh__rdw 


temp 


ANYPTR 


VAR x 


: io word) ; 


SRC 




PROCEDURE 


eh'wtw 


temp 


ANYPTR 


val 


: io_word); 


SRC 




PROCEDURE 


eh'rds 


temp 


ANYPTR 


reg 

VAR x 


: io_word' 


SRC 












: io'word); 


SRC 




PROCEDURE 


e h_wt c 


temp 


ANYPTR 


reg 
val 


: io_word; 


SRC 












: io word ) 


SBC 




PROCEDURE 


eh_tfr 


temp 


ANYPTR 


bcb 


: AN7PTR ); 


SRC 




PROCEDURE 


eh send 


temp 


ANYPTR 


val 


: CHAR ) ; 
: BOOLEAN ) 


SRC 




PROCEDURE 


eh_end 


temp 


ANYPTR 


VAR x 


SRC 




PROCEDURE 


eh~ppoll 


temp 


ANYPTR 


VBR x 


: CHAR ) ; 


SRC 




PROCEDURE 


eh clr 


temp 


ANYPTR 


line 


: io bit ); 


SRC 




PROCEDURE 


eh set 


temp 


ANYPTR 


line 


: io bit ); 


SRC 




PROCEDURE 


eh_test 


temp 


ANYPTR 


line 


: io bit ; 


SRC 












VAR x 


: BOBLEHN ) 


SRC 


END; < 


of EXTH ) 
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** File name: HPIB 



171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
187 
187 
187 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 



******** 



********** 



******************************************************* 

* 

* SYMBOLS FOR EXPORT AS PROCEDURE NHMES 

DEF EXTH_EXTH 

DEF EXTH_EH_INIT 

DEF EXTH_EH_ISR,EXTH_EH_TDMA 

DEF EXTH_EH_RDB,EXTH EH UTB 

DEF EXTH_EH_RDU,EXTH EH UTU 

DEF EXTH EH RDS.EXTH EH UTC 

DEF EXTH_EH_TFR 

DEF EXTH EH SEND, EXTH EH PPOLL.EXTH EH SET 
DEF EXTH_EH_CLR , EXTH_EX_TEST , EXTH_EH_EflD 



*****;*:***^-<:.a::ii tJtj&^A ,*<*>*:* * * * * ^ &;!<&#-^:« .&************************* 

SYMBOLS FOR IMPORT - COMMON ASSEMBLY LANGUAGE ROUTINES 

THE ROUTINES ARE IN THE MODULE COMMON ASSEMBLY 
THE TIMER ROUTINES ARE IN THE FILE "PffUERUP" 



********* 






;********* 



give up dma resource 

actually get dma 

check to see if dma is available 

branch to user isr 

branch to user eot 

set buffer busy 

set buffer not busy 

set buffer dma busy 

is there a tfr active ? 

kill any tfr active 

timed wait for tfr active 

timed wait for tfr - direction 

timed delay 

timed wait for timeout checking 

change references to allow long jumps when the I/O 475 JPC 9/17/82 

modules get moved around 475 JPC 9/17/82 

LMODE DROPDMP.GETDriA.TESTDMfi.LOGINT^OGEOT, STBSY 

LMODE STCLR.DMH STBSY , ITXFR, ABORT IO.UAIT TFR. CHECK TFR 

LMODE DELfiY T IrlFR , CHECK TIMER "~ 



REFfi 


DROPDttH 


REFB 


GETDMfl 


RE FA 


TESTDMA 


REFfi 


LOGINT 


REFfi 


LOGEOT 


REFfi 


STBSY 


REFfi 


STCLR 


REFH 


DMA STBSY 


REFR 


ITXFR 


REFfi 


ABORT 10 


REFH 


UfilT TFR 


REFH 


CHECK" TFR 


REFfi 


DELfiY TIMER 


REFB 


CHECK TIMER 



PAGE 6 [3.0] 12/26/84 21:29:28 IOLIB EXTH - COMMON EQUATES AND DEFINITIONS 
219 INCLUDE I0LIB:C0MDCL 



*** File name: HPIB 
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222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
2 SO 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 



COMMON EQUHTES AND DEFINITIONS *** File name: HPIB **» 

************************************************************* 



02/22/82 JPC 
08/01/83 JS 



added parm to user EOT & ISR proc's 
added t imer_present and sysflag2 equ's 



*************** 



*************** 



HPL CONVENTIONS 



Much of this code is taken intact from the 9826 HPL 
language system EIO ROM ( extended I/O ROM ). 

The Pascal that will be calling this code uses 
the stack f c r parameter passage. The HPL code 
uses the Ax and Ox registers for all parameters. 
The Pascal driver entry points on the previous pages 
take care of getting the parameters into the correct 
registers . 

GENERAL HPL ENTRY/EXIT CONDITIONS: 

ALL = CURD ADDRESS 

S2.L = DRIVER TEMP ADDRESS 

UNLESS OTHERWISE INDICATED, THESE REGISTERS ORE UNALTERED. 

NEW ENTRY/EXIT CONDITIONS FOR PASCAL USE : 

A3.L = BUFFER CONTROL BLOCK ADDRESS 

In addition to the A1/A2 convention, Pascal will use 
A3 for a pointer to trie buffer control block. 
The HPL system kept much of the transfer 
information in the s.c. temps. 

TIME0UT(A2) = contains timeout information 

Timeout was a global temp in HPL and a timeout 

generated an error. 

In PASCAL each card has a timeout value stored in 

its temporary area. A timeout error 

generates an ESCAPE ( which can be trapped }. 



************ 






****************** 



268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
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*******************#********»:******** ************** 
* 

* DRIVER TEMPS TEMPLATE 
* 

* OFFSET FROM B2 
* 

* HPL DECLARATIONS ( MODIFIED ) 



*** File name: HPIB *** 
************************** 



oooc 


0000 


ISR ENTRY 


EQU 





.19 


0000 


0014 


USER" ISR 


EQU 


20 




0000 


0014 


H ISR" PR 


EQU 


20 


.23 


cooo 


0018 


H ISR SL 


EQU 


24 


.27 


0000 


001C 


H ISR PM 


EQU 


28 


.31 


0000 


0020 


C ADR 


EQU 


32 


.35 


0000 


0024 


BCFI OFF 


EQU 


36 


.39 


0000 


0028 


BUFO OFF 


EQU 


40 


.43 


0000 


002C 


EIRB OFF 


EQU 


44 




0000 


002D 


10 SC 


EQU 


45 




0000 


002E 


TlFlEOUT 
* 


EQU 


46 


.49 


0000 


0032 


* 
MA U 


EQU 


50 


.51 


0000 


0033 


MA - 


EQU 


SI 




0000 


0034 


AVAIL OFF 


EQU 


52 


■?? 






* 




52 


.83 






* 




52 


.179 



***************** ************************* ******* 
PASCAL ISR LINK & UNLINK area 
user ISR: do NOT change the proc/stat link/parm ordering! 

procedure pt r 

static link 

parameter 
card address 
buffer pointer offset 
buffer pointer offset 
eir byte 

select code ( i.e. 7, 
timeout value 

=0 : no timeout 
#0 : value of timeout 
word access to my address 
byte access to my address 
standard space taken from temps 
normal cards ( 32 bytes ) 
98628 card ( 128 bytes 



22, etc. ) 
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298 

299 
300 
301 
302 
303 
304 
305 
306 
307 
3C8 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
32 5 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
34 
341 
34 2 
34 3 
344 
345 
346 
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******************************************************** ************************ 

* TRANSFER OFFSETS IN BUFFER CONTROL BLOCK 

* OFFSET FROM S3 



PASCAL DECLARATION 



OOOO 0000 TTMP OFF 

0000 OOOS T SC OFF 

0000 0007 TffCT OFF 

0000 0009 TUSR OFF 



EQU 

EQU 5 

EQU 7 

EQU 9 



0000 OOOA TBUJFF EQU 10 

* 
0000 OOOB TEND_OFF EQU 11 

* 
0000 OOOD TDIRJFF EQU 13 



0000 


000E 


TCHR OFI 

* 

TCNT OFI 


EQU 


14 


. .15 


0000 


0010 


EQU 


16 


19 


oooo 


0014 


TBUF OFI 


EQU 


71) 


23 


0000 


0018 


TBSZ OFI 


EQU 


?4 


27 


ooro 


001C 


TEMP OFI 


EQU 


28 


31 


00(0 


0020 


TFIL OFI 


EQU 


?:/ 


35 


oooo 


0024 


T_PR_OFI 


EQU 


36 


. .39 


0000 


0028 


T SL OFF 


EQU 


40 


43 


ooco 


002C 


T Pfl OFF 


EQU 


44 


. .47 



OOOO 0001 TT_INT 
OOOO 0002 TT DMA 
OOOO 0003 TT BURST 
OOOO 0004 TT _ FHS 



TRANSFER EQUATES 

EQU 1 

EQU 2 

EQU 3 

EQU 4 



BURST ) 
INTR ) 



pointer to driver temp offset 

transfer select code 

act ual t ransfer mode 
t r3nsfer mode 

00 - rot used 

01 serial DMA 

02 serial FHS 

03 serial FASTEST ( DMA or FHS 

04 - not used 



05 

06 

07 

08 

09 
t ransfer 


t ransfer 

= 
t ransfer 

= 
t ransfe 

-1 = 
t ransfer 
t ransfer 
t ransfer 
transfer 
t ransfer 
t ransfer 
NIL 

t ransfer 
t ransfer 
dma prio 



overlp INTR 

overlp DMA 

overlp FHS I BURST 

overlp FASTEST J DMA or 

overlp OVERLAP ( DMA or 

byte/word indicator 
byte / 1 = word 

EOI/END indicator 
no eoi / 1 = eoi sent or searched for 

di rection 
input / 1 = output 

terminate character 

no termination character 

count 

buffer pointer 

buffer maximum size 

empty pointer pointer 

fill pointer 

pointer to eot procedure 
procedure 

eot proc static link 

eot proc parameter 

ity request 



inte r rupt 

DMA 

burst 

fast handshake 
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349 

350 

351 

3S2 

353 

354 

355 

356 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

385 

385 

386 

387 

387 

387 

388 

389 

390 

390 

390 

391 

392 

393 

394 

395 

390 






******************************************* 
EXTERNAL REFERANCES for escape 

********************************************* *************************** 
REFA iodeclarations reference the io lib var. area 

REFA sysglobals 



0000 0001 
0000 0002 
OOOO 0003 
OOOO 0004 
OOOO 0005 
0000 0006 
0000 0007 
0000 0008 
OOOO 0009 
0000 OOOA 
OOOO OOOB 
OOOO OOOC 
OOOO OOOD 
OOOO OOOE 
OOOO OOOF 
OOOO 0010 
OOOO 0011 
OOOO 0012 
OOOO 0013 
OOOO 0014 
OOOO 0015 
OOOO 0016 
OOOO 0017 



*************************** 

* 

* Escape code values 



********* 
NO CARD 
NOT HPIB 
NO_B"CTL 
N0J3VC 
NO SPACE 
NO DfiTP 
TFR" ERR 
SC FJUSV 
BUF" BUSY 
TCNTERR 
BADTMO 
NOJRV 
NO_DMA 
NO UORD 
NOT_TALK 
NOT_LSTN 
TMO ERR 
NO 5"CTL 
BAB RDS 
BAQ_SCT 
CRD DUN 
EOD SEEN 
10 RISC 



******* 



********************* 



*********** 



********* 



EQU 


1 


Fu 


? 


EQU 


:t 


EQU 


A 


EQU 


S 


EQU 


H 


EQU 


7 


EQU 


8 


EQU 


9 


EQU 


10 


EQU 


1 1 


EQU 


12 


EQU 


13 


EQU 


14 


EQU 


IS 


EQU 


16 


EQU 


17 


EQU 


18 


EQU 


19 


EQU 


20 


EQU 


21 


EQU 


77 


EQU 


23 



FFFF FFE6 IOE ERROR EQU 



i* ********* ************* 

no interface 

not an hpib interface 

no active controller 

sc ( not device ) specified 

not enough space in the buffer 

not enough data left in the buffer 

tfr error 

5c is current ly busy 

the buffer is busy 

bad count 

bad timeout value 

no driver 

no dma installed 

no word transfers allowed 

not addressed as talker 

not addressed as listener 

timeout 

not system controller 

bad read status / write control 

bad set/clear/test 

interface is dead 

end of data has happened 

misc .error 



io sub system error escape code 



FFFF 
FFFf- 



FFFF 
FFFK 



FFBE IOE RSLT 
FFBfi IOE SC 



FFFE ESC CODE 
FFF6 RCVR~ BLK 



EQU 
EQU 



EQU 

EQU 



I0DEClARGTI0NS-66 
IODECLARfiTIONS-70 



SYSG10BALS-2 
SYSGLOBPIS-10 



OOOO 0001 TIMER PRESENT 
FFFF FEDA SYSFLffG2 



EQU 

EQU 



8/1/83 SYSFLAG2 BIT 
JS 8/1/83 



- 0=>TIMER PRESENT 
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399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
419 
419 
419 



0000 0034 H_INT0C0PY EQU AVAIL OFF+0 

0000 0035 H INT1C0PY EQU AVAI LlOFF* 1 

0000 0036 HllNTMSKSAV EQU AVAIL OFF+2 

OOOO 0038 H_STAT3 EQU AVAIL 0FF*4 



0000 0039 H_FLP.GS 



EQU AVAIL 0FF+5 



0000 003A H_PPOLLMSK EQU AVAIL_0FF+6 
» EQU AVAIL_0FF*7 



COPY 
COPY 
COPY 
STATU 
B 
B 
DRIVE 
B 



OF INTOSTAT REGISTER 

OF INT1STAT REGISTER 

OF INTOMASK & INT1MASK 

S BYTE 3 tlASK: 

IT 0: EOR LATCH 

ITS 1-7: 

R FLAGS AND STATUS BYTE 



VALUE 
VALUE 



MASK ' 

PASS CONTROL FLAG 

USER ISR TO BE CALLED ( IN ISR I 

ERROR INDICATOR 

IFC INDICATOR 

DCL INDICATOR 

GET INDICATOR 

CURRENT rsv STATUS BIT. 

IF SET, 9914 IS IN HOLDOFF MODE, THEREFORE 

ISSUE RELEASE HOLD OFF BEFORE READING, AND 

USE TAKE CONTROL SYNC TO SET ATN. 
TO PUT IN H PPOLL UHEN ist « 1 
TO PUT IN H PPOLL UHEN ist = 



IT 

IT 1 
IT 2 
IT 3 
IT 4 
IT 5 
IT 6 
IT 7 
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422 








423 








424 








425 








426 








427 








428 








429 








430 








431 




0000 


OOOO 


432 


OOOOOOOO 


4E7S 




433 








434 








435 








436 




0000 


0002 


437 


00000002 


205F 




438 


00000004 


245 F 




439 


00000006 


226A 


0020 


440 


OOOOOOOH 


4850 




441 


OOOOOOOC 


6000 


0148 


442 








443 








444 








445 




OOOO 


0010 


446 


00000010 


205F 




447 


00000012 


245F 




448 


00000014 


226A 


0020 


449 


00000018 


4860 




450 


OOOOOOIA 


6000 


0754 


451 








462 








453 








454 




OOOO 


001E 


465 


000000 IE 


205F 




456 


00000020 


245F 




457 


00000022 


226A 


0020 


458 


00000026 


4850 




459 


00000028 


6000 


06E8 


460 








461 








462 








463 




OOOO 


002C 


464 


0000002C 


205F 




465 


0000002E 


265F 




466 


00000030 


24SF 




467 


00000032 


226P 


0020 


468 


00000036 


4850 




469 


00000038 


6100 


01AE 


470 


0000003C 


1680 




471 


0000003E 


4E75 




472 








473 








474 








475 




OOOO 


0040 


476 


00000040 


205F 




477 


00000042 


101F 




478 


00000044 


245F 





***************************************************************************** 

PASCAL DRIVER ENTRY POINTS FOR HP-IB CARDS 
***************************************************************************** 

Module initialization 

H EXTH EQU * 
RTS 



Do nothing 



Driver initialization 

_EH_INIT EQU * 

MOVEA.L (SP)*,AO 
MOVEA.L (SP)*,A2 
MOVEA.L C ADR(A2),A1 
PEA (fi"0) 

BRA H_INIT 



get return address 

get temp address 

get card address 

push return address back on stack 



EH ISR 
_ ~ MOVEA 
MOVER 
MOVEA 
PEA 
BRA 



Interrupt service 
EQU 



L (SP)*,AO 
L SPW.A2 
L C ADR(A2) 

(A-0) 

H ISR 



get return address 

get temp address 

get card address 

push return address back on stack 



HPIB DMA transfer termination routine 



_EH_TDMA EQU * 

MOVEA.L (SP)+,AO 
MOVEA.L (SP)-t,A2 
MOVEA.L C A0R(A2), 
PEA (A~0) 

BRA H_DMATERM 

Read a byte 



_EH_RDB 

MOVEA 

MOVEA 

MOVEA. 

MOVEA. 

PEA 

BSR 

MOVE.B 

RTS 



EQU 



SPW.AO 

SP)*,A3 

SPW.A2 
. ADR(A2),A1 
(HO) 
H ROB 
DO", (A3) 



Write a byte 



_EH UTB 

MOVEA 
MOVE.E 
MOVEA 



EOU * 

L (SP) 

(SP 

L (SP 



,A0 

,00 
,A2 



get return address 

get temp address 

get card address 

push return address back on stack 



get return address 

get VAR address 

get temp address 

get card address 

push return address back on stack 

call read byte 

save character 



get return address 

get value ( this actually bumps SP by 2 

get temp address 
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POINTS 


» 


** Fi le name : HPIB 


*** 


479 


00000046 


226A 


0020 






MOVEA.L C ADR(B2) 


,B1 


get card address 








480 


0000004B 


4850 








PEB (HO) 
BRB HJJTB 




push return address back 


on 5 tack 






481 


00000O4C 


6003 


01C8 








call write byte 








482 








* 
















483 








* 




Read a word 












484 








* 
















485 




000 .' 


0050 


EXTH 


_EH 


RDU EQU » 












486 


00000050 


205-5 








MOVEA.L (SP)»,BO 




get return address 








487 


00000052 


265 F 








MOVEA.L (SP)+,B3 




get VAR address 








488 


00000054 


245' : 








MOVEB.L (SP +,B2 
MOVEA.L C BDR(R2) 




get temp address 








489 


00000056 


2 2 F.I 


0020 






,A1 


get card address 








490 


OOOOOOSfi 


485 








PEB (HO) 
BSR H ROB 




push return address back 


on stack 






491 


0O000O5C 


6100 


018B 








call read byte 








492 


00000060 


lfiOO 








MOVE.B DO~,DS 
BSR H RDB 




save byte 








493 


00000062 


6100 


0184 








read second byte 








494 


00000066 


E14D 








LSL.U #5", 05 




shift first by 
bring in low bits 








49S 


00000068 


1R0O 








MOVE.B DO, OS 










496 


00000O6B 


3685 








MOVE.U D5,(A3) 




save word 








497 


0000006C 


4E75 








RTS 












498 








* 
















499 








* 




Write a word 












500 








* 
















501 




0000 


006E 


EXTH 


_EH 


UTU EQU * 












502 


0O0O0O6E 


205 F 








MOVEB.L (SP)+,BO 




get return address 








503 


00000070 


3C1F 








MOVE.U SP)*,DO 




get word value 








504 


00000072 


245F 








MOVEB.L SP)+,B2 
MOVES . L C BDR(R2) 




get Temp address 








SOS 


00000074 


2260 


0020 






,fll 


get card address 








506 


00000078 


4850 








PEA (HO) 
MOVE.B 00, D5 




push return address back 


on stack 






507 


0000007B 


1A00 










save second byte 








S08 


0000007C 


E043 








LSR #8, DO 












509 


0000007E 


6100 


0196 






BSR H LJTB 




write the byte 








510 


00000082 


1005 








MOVE.B D5",D0 




get the second byte 








511 


00000084 


6000 


0190 






BRB HJJTB 




write the byte 








512 








* 
















S13 








* 




Read status 












514 








* 
















515 




0000 


0088 


EXTH 


_EH 


RDS EQU » 












S16 


00000088 


205 f 








' ttOVEB.L (SP)t,RO 




get return address 








S17 


0000008B 


265 >-' 








MOVEB.L (SP)+,R3 




get VAR address 








518 


0000008C 


321F 








MOVE.U (SP)*,D1 




get register number 








519 


0000008E 


245 = 








MOVEB.L SP)+,R2 




get temp address 








520 


00000090 


22611 


0020 






MOVEA.L C BDR(R2 ) 


Bl 


get card address 








S21 


00000094 


4550 








PEB (HO) 
BSR H ROS 




push return address back 


on stack 






522 


00000096 


6100: 


030E 








read status 








523 


O0000O9H 


3650 








MOVE.U D0",(B3) 




save status info 








S24 


0000009C 


4E75 








RTS 












S25 








* 
















526 








* 




Write control 












527 








* 
















528 




0000 


009E 


EXTH 


-EH 


UTC EQJJ « 












S29 


0000009E 


205 F 








~ MOVEB.L (SP)+,BO 




get return address 








S30 


OOOOOOBO 


301F 








MOVE.U SP)+,DO 




get value 








531 


0O0OOOB2 


32 IF 








MOVE.U SP)*,D1 




get register number 








532 


0000OOB4 


245F 








MOVEA.L |SP)*,R2 




get temp address 








533 


O00OOOA6 


2250 


0020 






MOVEA.L C B0R(A2) 


Bl 


get card address 








534 


OOOOOOflfl 


4850 








PEA (HO) 

BRA H UTC 




push return address back 


or stack 






535 


OOOOOOBC 


6000 


037E 








write control 
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536 








* 
















S37 








* 




Transfer 












S38 








* 
















539 




0000 


OOBO 


EXTH. 


.EH 


TFR EQU * 












54 


OOOOOOBO 


2055 








" MOVEA.L (SP)*,RO 




get return address 








541 


OO0O0OB2 


265F 








MOVEA.L (SP)+,A3 




get buffer control block 


address 






542 


OO000OB4 


2455 








MOVEA.L (SP)+,R2 
MOVEA.L C RDR(R2) 




get temp address 








54 3 


OO00OOB6 


226H 


0020 






Bl 


get card address 








544 


OOOOOOBR 


4 350 








PEA (HO) 
BRB H_TFR 




push return address back 


on stack 






545 


OOOOOOBC 


6000 


09FE 








t ransfer 








546 








* 
















S4 7 








* 




Send an 'ATN' true command 








548 








* 
















54 9 




0000 


OOCO 


EXTH_ 


.EH. 


SEND EQU * 












S50 


OOOOOOCO 


2051 








MOVEB.L (SP) + ,BO 




get return address 








551 


OO000OC2 


ion 








MOVE.B SP)*,DO 




get value ( thi 


actually 


bumps SP by 2 ) 




552 


0O00OOC4 


2455 








MOVEA.L SP;+,H2 
MOVEA.L C ADR(R2) 




get temp address 








553 


0O0OOOC6 


225 5 


0020 






Al 


get card address 








554 


OOOOOOCB 


4855 








PEB (HO) 
BRA H_R60UT 




push return address back 


on stack 






S5S 


OOOOOOCC 


6000 


0SC8 








send command byte 








556 








* 
















557 








* 




Perform a Parallel Poll 








558 








* 
















S59 




0000 


OODO 


EXTH_ 


.EH. 


PPOLL EQU * 












560 


OOOOOODO 


205 1 








' MOVEB.L (SP)+,HO 




get return address 








561 


O000OOD2 


265 F 








MOVEB.L SP *,B3 




get VflR address 








562 


00000004 


24 5 F 








MOVEB.L SP]*,B2 




get temp address 








563 


00000006 


2265 


0020 






MOVEB.L C ADR(B2) 


Al 


get card address 








564 


OOOOOOOB 


485C 








PEB (HO) 




push return address back 


on stack 






56S 


OOOOOOOC 


Si CO 


0490 






BSR H P POLL 




do a parallel poll 








566 


OOOOOOEO 


1680 








MOVE.B D0",TA3) 




save value 








567 


O00OOOE2 


4E75 








RTS 












568 








* 
















569 








* 




Set an HPIB line 












570 








* 
















571 




0000 


00E4 


EXTH_ 


.EH. 


SET EQU * 












572 


OO000OE4 


205F 








MOVEB.L (SP)*,BO 




get return address 








573 


O0000OE6 


321F 








MOVE.U SP *,D1 




get line ( this 


actually 


bumps SP by 2 ) 




574 


O0000OE8 


24 5 F 








MOVEB.L [SPU,R2 
MOVEB.L C BDR[f)2) 




get temp address 








575 


OOOOOOEfl 


226B 


0020 






Al 


get card address 








57S 


OOOOOOEE 


4 850 








PEB (HO) 
BRB H_SET 




push return add'-ess back 


on stack 






577 


OOOOOOFO 


6000 


04B0 








call set line 








578 








* 
















579 








* 




Clear an HPIB line 












580 








* 
















581 




0000 


00 F4 


EXTH^ 


EH. 


CLR EQU « 












582 


O0000OF4 


205 5 








MOVEB.L (SP)*,BO 




get return address 








583 


O0000OF6 


321f 








MOVE.U (SP)*,D1 




get line ( this 


act ually 


bumps SP by 2 ) 




584 


OO00OOF8 


24 51 








MOVEB.L (SPW.B2 
MOVEB.L C A0R(R2), 




get temp address 








S8S 


OOOOOOFB 


226:: 


0020 






Al 


get card address 








586 


OOOOOOFE 


435" 








PEB (HO) 




push return address back 


on stack 






587 


00000100 


6000 


0540 






BRB H_CLR 




clear the line 








588 








* 
















589 








* 




Test an HPIB line 












590 








* 
















591 




0000 


0104 


EXTH_ 


EH 


TEST EQU » 












592 


00000104 


205 F 








MOVEB.L (SP)*,BO 




get return address 
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593 
S94 
595 
596 
597 
S98 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 



00000106 26SF 
00000108 321F 
0000010R 245F 
0000010C 2260 0020 
00000110 4850 
00000112 6100 0576 
00000116 1680 
00000118 4E7S 



MOVEfi.L (SP)»,A3 get VAR address 
MOVE.U (SP)*,D1 get line 

get temp address 
get card address 

push return address back on stack 
H TEST read status 
DO", (A3) save character 



MOVEP 

MOVEfl 

PEB 

BSR 

MOVE.! 

RTS 



fSPj+,fi2 



( this actually bumps SP by 2 ) 



ADR(P2) ,fil 



0000 011ft EXTH EH END 

000001LR 205F MOVER 

0000011C 265F MOVER. L 

0000011E 245F MOVEP . L 

00000120 226R 0020 MOVEP,. L 

00000124 4850 PEP 

00000126 102R 0038 MOVE.B 

0000012P 0200 0001 RNDI.B 

0000012E 1680 MOVE.B 

00000130 4E75 RTS 



Test for EOI/END condition 
EQU 



SP)+,RO get return address 

SP)+,P3 get VfiR address 

SPJ+.P2 get temp address 

. ADR(A2),A1 get card address 

(A~0) push return address back on stack 
H STAT3(A2),D0 get EOR bit 

*T,DO mask it off 

DO, (A3) save condition 
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************* ********** ***** ********************************* *** ****** ********** 
* RDDRESS CONSTANTS 

********************* 



616 
617 
618 
619 
620 
621 
622 
622 
622 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 



********* 
0047 80O0 H_INT_Cfl 



EQU $478000 



******************************** 
address of internal HP-IB card 



******************************************************* 
HP-IB CARD ADDRESS EQUATES ( OFFSETS FROM Rl ) 
for the TI 9914 



HPL DECLARATIONS 







*********** 


**** 


r************ 


0000 


C005 


H EXTSTAT 


EQU 


$05 


RERD 


0000 


0011 


H INTOSTRT 


EQU 


$11 


READ 


0000 


con 


H~INTOMASK 


EQU 


$11 


URITE 


0000 


0013 


H INT1STRT 


EQU 


$13 


RERD 


ooco 


0013 


H INT1MPSK 


EQU 


$13 


URITE 


0000 


CO 15 


H RDRSSTRT 


FQU 


$15 


READ 


ooco 


0017 


H BUSSTAT 


EQU 


$17 


RERD 


ooco 


C017 


H AUXCMD 


EQU 


$17 


WRITE 


0000 


0019 


H RDDRESS 


EQU 


$19 


WRITE 


0000 


C01B 


H SPOLL 


EQU 


$1B 


URITE 


ooco 


C01D 


H CMDPRSS 


EQU 


$1D 


READ 


ooco 


coin 


H PPOLL 


EQU 


$1D 


URITE 


ooco 


001F 


H DATRIN 


EQU 


SI F 


RERC 


ooco 


001F 


H DATAOUT 


EQU 


$1F 


URITE 



******************************** 
EXTERNAL STATUS REGISTER 
INTERRUPT STATUS REGISTER 
INTERRUPT MASK REGISTER 
INTERRUPT STATUS REGISTER 1 
INTERRUPT MASK REGISTER 1 
RDDRESS STATUS REGISTER 
BUS STATUS REGISTER 
AUXILLARV COMMAND REGISTER 
ADDRESS REGISTER 
SERIAL POLL RESPONSE REGISTER 
COMMRND PASS THROUGH REGISTER 
PARALLEL RESPONSE REGISTER 
DATA IN REGISTER 
DATA OUT REGISTER 



:***************** 
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64? 
618 

64 9 

65 
651 
652 
653 
654 
655 
666 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
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File name: HPIB 



HP-IB AUXILIARY COMMAND EQUATES 
for the TI 9914 
HPL DECLARATIONS 



OGOO 0000 
OCOO 0080 
O00O 0001 
O00O 0081 
OOOO 0002 
OOOO 0003 
0000 0083 
OOOO 0004 
OOOO 0084 
OOOO 0005 
OOOO 0006 
OOOO 0086 
OOOO 0007 
OOOO 0087 
OOOO 0008 
OOOO 0009 
OOOO 0089 
OOOO OOOA 
OOOO 008A 
OOOO 0008 
OOOO OOOC 
OOOO OOOD 
OOOO OOOE 
OOOO 008E 
OOOO OOOF 
OOOO 008F 
OOOO 0010 
OOOO 0090 
OOOO 0011 
OOOO 0012 
OOOO 0013 
OOOO 0093 
OOOO 0014 
OOOO 0015 
OOOO 0095 
OOOO 0016 
OOOO 0096 
OOOO 0017 
OOOO 0097 



H_SURST0 

H_SURST1 

H_DBCRO 

H DACR1 

H RHDF 

H_HDFAO 

H_HDFB1 

H HDFEO 

H_HDFE1 

H NBflF 

H FGETO 

H_FGET1 

H RTLO 

H_RTH 

H_FEOI 

HJ.ONO 

H_L0N1 

H_TONO 

H T0N1 

HJ3TS 

H_TCA 

H_TCS 

H_RPPO 

H_RPP1 

H_SICO 

H SIC1 

H SREO 

H_SRE1 

H_RdC 

H RLC 

H DAIO 

H_DA 1 1 

H_PTS 

H STDLO 

H STDL1 

hTSHDUO 

H_SHDL)1 

H VSTDLO 

H VSTDL1 



EQU $00 
EQU $80 
EQU $01 
EQU $81 
EQU $02 
EQU $03 
EQU $83 
EQU $04 
EQU $84 
EQU $05 
EQU $06 
EQU $86 
EQU $07 
EQU $87 
EQU $08 
EQU $09 
EQU $89 
EQU SOA 
EQU S8A 
EQU SOB 
EQU $0C 
EQU SOD 
EQU SOE 
EQU $8E 
EQU SOF 
EQU $8F 
EQU $10 
EQU $90 
EQU $11 
EQU $12 
EQU $13 
EQU S93 
EQU $14 
EQU $15 
EQU $95 
EQU $16 
EQU $96 
EQU $17 
EQU $97 



FALSE 

TRUE 

FALSE 

TRUE 

PULSE 

FALSE 

TRUE 

FALSE 

TRUE 

PULSE 

FALSE 

TRUE 

FALSE 

TRUE 

PULSE 

FALSE 

TRUE 

FALSE 

TRUE 

PULSE 

PULSE 

PULSE 

FALSE 

TRUE 

FALSE 

TRUE 

FALSE 

TRUE 

PULSE 

PULSE 

FA_SE 

TRUE 

PU_SE 

FAuSE 

TRUE 

FHlSE 

TRUE 

FALSE 

TRUE 



SOFTWARE RESET 

RELEASE DAC HOLDOFF 

RELEASE RFD HOLOOFF 
HOLDOFF ON ALL DATA 

HOLDOFF ON END 

SET NEW BYTE AVAILABLE 
FORCE GROUP EXECUTE TRIGGER 

RETURN TO LOCAL 

FORCE EOI 
LISTEN ONLY 

TALK ONLY 

GO TO STANBY 

TAKE CONTROL ASYNCHRONOUSLY 
TAKE CONTROL SYNCHRONOUSLY 
REQUEST PARALLEL POLL 

SEND IFC 

SEND REN 

REQUEST CONTROL 
RELEASE CONTROL 
DISABLE ALL INTERRUPTS 

PASS THROUGH NEXT SECONDARY 
SET Tl DELAY (1200ns) 

SHADOW HANDSHAKE 

SPECIAL SET Tl DELAY FOR 9914A (600ns) 
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696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
7C7 
708 
709 
710 
711 
712 
713 
714 
71S 
716 



********* 



************ 



HP-IB command equates 
PASCAL DECLARATIONS 



OOOO 0001 


GTL 


EQU 


1 


OOOO 0004 


SOC 


EQU 


4 


OOOO 0005 


PPC 


EQU 


S 


OOOO 0008 


GET 


EQU 


8 


OOOO 0009 


TCT 


ECU 


9 


OOOO 0011 


LLO 


ECU 


17 


OOOO 0014 


OCL 


EQU 


20 


OOOO 0015 


PPU 


ECU 


21 


OOOO 0018 


SPE 


ECU 


24 


OOOO 0019 


SPD 


EQo 


25 


OOOO 003F 


UNL 


EQU 


63 


OOOO 005F 


UNT 


EQU 


95 


OOOO 0060 


PPE 


ECU 


96 


OOOO 0070 


PPD 


ECU 


11 



***************** 


************ 


go to 


local 




aelec 


ive device 


clea r 


ppoll 


configure 




group 


execute tri 


gger 


t ake cont rol 




local 


lockout 




device 


clea r 




ppoll 


unconf igu re 




spoil 


enable 




spoil 


disable 




unlisten 




unt al! 






ppoll 


enable 




ppoll 


disable 





** File name : HPIB *** 



********************* 



********** 



1-260 
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»** File name: HPIB 


*** 


719 














720 








* 


wwu TM 1/19/83 




721 








» SET THE PROCESSOR INTERRUPT LEVEL TO 


THE INTERFACE wuwu TM 1/19/83 




722 








» CARD'S INTERRUPT LEVEL 


wuwu TM 1/19/83 




723 








* 


wuwu TM 1/19/83 




724 








* Al MUST HAVE THE CARD ADDRESS 


wuwu TM 1/19/83 




72S 








* 


wuwu TM 1/19/83 




726 


00000132 


7000 




SET INT LEVEL MOVEQ #0,D0 


wuwu TM 1/19/83 




727 


00000134 


B3FC 
8000 


0047 


CMPfl.L #$478000, Al 


THIS THE INTERNAL HPIB? 




728 


0000013A 


6708 




BEQ.S INTLEV 1 


BRANCH IF SO 




729 


0000013C 


7030 




MOVES #$30,00" 


CARD'S INTERRUPT LEVEL MASK 




730 


0000013E 


C029 


0003 


AND.B 3(A1),D0 
LSR #4, DO 


INTERRUPT LEVEL IN UPPER NIBBLE 




731 


00000142 


E848 




SHIFT TO LOLJER NIBBLE 




732 


00000144 


5640 




INTLEV 1 ADDQ #3, DO 


CONVERT TO PROCESSOR'S INTERRUPT LEVEL 




733 


00000146 


E148 




LSL #8,00 


SHIFT TO UPPER BYTE 




734 


00000148 


3F0O 




MOVE DO,-(SP) 


SAVE FOR B MOMENT 




735 


0000014A 


40C0 




HOVE SR.DO 


CURRENT STATUS REGISTER 




736 


0000014C 


0240 


F8FF 


BNDI #$F8FF,D0 


STRIP CURRENT INT LEVEL BITS 




737 


00000150 


806F 




OR (SP)», DO 
MOVE DO.SR 


SUBSTITUTE NEW INT LEVEL BITS 




738 


00000152 


4600 




SET NEU INTERRUPT LEVEL 




739 


00000154 


4E7S 




RTS 


wuwu TM 1/19/83 
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21:29:28 IOLIB EXTH - HPIB DRIVERS 


»»« File name: HPIB 


*** 


741 








**#***#*******************************#*******]M******************************** 




742 








* 






743 








* H I NIT 






744 








* 






745 








» INITIALIZE AN HP-IB CARD 






74S 








* 






747 








* HPL ROUTINE ( MODIFIED ) 






748 








* 






749 








a******************************************************************************* 




750 




0000 


015$ 


H INIT EO.U * 






751 








* tm I-10VE.B MP(B2),D0 
MOVE.U #21, DO 


ASSUME THIS IS NOT POUER UP AND 




752 


000001S6 


303C 


0015 


ASSUME THIS IS THE INTERNAL CARD 




753 


00O0015A 


0829 
0005 


0007 


BTST #7,H_EXTSTBT(A1) 


SO CHOOSE BODRESS 21 IF THIS 




754 


00000160 


6604 




BNE .S H INIT C 


IS SYSTEM CONTROLLER ELSE 




755 


00000162 


30 3C 


0014 


MOVE.U #2"0,D0 


CHOOSE ADDRESS 20. 




756 


00000166 


B3FC 
8000 


0047 


H_INIT_C CMPA.L #H_INT_CA,A1 


IS THIS THE INTERNAL CARD? 




757 


00O0016C 


6710 




BE8.S H INITO 


IF SO, SKIP 




758 


0000016E 


1029 


0005 


MOVE.B H EXTSTAT(Al) ,D0 


ELSE GET ADORESS FROM CARD 




759 


00000172 


C07C 


001F 


AND #$1F.D0 
CMP #31,00 






760 


00000176 


B07C 


00 IF 


IF CARD SAYS IT IS AT ADORESS 




761 


0000017B 


6602 




BNE.S H INITO 


31, THEN USE ZERO INSTEAD! 




762 


0000017C 


7000 




MOVEQ #0",D0 






763 


0OO0017E 


137C 

0017 
6106 


0010 


H_INITO MOVE.B #H_SRE0,H_AUXCMD(A1) 


set REN false 




764 


00000184 




BSR.S H INIT S 


START SOFTUBRE RESET 




765 


00000186 


6600 


044B 


BNE H IFC 


IF SYSTEM CONTROLLER, BRANCH 




766 


00O0018A 


4E76 




RTS 






767 








a*:****:******************** *************************************************X**X* 




768 








* 






769 








* H INT S 






770 








* 






771 








» SUBROUTINE USED FOR BOTH INITIALIZATION AND wtc: 




772 








* 






773 








« HPL ROUTINE 






774 








* 






775 








*****K*X***XX********X**************«** 


a**************************************** 




776 


0OO0018C 


137C 

0017 


0080 


H_INIT_S MOVE.B #H_SLRST1 ,H_BUXCMD (Al ) 


START SOFTUARE RESET 




777 


00000192 


3540 


0032 


MOVE.U DO, MA U(A2) 
MOVE.B DO.H HDDRESS(Al) 
JSR AB0RT_IO 


SAVE MY ADDRESS 




778 


00000196 


1340 


0019 


AND TELL CARD MY ADDRESS 




779 


0OO0019A 


4EB9 


0000 


CLEANUP ANY ATTACHED BUFFER 








0000 










780 


OOOOOlflO 


41E9 


0017 


LEP H AUXCMD(A1),A0 


MAKE AO POINT TO BUX CMD REG 




781 


000001B4 


7000 




nOVEQ #0~,D0 


AND PRELOAD DO UITH A ZERO 




782 


0OOO01B6 


108C 


009S 


MOVE.B #H STDL1, (BO) 
MOVE.B #H VSTDL1 , (AO) 


SET Tl DELAY M200NS) 

SET Tl DELAY FOR 9914B (600NS) 




783 


OOOOOlflfl 


10BC 


0097 




784 


OOOOOlfiE 


0189 


0011 


MOVEP DO,H INTOMBSK(Bl) 


FOR NOU, CLEAR BOTH INT MASKS 




785 


000001B2 


3540 


0034 


MOVE.U DO,H TNTOC0PY(B2) 


CLEAR COPYS OF INT STAT REGS 




786 


00O001B6 


3540 


0038 


MOVE.UI DO,H STBT3(B2) 
MOVE.B #H HtfFAl, (BO) 


INIT. DRIVER FLAGS 




787 


0OO001BA 


10BC 


0083 


SET HOLD OFF ON ALL DATA 




788 


000001BE 


10BC 


0004 


MOVE.B #H HDFEO, BC 


CLEAR HOLD OFF ON ENO 




789 


000001C2 


10BC 


OOOE 


MOVE.B #H RPPO, (AO) 
MOVE.B DO,H SP0LL(P1 ) 


CLEAR PAR. POLL IF ACTIVE. 




790 


000001C6 


1340 


001B 


CLEAR SERIAL POLL RESPONSE 




791 


000001CA 


1340 


001D 


MOVE.B DO,H PP0LL(A1 ) 


UNCONFIGURE PARALLEL POLL 




792 


000001CE 


3540 


003A 


MOVE.U DO,H PP0LLMSK(B2) 


CLEAR PPOLL MASK 


1-261 
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000001D2 10b: 0000 



HPIB DRIVERS 



793 
791 
795 
796 

J97 



000001D6 6100 02EC 


BSR 


000001DA 137; 0080 


MOVE 


000 3 




000001E0 082 3 0007 


BTST 


O0O3 




000001E6 4E"3 


RTS 



MOVE .8 #H_SURSTO, (fiO) 
MOVEQ #0,D0 
BSR H EIR 
MOVE.B #f8C,3(Al 1 

#7,H_EXTSTAT(A1) 



*** File name: HPIB *** 

CLEAR SOFTWARE RESET 
SET UP INT MASKS 

ENfiBLE THE CARD ( hphp TM 1/19/83 ) 

IS THIS A SYSTEM CONTROLLER? 

(LEAVE CC FOR CULLER) 
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************************************************ 

* 

« H_RDB 

» READ A BYTE OF DATA FROM HP-IB 
* 

* EXIT: DO.B = BYTE READ 

* HPL ROUTINE 



800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 



813 

814 



816 

817 

818 
819 
820 
821 
822 
822 
822 
822 
822 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
532 
833 
834 

835 

836 

837 
838 

839 
84 
84 
84 
84 



*** File name: HPIB *** 



000001E8 137C OOOB H RDB 

0017 
000001EE 0829 0002 

001 = 
O00O01F4 6754 
000001F6 08AF 0007 H_RDBO 

0033 
000001FC 670C 
000001FE 08AA 0000 

0038 
00000204 137C 0002 

0017 
O000020H 6100 OOFO H_RDB1 
OO00020E 7000 
00000210 1029 001F 
00000214 4E75 



MOVE.B #H_GTS,H_AUXCMD(A1) 
BTST #2,H_ADRSSTAT(A1 ) 



*************************** 



BEQ.S 
BCLR 



BEQ.S 
BCLR 



H LSTERR 
#7,H_FLPGS(A2) 

H RDB1 
#0",H_STAT3(A2) 



CLEAR ATN 

MAKE SURE ADDRESSED TO LISTEN 



ELSE GIVE ERROR 
TEST (AND CLEAR) 



HOLDOFF FLAG 



MOVE.B #H_RHDF,H_fiUXCMD(Pl) 
31 

, DO 



BSR H UAIT_ 

MOVEQ #0". DO 
MOVE.B H DATAOUT(Al) 
RTS 



IF IT WAS CLEAR, SKIP 

CLEAR EOR ( EOI ) FLAG IN TEMPS 

RELEASE RFD HOLDOFF TO START HS 

NOD UAIT FOR BYTE IN 
ELSE CLEAR UPPER PART OF DO 
AND PUT DATA IN LOUER BYTE 
DONE! 



******** 
00000216 0829 0001 HJJTB 

0015 
0000021C 6730 
0000021E 13TC OOOB HJJTBO 

0017 
C0000224 6100 0044 H UTB1 
('0000228 1340 001F 
0000022C 4E7S 



******** 


*********************** 


************** 


********* 


***** 


HJJTB 














WRITE 


A BYTE OF DATA TO HP-IB 












ENTRY : 


DO.B = BYTE TO URITE 












HPL ROUTINE 












******** 
BTST 


#1,H_RDRSSTAT(A1) 


**************************** 
MAKE SURE ADDRESSED TO TALK 


BEQ.S 
MOVE.B 


H TLKERR 
#FLGTS,H_AUXCMQ(A1) 


ELSE ERROR 
CLEAR ATN 








BSR 

MOVE.B 

RTS 


H UAIT BO 
D0\H_0A"TA0UT(A1) 


UAIT 

MOVE 
DONE 


FOR BYTE 
THE DATA 


OUT 
OUT 







*********** 



*********** 



1-262 
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843 
844 
84S 
846 
847 

848 0000022; 7008 

849 00000233 6022 

850 00000232 7014 

851 00000234 601E 

852 00000236 7003 

853 00000238 601ft 

854 0000023=1 7012 

855 0000023C 6016 

856 00O0023E 7007 

857 00000240 6012 

858 00000242 700D 

859 00000244 500E 

860 00000246 700E 

861 00000248 600ft 

862 0000024ft 7010 

863 0000024C 6006 

864 0000024E 700F 

865 00000250 6002 

866 00000252 7011 



21:29:28 IOLIB EXTH - ERROR ESCAPES 

*********** ********************> 
* 

* Error escapes 

H SCBSY MOVEQ #SC_BUSY,DO 

BRfl.S ESC ERR 

H_SC_ERR MOVEQ #8ftD~ SCT.DO 

BRR .S ESC ERR 

H NOTBCTL MOVEQ #NO_HCTL,D0 

BRR.S ESC_ERR 

H N0TSC1L MOVEQ #N0 SCTL.DO 

BRR .S ESC ERR 

HTERR B MOVEQ #TFR" ERR, DO 

BRfl.S ESC E"RR 

HTERR MOVEQ #NO_DMA,DO 

BRA S ESC ERR 

H NOUORD MOVEQ #NOJJORD,D0 

BRA.S ESC ERR 

H LSTERR MOVEQ #NOT LSTN.DO 

BRfl S ESC E"RR 

H TLKERR MOVEQ #NOT TALK, DO 

BRfl .s esc Err 

H TMO MOVEQ #TMO~ ERR, DO 

* BRfl.S ESCJ-RR 



***************** 



*********** 



*»* File name: HPIB 
***************************** 



************************* 



buffer is busy 

bad set/clear/test 

not active controller 

not system controller 

bad transfer specification 

Drift not installed 

WORD transfers not allowed 

not addressed as listener 

not addressed as talker 

timeout 



868 
868 
869 
870 
871 
872 
873 

874 



00000254 48C0 ESC_ERR 
00000256 2B40 FFBE 
0000025H 102ft 002D 
0000025E 2B40 FFBft 
00000262 3B7C FFE6 

FFFE 
00000268 4E4fl 



EXT.L DO 

MOVE.L D0,IOE RSLT(B5) save error in io space 

MOVE.B I0_SC(fl"2) ,DO \ get sc for error 

MOVE.L DO.IOE SC(flS) / 

MOVE.UI #I0E_ER"R0R,ESC_C0DE(A5) save system esc code 

TRAP #10 escape 



876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 



890 
891 
892 
893 
894 
895 



900 
901 
902 
903 
904 
9C5 
906 
907 
908 
909 
910 
911 
912 
913 

914 
915 
916 
917 
918 
919 
320 
92! 
922 
923 
924 
925 
926 
927 
928 
S23 
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***************************************** 

* 

* HP-IB LIBIT ROUTINES 



*** File name: HPIB *** 
********************************* 



ENTRY: 



H_UHIT_B0 
H UHIT BI 



UflIT FOR BO STATUS TO BE TRUE 
UHIT FOR BI STATUS TO BE TRUE 



IF CONDITION IS OR COMES TRUE, RTS. 
THE ERROR ESCAPE IS GENERftTED 

IF TIMEOUT > AND <TIME0UT> MS HAS EXPIRED, OR 

DUPING THE FIRST 1-2 MS OF THE UlftlT, A QUICK CHECK ALGORITHM IS 

USED LIHICH DOES NOT CHECK THE TIMEOUT - THUS IF 

THE DATA RATE IS > 1 KB, NO TIMEOUT DETECTION OVERHEP.D OCCURS. 



HPL ROUTINE ( MODIFIED ) 



0000026ft 243C OOOO 
OOFE 



>£ % %■ '-- * * #■ 'M&. 7ft -. S * * 5 sK * * % ^ '^ ^ # t- * 

H_UAIT_BO MOVE.L #254,02 



Quick check counter was 127 
ALSO CHANGED MOVEQ TO MOVE. 



************* 
D2 



********************************* 
QUICK CHECK LOOP COUNTER 



changed to 254 



tttt JS 8/1/83 



00000270 
00000274 
00000278 
0000027ft 
0O00027E 
0000028 
00000284 
00000288 
0000028H 



1229 
B27C 
6306 
6100 
7200 
822A 
0801 
662E 
51CR 



0OO0028E 242A 

000002S2 671A 

00000294 0838 

FEDA 



0011 
003F 



0034 
0004 

FFE4 

002E 

0001 



MOVE.B H INT0STAT(A1 ),D1 
CMP #I3F,D1 
BLS.S HJJBO 2 

BSR H FAKEISR 

MOVEQ #0",D1 
OR.B H INT0C0PY(fi2),Dl 
BTST #4~,D1 
BNE ,S H W DONE 
DBRH D2",H"_UB0_1 

MOVE.L TIME0UT(R2) ,D2 

BEQ.S H UBO 5 

BTST ♦TIMER" PRESENT, SYSFLAG2 



GET THE INTERRUPT STATUS 

IF IN READING THE STATUS UE MISSED AN 

AN INTERRUPT, THEN UE HAVE TO 

FAKE BISR CALL... DUMB HfiRDURRE! 

THIS IS IN CfiSE ISR LEFT STUFF HERE 

BYTE OUT? 

IF SO, GET OUT; 

ELSE LOOP BACK 

OK, SET UP TO UflTCH FOR TIMEOUT, ETC 
if =0 goto inf loop 
CHECK IF TIMER THERE tttt JS 8/1/83 



0000029ft 673C 


BEQ.S 


* tm 


MULU 


000002SC ED8A 


LSL.L 


0000029E 6100 00D4 H UBO 3 


BSR 


000002B2 0801 0004 


BTST 


000002S6 6614 


BNE .S 


000002P8 5382 


SUBQ. 


000002PB 66F2 


BNE 


000002PC 6022 


BRfl .S 



000002AE 6100 
000002E2 0801 
00000266 67F6 

000002E8 832A 

000C02BC 022ft 

0034 



00C4 
C0C4 



H UBOT 

#6~0,D2 

#6,D2 

H GETSTAT 

#<T,D1 

H WAIT Dl 

#T,D2 

H UBO 3 

H T110 ERR 



BSR H GETS T HT 
BTST #4~,D1 
BEQ H UBO 5 



C034 
COCF 



HJJ DONE OR.B Dl .H_INTOCOP v [A2) 
H_UA~IT_D1 RNDI.B #$CF, H__INTOCOPY ( A2 ) 



YES, USE IT tttt JS 8/1/83 

60 TIMES THROUGH LOOP = 1 MS 
I * 64 IS CLOSE ENOUGH ) 
GO GET STATUS 
BYTE OUT? 

YES, GET OUT OF HERE! 
LOOP UNTIL GRACE PERIOD DONE 

GIVE ERROR 

ELSE TRY AGAIN FOR STATUS 

IF NOT SET, KEEP WAITING 

SfiVE ANY STATUS BITS UE DIDN'T USE 
CLEAR BO/BI BITS 



1-263 
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*** File name : HPIB 



330 
931 
932 

933 
934 
934 
934 
934 
935 
936 
937 
938 
939 
940 
941 
94 2 
94 3 

944 
94 5 
946 
947 
948 
949 
950 
950 
950 
950 
951 

952 
953 
954 
955 
956 
957 
953 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 

969 
970 
971 
972 
973 
974 
975 
9 ; 6 



000002C2 0801 0005 
000002C6 6706 
000002C6 08EA 0007 

0039 
000002CE 4E76 



BTST 

BEQ.S 

BSET 

HJJAIT 02 RTS 



#5,01 

H UAIT D2 

#7,H FLAGS(A2) 



00000200 832P 0034 H_TMC ERR 
00000204 6000 FF7C 
000002D8 1F3C O001 H UBOT 
000002DC 2F02 

000002DE 6100 0094 H UB0T1 
000002E2 0301 0004 
000002E6 6610 



000002E8 4857 
000002EA 4E89 
0000 
O00002FO 6AEC 
000002F2 5.]4F 
000002F4 743C 
000002F6 60P.6 
000002F8 5C4F 
000002FA 60C0 



0000 



OR.B Dl.H INT0C0PV(A2) 

BRA H friO" 

MOVE.B #T, -(SP) 

MOVE. I D2,-(SP) 

BSR H GETSTAT 

BTST #J,D1 

BNE.S H UB0T2 

PEP (5P) 

JSR CHECK TIMER 



DID UE GET P. BYTE IN? 

IF NOT. SKIP 

ELSE SET HOLDOFF FLBG 



SAVE ANY STATUS BITS NOT USED. 



BPL 

RDOQ 

novEQ 

BRA 

ADDS 

BRA 



H UB0T1 

#6",SP 

#60,02 

H UBO 3 

#6",SP 

H UAIT Dl 



SETUP TIMER RECORD 

CHECK FOR BYTE OUT 
80 SET? 

YES. GET OUT OF HERE 
ELSE CHECK TIMER 



BR IF NOT TIMED OUT 
TIMEOUT, GIVE ONE 
MORE CHANCE UIITH 
SHORT TIMEOUT 
CLEAN UP STACK 
AND RETURN 



ttt JS 8/1/83 

ttt JS 8/1/83 

ttt JS 8/1/83 

ttt JS 8/1/83 

ttt JS 8/1/83 

ttt JS 8/1/83 

ttt JS 8/1/83 

ttt JS 8/1/83 

ttt JS 5/2/84 

ttt JS 5/2/84 

ttt JS S/2/84 

ttt JS 8/1/83 

ttt JS 8/1/83 



000002FC 243C 0000 H UAIT 81 MOVE. 
00 FE 



Quick timeout count was 127, changed to g< 
tttt JS 8/1/83 ALSO CHANGED MOVEQ TO 



QUICK CHECK LOOP COUNTER 



t 1 MS on 16 MHz processor 
MOVE . L 



00000302 1229 0011 H UBI 1 
00000306 B27C 003F 
0000030A 6306 
0000030C 6100 007E 
00000310 7200 

00000312 822A 0034 H UBI 2 
00000316 0801 0005 
0000031A 669C 
0000031C 51CP FFE4 

00000320 242A 002E 
00000324 671H 
00000326 0838 0001 

FEDA 
0000032C 6720 

* tm 
0000032E ED8A 

00000330 6100 0042 H UBI 3 
00000334 0801 0005 
00000338 6682 
OO00O33A 5382 
0000033C 66F2 



MOVE.B H INTOSTflTfftl' 
CMP #$3F,01 
BLS.S H UBI 2 

BSR H FAKEISR 

MOVEQ tiJ.Dl 
OR.B H INT0C0PY(A2! 
BTST #5,01 
BNE.S H U DONE 
DBRA D2~,F? UBI 1 



,01 



GET THE INTERRUPT STATUS 

IF IN READING THE STATUS UE MISSED RN 

AN INTERRUPT, THEN UE HAVE TO 

FAKE AISR CALL... DUMB HAROUARE! 

THIS IS IN CASE ISR LEFT STUFF HERE 

BYTE IN? 

IF SO, GET OUT! 

ELSE LOOP BACK 



MOVE.L TIMEOUT (A2 
BEQ.S ■■■■-- - 



,02 



BTST 

BEQ.S 

MULU 

LSL.L 

BSR 

BTST 

BNE.S 

SUBQ.L 

BNE 



OK, SET UP TO UATCH FOR TIMEOUT, ETC 
H UBI 5 if -0 goto in f loop 

#TIME*_PRESENT,SYSFLAG2 CHECK FOR TIMER tttt JS 8/1/83 



H UBIT 

#6"0,D2 

#6,02 

H GETSTAT 

#5,01 

H UAIT Dl 

#T,D2 

H UBI 3 



IF THERE USE IT tttt JS 8/1/83 
60 TIMES THROUGH LOOP = 1 MS 
( * 64 IS CLOSE ENOUGH ) 
GO GET STATUS 
BYTE IN? 

YES, GET OUT OF HERE! 
LOOP UNTIL GRACE PERIOD DONE 
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977 0000033E 6090 

979 00000340 6100 0032 H UBI S 

980 00000344 0801 0005 

981 00000348 6600 FF72 

982 0000034C 60F2 

983 0000034E 1F3C 0001 H UBIT 

984 00000352 2F02 

985 00000354 6100 001E H UBIT1 

986 000003S8 0801 0005 

987 0000035C 6610 

988 0000035E 4857 

989 00000360 4EB9 0000 

oooo 

990 M0003S6 6AEC 

991 L 0000368 5C4F 

992 0000036A 743C 

993 0000036C 60C2 

994 0000036E SC4F H UBIT2 

995 00000370 6000 FF4H 



BRA.S 


H_TMO_ERR 


IF SO, GIVE ERROR 


BSR 


H GETSTAT 


ELSE TRY AGAIN FOR STA 


BTST 


#5,D1 




BNE 


H UAIT Dl 


IF SET, GET OUT! 


BRA 


H~UBI 5 




MOVE.B 


#T,-(3PJ 


SET UP TIMER RECORD 


MOVE.L 


D2,-(SP) 
H GETSTAT 




BSR 


GET STATUS 


BTST 


#5,D1 


CHECK FOR BI SET 


BNE.S 


H UBIT2 


IF GOTIT THEN EXIT 


PEA 


CHECK_TIMER 


ELSE CHECK TIMER 


JSR 




BPL 


H UBIT1 


BR IF NOT TIMED OUT 


ADDQ 


#6",SP 
#60, D2 
H UBI 3 


TIMEOUT, GIVE ONE MORE 


MOVEQ 


CHANCE UITH SHORT 


BRA 


TIMEOUT COUNT 


ADCQ 


#5,SP 


CLEAN UP TIMER RECORD 


BRA 


H UAIT Dl 


AND GET OUT 



*** File name: HPIB *** 



tttt JS 8/1/83 

tttt JS 8/1/83 

tttt JS 8/1/83 

tttt JS 8/1/83 

tttt JS 8/1/83 

tttt JS 8/1/83 

tttt JS 8/1/83 

tttt JS 8/1/83 

tttt JS S/2/84 

tttt JS 5/2/84 

tttt JS 5/2/84 

tttt JS 8/1/83 

tttt JS 8/1/83 
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*** File name: HPIB 


*** 


997 








********* 


*********************************************************************** 




998 








* 








999 








* H 


_GETSTAT 






1000 








* 








1001 








* 


SUBROUTINE TO GET INTOSTAT 


AND INSURE UE DON'T MISS AN 




1002 








* 


INTERRUPT 






1003 








* 








1004 








* 


HPL ROUTINE 






1005 








* 








1006 








************************************* 


******************************************* 




1007 


00000374 


1229 


0011 


H_GETSTBT 


MOVE.B H INT0STAT(A1),D1 


GET CURRENT INTERRUPT STATUS 




1008 


00000378 


B23C 


003F 




CMP.B #I3F,D1 
BLS.S H G STAT1 


DID UE MISS AN INTERRUPT? 




1009 


0000037C 


6304 






IF NOT, THEN DONE 
ELSE FAKE AN ISR CALL 




1010 


0000037E 


610C 






BSR.S H FPTKEISR 




1011 


00000380 


7200 






MOVEQ #0",D1 

OR.B H INT0C0PY(A2),D1 

OR.B DT,H INT0C0PY(A2) 


AND JUST USE THE COPY 




1012 


00000382 


8220 


0034 


H_G_STAT1 


INCLUDE ANY SAVED BITS 




1013 


00000386 


832A 


0034 








1014 


0000038P! 


4E7S 






RTS 






1015 
















1015 
















1015 
















1016 








******************************************************************************** 




1017 








* 








1018 








* H 


_FAKEISR 






1019 








* 








1020 








* 


SUBROUTINE TO FAKE AN ISR IN CASE AN INPUT FROM INTOSTAT 




1021 








* 


CAUSED HARDWARE TO MISS 


AN INTERRUPT. 




1022 








* 








1023 








* 


ENTRY: Dl.B = INTOSTAT(Al) 


UHICH CAUSED INTERRUPT 




1024 








* 








1025 








* 


HPL ROUTINE ( riODIFIED ) 






1026 








* 








1027 








********* 


*********************************************************************** 




1028 


0000038C 


4E4B 




H FAKE ISP, 


TRAP *11 


GET INTO SUPERVISOR MODE scs 




1029 








* scs 


MOVE SR,-(SPJ 

MOVEM.L DO-D7/A0-A6, -ISP) 

OR.B Dl.H INT0C0PYJA2) 


PUT SR ON STACK FOR ISR'S RTE 




1030 


0000038E 


48E7 


FFFE 




SAVE REGISTERS 




1031 


00000392 


832A 


0034 




PUT BYTE WHERE ISR UILL SEE IT 




1032 


00000396 


6100 


FD9A 




BSR SET TNT LEVEL 


DISABLE CARD INTRS wuwu TM 1/19/83 




1033 


0000039A 


4EBP 


03D4 




JSR H ISR 


CALL ISR 




1034 


0000039E 


4CDF 


7FFF 




MOVEM.L (S"P)t,D0-D7/A0-A6 
MOVE (SP)+,SR 


RESTORE REGISTERS 




1035 


000003A2 


46DF 






RESTORE USER MODE scs 




1036 


000003A4 


4E75 






RTS 


scs 




1037 








* scs 


RTE 


Re-enable interrupts and get SR off stack 
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*** File name: HPIB 


*** 


1039 








********* 


*********************************************************************** 




1040 








* 








1041 








* H 


_RDS 






1042 








* 








1043 








* 


READ STATUS 






1044 








* 








1045 








* 


PASCAL ROUTINE 






1046 








* 








1047 








********* 


*********************************************************************** 




1048 




0000 


0002 


H ROUTINE 


EQU 2 






1049 




0000 


0001 


H TEMP 


EQU 1 






1050 




0000 


0000 


H CRDREG 


EQU 






1051 








* 








1052 








* 








1053 


000003fl6 


41FA 


0072 


H_RDS 


LEA H RDSTBL.AO 


get pointer to lookup table 




1054 


000003AA 


D241 






AOO.LJ DT.D1 


multiply the rds register by 2 




1055 


000003AC 


B23C 


0012 




CMP.B (*H RT SIZ.D1 


\ check for out of bounds 




1056 


000003E0 


6C1E 






BGE.S R05" Eft"R 


/ 




1057 


000003B2 


3030 


1000 




MOVE.U 0(AO".01),DO 
BMI .S ROS ERR 


get the table entry 




1058 


000003E6 


6B18 






if the entry is then error 




1059 


000003B8 


B03C 


OOOl 




cmp.b #h Temp, do 






106O 


000003BC 


S718 






BEO.S HR TEMP 






1061 


000003BE 


6D1E 






BLT.S HR CARD 






1062 


000003C0 


E048 






LSR #8700 
BEO.S H RDS ID 


get the routine offset 




1063 


000003C2 


6726 






status rtn - card id 




1064 


000003C4 


5340 






SUBQ #T,DO" 
BEO.S H RDS CS 






■ 1065 


000003C6 


6728 






status 3 - Ctrl status + address 




1066 


000003C8 


5340 






SUBQ #T,DO 
BEO.S H RDS ST 






1067 


000003CA 


6736 






status 6 - chip state 




1068 


000003CC 


5340 






SUBQ #T.DO 
BEO.S H RDS LI 






1069 


000003CE 


673E 






status 7 - bus lines 




1070 








* 


BRA . S RUS_ER"R 


there are no more status 'routines' 




1071 
















.1071 
















1072 


000003DO 


7013 




RDS_ERR 


MOVEQ #BAO RDS, DO 


bad read status 




1073 


000003D2 


6000 


FE80 




BRfl ESC_E"RR 






1074 
















1074 
















1075 








* 








1076 








* 


retrieve temps as words 






1077 








* 








1078 


000003D6 


E048 




HR_TEMP 


LSR #8, DO 
MOVE.U 0(02, DO) ,D0 


get temp offset 




1079 


0OO003D8 


3032 


0000 




get the value 




1080 


000003DC 


4E75 






RTS 






1081 
















1081 
















1081 
















1082 








* 








1083 








* 


retrieve card registers as 


bytes 




1084 








* 








1085 


0OOO03DE 


E048 




HR CARD 


LSR #8, DO 
MOVE.B 0(A1.D0),D0 
PNOI .U MOOFF.DO 


get the card offset 




1086 


0OO003E0 


1031 


0000 


HR_CARD1 


get the value 




1087 


000003E4 


0240 


OOFF 




mask off garbage 




1088 


000003E8 


4E7S 






RTS 






1089 
















1089 
















1089 
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** Fi]e name: HPI 



1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1109 
1110 
1111 
1112 
1113 
1114 
1114 
1114 
1114 
1115 
1116 
1116 
1117 
1117 
1118 
1118 
1119 
1119 
1120 
1120 
1121 
1121 
1122 
1122 
1123 
1123 
1124 
1124 
1125 
1126 



000003EA 303C 0001 H_RDS_ID 

* tm 

* tm 
000003EE 4E75 



000003FO 1029 0005 H RDS CS 
000003F4 0840 0006 
000003F8 0240 00C0 
000003FC 002A 0033 
00000400 4E7S 



00000402 S1EC H_RDS ST 
00000404 1229 0015 
00000408 E149 
0000040H 0041 
OO00O40C 4E75 



0000040E 1029 0017 H RDS LI 

00000412 E148 

00000414 1029 001F 

00000418 4E75 



0000 041P, H RDSTBL 
0000041A 00 
0000041B 02 
0000041C 03 
0000041D 00 
0000041E 63 
0000041F 02 

00000420 01 

00000421 02 

00000422 34 

00000423 01 

00000424 36 

00000425 01 

00000426 02 

00000427 02 

00000428 03 

00000429 02 
0000042H ID 
0000042B 00 

0000 042C H_RT END 
0000 0012 H_RT SIZ 



card id 

MOVE.U #1,00 
CMPA.L #H_INT Cfi.Al 
BNE.S HR CHRtJl 
RTS 



MOVE.B H EXTSTAT(fil ),D0 

BCHG #6", DO 

fiNDI .U #$CO.D0 

ADD.B MA(A2),D0 

RTS 



BSR H_RDS CS 

I10VE.B H P,DRS~STPT(A1) ,D1 

LSI #8", 01 

ADD. 1) D1.00 

RTS 



HOVE.B H BUSSTHT(Al) ,00 

LSL #8~.D0 

MOVE.B H DATP,IN[A1) ,00 

RTS 



is this the internal card ? 



get sys ctl and active ctl 
complement NOT actv ctl 
mask bits 
get my address 



get sys/act ctl and address info 
get chip state 



EQU 
DC.B 


0,H_R0UT1NE 


DC.B 


3,H_CRDREG 


DC.B 


99,H_R0UTINE 


DC.B 


1 ,H ROUTINE 


DC.B 


H_INIGCOPY,H_TEMP 


DC.B 


H_INTMSKSAV,H_TEMP 


DCS 


2,H_R0UTINE 


DC.B 


3,H_R0UTINE 


DC.B 


H_CnDPASS,H_CRDREG 


EQU 
F.j 


H RT END-H RDSTBL 



put together in 00 



9et bus lines 
get dat a lines 



status - routine - card id 

status 1 - card reg 3 - intr/dma status 

status 2 - not implemented 

status 3 - status&addr - sys 8, act ctl my addr 

status 4 - temps 

status 5 - temps 

status 6 - card reg 21+ - state 

status 7 - card reg 23 - bus state 

status 8 - card reg - command 

size of table 



0000042C 0C41 0006 H UTC 
00000430 6C9E 
00000432 48C1 
00000434 D281 
00000436 4EFB 1002 



********** ******************* 
HJJTC 

WRITE CONTROL 

ENTRY: DO .U = PARAMETER 

CMPI .Ul #6,D1 
BGE.S RDS ERR 
EXT.L Dl " 
ADO.L D1.D1 
JMP HUTCTBL(Dl) 



0000043H 6012 


FWTCTBL 


BRA.S 


H UTC RST 


0000043C 604E 




BRfi.S 


H RQS 


0000043E 6038 




BRfi.S 


rCUTC PPC 


00000440 6010 




BRfi.S 


fTutc sns 


00000442 608C 




BRfi.S 


RD"S ER~R 


00000444 607E 




BRfi.S 


H ETR 
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1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1142 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1149 

1149 

1149 

1149 

1150 

1161 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1173 

11 '1 

1175 

1176 

1176 



*** File name: HPIB *** 



\ check for ctl limits 



CONTROL - DO A RESET 

CONTROL 1 - set SRQ response 

CONTROL 2 : ppoll configure 

CONTROL 3 - set my addr 

CONTROL 4 : not used 

CONTROL 5 : enable intrpts 



***********************************#** ************************* 
HPLJJTC 

LJRITE CONTROL TO HP-IB ( alter my addr or set ppoll conf. ) 
PARAMETER 



i********* 



ENTRV: 
NOTE: 



DO.U 

This command was illegal on a 9825. Or WILDFIRE, it is used 
to alter the HP-IB address of a given card and/or reset the 
card without generating IFC or locally configure the 
parallel poll response: 

wtc 7,20 will change address to 20 3nd reset card 
wtc 7,31 will reset the card without changing addr 
wtc 7,<configure byte> will do PP configure. 



HPL ROUTINE ( MODIFIED 



00000446 B07C 001 F HPL WTC 

OO00044A 621E 

0000044C 6604 HPL WTCO 






CMP 
BH1.S 

BNE.S 



#31, DO 

HPL UTC3 
HPLTJTC1 



0000 044E H_UTC_RST EQU * 

0000044E 102A 0033 MOVE.B MH(A2) 



MAKE SURE PfiRtl 1:3 0. .31 

IF NOT, GO TO PPOLL CONFIGURE 

IF PARtt <31, THEN 3KIP 



ELSE USE PREVIOUS ADDRESS 
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*** File name: HPIE 



1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1185 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1191 
1191 
1192 
1193 
1194 
U9S 
1196 
1197 
1198 
1199 
1200 
1200 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 

1220 
1221 
1222 
1223 
1224 

1225 



0000 0452 H UTC SMB EQU 



00000452 1F29 0005 HFL UlTCl 

00000456 6100 FD34 

000004SB 081F 0006 

0000045E 6608 

00000460 10BC 0011 

00000464 10BC 000B 

00000468 4E7S HPL UTC2 



0000046B 7200 
0000046C 01C1 
0000046E 3541 003B 
00000472 6100 0038 
00000476 4E75 



MOVE.B H_EXTSTRT(A1) ,-(SP) 

BSR H I Nil 3 

8TST #5, (SPT+ 

BNE.S HPL UTC2 

MOVE.B #Hj?QC, (flO) 

MOVE.B #H GTS, (BO) 

RTS 



MOVEQ #0,D1 

BSET D0.D1 

MOVE.U D1,H PP0LLMSK(B2) 

BSR HPL CJTC4 

RTS 



SBVE CONTROLLER PCTIVE STATE. 

DO S0FTUBRE RESET 

UERE UE CONTROLLER? 

IF NOT, SKIP 

ELSE REGAIN CONTROL 

PND RE-DROP BTN 

ELSE DONE 



COHPUTE THE TUO BYTE PPOLLMSK 
BBSED ON CONFIGURATION IN DO. 
SAVE THE MASK 

set response in 9914 ( SPR695 TM 4/21/82 
( SPR69S TM 4/21/82 



0000 0478 H_UTC_PPC 
00000473 1200 
000004711 E149 
0000047C 8200 
00000471= 426B 003A 
00000482 3641 003A 
00000486 6100 0024 
0000048A 4E75 



EQU * 

MOVE.B D0,D1 

LSL.U #8,D1 

OR.B D0.D1 

CLR.U H PP0LLMSK(A2) 

MOVE.U DT,H PP0LLf1SK(B2| 

BSR HPL_0TC4 

RTS 



copy so HPLJJTC4 works! 
\ duplicate in left ( 
/ byte for rsv stuff ( 
clear the mask ( 

move new mask in temps f 
set response in 9914 ( 



564 TM 10/6/82 

564 TM 10/6/82 

564 TM 10/6/82 

SPR69S TM 4/21/82 

SPR695 TM 4/21/82 

SPR695 TM 4/21/82 



******************* 
H_RQS 

request service 



***************************** 



********* 



set spoil response ( S SRQ ) 



NOTE : rsv is the Request Service bit. 
On the 9825 this is tied to the 
ist state ( individual status ). 
In the IEEE 488 standard the rsv state is 
the SRQ response and ist is the PPOLL 
response. The standard does not 
specify any relation between the 
two . 

PASCAL ROUTINE [ taken from HPL R70UT ) 



0000048C 08AA 0006 H_RQS 
0039 

00000492 1200 
00000494 0881 0006 

00000493 670A 
00000493 1341 001B 
0000049E 08EA 0006 

0039 
000004A4 1340 0018 H_RQS2 



************************* 
BCLR *6,H_FLHGS(H2) 

MOVE.B D0.D1 

BCLR #6,D1 

BEQ.S H RQS2 

MOVE.B DT,H SPOLL(fil) 

BSET #6,H_FLBGS(B2S 

MOVE.B D0,H_SP0LL(H1) 



********************************* 
ASSUME rsv = IN THIS NEU BYTE 



IF rsv BIT IN THE NEU BYTE IS INDEED 
ZERO, THEN JUST OUTPUT THE NEU BYTE. 



ELSE FIRST URITE THE BYTE WITH rsv 
CLEAR. REMEMBER THAT rsv IS SET. 



URITE THE BYTE UITH rsv CORRECT. 
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MOVE.U H PPOLLMSK (R2) , 

TRAP *1T 

MOVE SR.-(SP) 

ORI #$2700, SR 

BTST #6,H_FLBGS(B2) 

BEQ.S HPL UTCS 

ROR 18, DT 

MOVE.B Dl.H PPOLL(fll) 

MOVE (SPJ+.SR 

RTS 

RTE 



»** File name: HPIB *** 



1226 


000004B3 322B 003A 




1227 


000004BC 4E4B 


HPL UTC4 


1228 




* 5CS 


1229 


000004B5 007C 2700 




1230 


000004B2 082B 0006 
0039 




1231 


000004B8 6702 




1232 


000004BB E059 




1233 


000004BC 1341 0010 


HPLJJTC5 


1234 


000004CO 46DF 




1235 


000004C2 4E75 




1236 




* scs 



GO UPDATE THE PARALLEL POLL RESPONSE 

DISABLE ISR'S UHILE UE FIGURE 
OUT UHICH MASK TO SET BASED ON 
CURRENT rsv BIT. 

IF rsv = 0, USE RIGHT BYTE 
ELSE USE LEFT BYTE 



RE-ENABLE ISR'S AND RETURN 
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File name: HFIB 



1038 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
124S 
1249 
1250 
1251 
1252 
1253 
1254 
1255 

1256 

1257 
1268 
1259 
1260 
1261 
126 2 
126 3 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 

1273 

1274 
1275 
1276 
1277 
1278 
!2?9 
1280 

1281 

1282 
1283 



000004C4 
000004C8 



000004CE 
000004D2 
000004D4 
000004D8 
000004DR 
000004DC 
0000040E 
000004E0 
000004E4 
000004E6 
000004EA 
000004EE 
000004F2 
000004F6 
000004FA 
000004FC 

00000502 
O00OOS06 
0000050A 
0000050E 
00000512 
00000516 
00000518 
0000051C 

00000522 

00000528 
0000052A 



1640 
137C 
0C17 

323C 

3400 
C47C 
E14A 
E54A 
8; 42 
3400 
CC7C 
6/04 
D27C 
3541 
339 
102A 
CC7C 
6706 
4LB9 
0030 
6100 
6100 
1220 

C;:2a 

LS3C 
6734 
6130 
137C 
0017 
08AA 
0039 
6736 
4E89 

oooo 

4E75 



****** 
002C H„EIR 
0093 



CEAB 
OOOC 



0030 

0004 

0036 H EIR2 

0011 

0039 
003C 

0000 

0570 H EIR3 
058E 

0034 
0036 
0030 

FE72 

0013 H EIR4 



H_EIR 

ENABLE THE HP-IB BASED ON 

ENTRY: DO.B = EIR BVTE A 

EXIT: EIR BVTE SAVED IN 
EIR ACCOMPLISHED. 

USES: DO, Dl , D2 

HPL ROUTINE 

***************************** 
MOVE.B D0,EIRB_0FF(A2) 
HOVE.B #H_DAI1 ,H_AUXCM0(A1 

MOVE.B #$80,3(A1) 
MOVE.U #SCEAB,D1 
MOVE.U DO, 02 
AND #SC,D2 

LSL #8,D2 

LSL #2,D2 

OR D2,D1 

MOVE.U DO, 02 
AND #$30, DO 

BEQ.S H EIR2 

ADD #4",D1 
MOVE.U D1,H INTMSKSAV(A2) 
MOVEP 01, H INTOMASK(Al) 
MOVE.B H FLFTGS (92) ,00 
AND #$3C,D0 

BEQ.S H EIR3 

JSR LffGINT 

BSR H CHKADDR 

BSR H_CHKSRQ 



98034 ENABLE BVTE 
LA 98034 CARD 



DRIVER TEMPS. 
ANV CONDITIONS ALREADY TRUE GENERATE LOGIN. 



******************************************** 

SAVE EIR BVTE 
) DISABLE ALL INTS FOR A SEC 

ENABLE THE CARO ( hphp TM 1/19/83 
Dl = INITIAL VALUE OF INTMSK 
EXTRACT IRF & ORE BITS FROM BVTE 

MOVE THESE BITS TO BI/BO POSITION 

AND INCLUDE IN THE ENABLE MASK 

SAVE EIR BVTE IN D2 UHILE LOOKING FOR 

EITHER TLK OR LST BITS ON? 

IF NOT, SKIP 

ELSE ENABLE MA TO INTERRUPT 

SAVE THIS MASK VALUE 

GIVE MASK TO 9914 

GENERATE IMMEDIATE INTERRUPT IF ANY 

OF THE 'OTHER' CONDITIONS ARE TRUE 



MOVE.B H_INT0C0PY(A2) ,D1 
""" " H^INTMSKSHV(A2) 



AND.B 
BND.B 
BEQ.S 
BSR 
MOVE. 

BCLR 



. -, ,01 
#$30,01 
H EIR4 
H"FAKEISR 
#HJOAIO,H_AUXCMD(A1 

#1,H_FLAGS(H2) 



GENERATE ANY ADDRESS INTERRUPTS. 
GENERATE SRQ INTERRUPT IF NECESSARY 
IF BI/BO IS ENABLED AND THE 
BO/BI STATUS IS ALREADY TRUE, 
THEN UIE HAVE TO FAKE AN 
INTERRUPT. 

) RENABLE ALL INTS FOR CARD 

if isr pend then do it ( rrrr TM 12/17/82 ) 



BEQ.S H EIR5 
JSR LijGINT 



else just exit 



( rrrr TM 12/17/82 ) 
( rrrr TM 12/17/82 ) 



( rrrr TM 12/17/82 
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»»» File name: HPIB *** 



1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
13C1 
1302 

1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 

1312 

1313 
1314 
1315 
1316 

1317 
1318 
1319 
1320 

1321 
1322 
1323 
1324 
1325 

1326 
1327 
1328 



********* 



************ 



i******** 



H_ENABLE 

ENABLE THE HP- 



B FOR TRANSFER USES 



DO.U = 9914 ENABLE MASK ( TO BE INCLUSIVE OR'EO ) 
( DO = *$2000 FOR BYTE IN ( BI ) 
( DO = #$1000 FOR BYTE OUT BO ) 



USES: 00, Dl 
PASCAL ROUTINE 



1/19/83 



00000532 

O0000S38 
0000053C 
00000540 
00000544 
00000548 
0000054C 
00000550 
00000552 
00000556 

0000055C 



OOdO 0532 
13"C 0093 
0017 

806A 0036 
3540 0036 
0189 0011 
122A 0034 
C22A 0036 
C23C 0030 
6704 

6100 FE38 
137C 0013 
0017 
4E75 



EOU * 
MOVE.B 



#HJ>AI1,H_HUXCMD(P1) 



H_ED COM 



MOVE.B 
AND.B 
ANO.B 
BEQ.S 
BSR 
H EO EXIT MOVE.B 



OR.U H INTMSKSAV(A2) ,D0 
MOVE.U DO",H INTMSKSAV(A2) 
MOVEP DO.H INTOMASK(Al) 

H_1NT0C0PY(B2),D1 

H INTMSKSAV(A2 ,D1 

#$"30, Dl 

H ED EXIT 

H FArTEISR 

#H_DAIO,H AUXCMD(Al) 



******************** 
DISABLE THE CARD 

OR NEW BITS IN 
AND RE-SAVE 
AND GIVE TO CARD 
IF BI/BO ENABLED S 
IS ALREADY TRUE, 
THEN FAKE AN 
INTERRUPT. 

RENABLE CARD 



( hphp TM 1/19/83 



0000 055E 
O000OS5E 137C 0093 

0017 
00000564 302A 0036 
00000S68 0240 CFFF 
0000056C 60CE 



RTS 

*********************#*****************************: 

H_DISABLE 

DISABLES BO AND BI ON THE HP-IB FOR TRANSFER USES 

USES: DO, 01 

PASCAL ROUTINE 1/19/83 

********************; 

DISABLE THE CARD 



hphp 
hphp 
hphp 
hphp 
hphp 
hphp 
hphp 
hphp 
hphp 

( hphp 

******* 



TM l/l 
TM 1/1 
TM 1/1 
TM 1/1 
TM 1/1 
TM 1/t 
TM 1/1 
TM 1/1 
TM 1/1 



9/83 
9/83 
9/83 
9/83 
9/83 
9/83 
9/83 
9/83 
9/83 



TM 1/19/83 ) 



******** 



********************** 
H_DISABLE EQU * 

MOVE.B #HJJHI1 ,H_AUXCM0(A1) 



MOVE.U 
ANDI .U 
BRAS 



H INTMSKSAV(A2) ,00 

#fCFFF,00 
H ED COM 



GET OLD MASK 
MASK OUT BO/BI 
JUMP TO COMMON CODE 



******************** 

( hphp TM 1/19/83 1 

( hphp TM 1/19/83 

hphp TM 1/25/83 

( hphp TM 1/19/83 
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PAGE 

1330 
1331 
1332 

1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 

1345 

1346 

1347 
1348 



1350 
1351 
1352 

1353 

1354 



35 [3.0] 12/26/84 21:29:28 101.16 EXTH - 
* H_P_P0LL 



ERROR ESCAPES 



File name: HPIB 



**************** 



CONDUCT PARALLEL POLL 



IF NOT ACTIVE CONTROLLER GIVE 
ELSE VALUE RETURNED IN 00. B 



HPL ROUTINE 



00000E6E 6100 0092 H 

00000672 6100 FCF6 

00000676 0O2R 0010 

0034 

00OO0S7C 137C 008E 

0017 



O0000S82 2F3C 0000 

0028 
00000588 4EB9 0000 

0000 
00000S8E 7000 
00000590 1029 001D 
0O0O0J94 137C OOOE 

0017 
0OO00S9H 137C OOOB 

0017 
OOOOOEAO 4E7S 



t******* 
_P_POLL 



JS 
JS 



BSR 
BSR 
ORI. 



H SET PTN 
H UAI7 BO 
#16, H TNT0C0PY(A2) 



rlOVE.B *HJ?PPl,H_P,U:<CMO(f)l) 



MOVEQ 

DBRA 

MOVE.L 

JSR 

MOVEQ 



#20, DO 
DO * 
#40, -(SP) 

DELAY TIMER 



#0,00 

MOVE.B H CMDPASS(B1),00 
MOVE.B #R_RPP0,H_AUXCMD(P1) 

MOVE.B #H_GTS,H_HUXCM0(A1) 

RTS 



************************************** 
SET ATN LINE 
UAIT FOR 'READY' 
(SfiVE BO STATUS FOR LATER) 

REQUEST THE PARALLEL POLL 

DELAY 40 US FOR LINES TO SETTLE 

USE TIMER FOR DELAY tttt JS 8/1/83 

tttt JS 8/1/83 



GET THE RESPONSE 
CLEAR PARALLEL POLL 



PAGE 

1356 

1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1373 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1383 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 

1396 

1397 
1398 
1398 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
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****************************************************** 
* 

* H_SET 
* 

* Set an HPIB line true 
* 

* PASCAL ROUTINE 
* 

;****** **************************************** 

/ make sure bit # is <=7 



**» File name: HPIB ** 
********************* 



****** 

000005B2 B27C 0007 H SET 

O0O0O5A6 6200 FC8A 
000005AP D241 

OOOOOSAC 41FA 0008 

000005BC DOFO 1000 
000005B4 4ED0 



0000 05B 
000005B6 0010 
000005B8 OOIC 
000005BP FC7C 
000005BC 0084 
OOOOOSBE FC7C 
000005CC FC7C 
000005C2 FC7C 
00000SC4 004C 



************** 
CMP #7,D1 

BHI H SC ERR 

ADD DT.DT 

LEA H S TBL.AO 

ADDA.U OTflO",Dl) ,A0 
JrIP (AO) 



\ 



INDEXED JUMP THRU TABLE 



move h_s_tbl(dl) ,dl 
jmp n_s_tbl(dl) 



EQU 

OC.U 

DC.U 

DC.U 

DC.U 

DC.U 

DC.U 

DC.U 

DC.U 



H REN-H_S_TBL 
H IFC-H S TBL 
H SC ERR"-R S TBL 
H~EOT-H S TBt 
H SC ERff-R S TBL 
H SC_ERR-H S TBL 
H SC ERR-H S TBL 
H"SET ATN-H 5 TBL 



REN - set REN 

IFC - pulse IFC ( set REN/clr ATN ) 

SRQ - error 

EOI - pulse EOI on next byte out 

NRFD - error 

NDAC - error 

DAV - error 

ATN - set ATN true 



******************************************************************************* 

* 

« H_REN 

* 

« SET REN ON HP-IS 

* 

« EXIT : IF NOT SYSTEM CONTROLLER THEN GIVE ERROR 

* 

« HPL ROUTINE 

************************************** 



************************************ 
0OOO0SC6 0829 0007 H REN 8TST *7,H EXTSTAT l Al) 

0005 
000005CC 6700 FC6C BEQ. H NOTSCTL 

000005DC 6028 BRH.S H IFC2 



****************************************** 



************************* 
H_IFC 

DRIVE IFC TRUE FOR 100 MICROSECONDS 

ENTRY : IF NOT SYSTEM CONTROLLER, CLEAR STS AND SET ERR 
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1406 
1407 
[4CS 
1409 
1410 
141 1 
1412 
1413 
1414 
1415 
1416 
1417 

1418 
1419 

1420 
1421 
1422 



1426 

1427 
1428 
1428 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 

1450 
1451 
1452 
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* EXIT 
» NOTE 

* HPL ROUTINE 



File name: hPIE 



ATN CLEARED 
REN SET 

IF THE 9914 IS NOT IN SOFTWARE RESET, THIS ROUTINE WILL 
DRIVE THE ATN LINE TRUE DURING THE IPC. 



OO0OOSD2 0329 0007 H_IFC 

0005 
000005D8 b700 FC60 
000005DC 137C 008F 

0017 

« JS 
» JS 
OO0O0SE2 2F3C 0000 

0064 
OO0O0SE8 4EB9 0000 

0000 
OOOOOSEE 137C OOOF 

0017 
O00OOSF4 137C OOOB 

0017 
000005FH 1 37C 0090 H IFC2 

0017 
00000600 4E7S 



3TST 



#7,H_EXTSTAT(B1) 



BEQ H NOTSCTL 

MOVE.B #H"_SIC1 ,H_AUXCMD(B1) 

MOVEQ #70, DO 
DBRA DO,* 
MOVE.L #100, -(SP) 

JSR DELHY_TIMER 

MOVE.B #H_SIC0,H_AUXCMD(A1) 

rlOVE.B #H_GTS,H_AUXCMD(H1) 

MOVE.B #H_SRE1 ,H_AUXCMD ( Al ) 

RTS 






MUST BE SYSTEM CONTROLLER 

SET IFC 

SET DELHY COUNT 

USE TIMER FOR DELAY tttt JS 8/1/83 
tttt JS 8/1/83 
CLEAR IFC 
CLEHR ATN 
SET REN 



*************** 



H_SET_ATN 

ROUTINE TO SET ATN. 

EXIT: IF NO* CONTROLLER THEN GIVE ERROR 

ELSE IF ADDRESSED TO LISTEN AND HOLDOFF FLAG IS SET 

THEN DO TCS 
ELSE IF ADDRESSED TO TALK, 

THEN UAIT FOR BO STATUS AND DO TCA 
ELSE DO TCA 

USES: HJJAIT ROUTINE 

HPL ROUTINE ( H_SET_ATN used to be H ATN1 ) 

( H_SET_ATN was identical to H_BTN1 
except for error exits ] 



************************************ 
00000602 0829 0006 H SET ATN BTST #6,H EXTSTAT(Bl) 

0005 
00000608 6600 FC2C BNE H NOTACTL 

0000060C 1229 0015 H_ATMFf MOVE.B H BORSSTRT (Al ) ,D1 
00000610 740D MOVEQ #H TCS.D2 



********* 



************* 



BETTER BE CONTROLLER 

ELSE ERROR 

GET ADDRESSED STATUS 

ASSUME UE CAN DO TCS 
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*** File name: HPIB »** 



1453 
1454 
1455 

1456 

1457 
1458 
1459 
1460 
1461 

1462 
1463 
1464 
1465 
1465 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 

1478 



00000612 0801 0002 
00000616 670H 
00000618 082B 0007 

0039 
0000061E 6B14 
00000620 6010 

00000622 0801 0001 H HTN1 
00000626 670A 

00000628 6100 FC40 H_ATN1 1 
0000062C 002P 0010 

0034 
00000632 740C H ATN1 2 

00000634 1342 0017 H ATN1~3 
00000638 4E7S 



BTST 

BEQ.S 
BTST 


#2,D1 

H ATM 

#7,H_FtAGS(A2) 


BNE.S 

BRA. 5 

BTST 

BEQ.S 

BSR 

ORI.B 


H BTN1 3 

H ATN1 2 

#T,D1 

H ATN1 2 

H UAIT BO 

#T6,H_TNT0C0PY(B2) 


MOVEQ 

MOVE.B 

RTS 


#H TCA.D2 
D2,H_AUXCMD(A1) 



ARE UE A LISTENER? 
IF NOT, SKIP 
TEST HOLDOFF FLAG 

IF IT UBS SET, USE THE TCS 

ELSE DO TCA 

ARE UE A TALKER? 

IF NOT, TAKE CONTROL BSYNC 

ELSE UBIT FOR BYTE OUT 

(SAVE BO STATUS FOR LATER!) 

DO TAKE CONTROL ASYNC 
TAKE CONTROL! 



0000063A 137C 0008 H EOI 

0017 
00000640 4E75 H DMYRTS 



H_E0I 

ROUTINE TO SET EOI ON THE NEXT BYTE OUT 

test to see if 9914 waits - 
if so - ok 
if not- do wait ( HU. . . ) 

******************************************************** 
MOVE.B #H_FEOI ,H_BUXCMD (Bl ) SET EIO UITH NEXT BYTE 



******************** 



*********** 
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File name: HPIB ** 



1480 








* * * * * 


14 81 








* 


1482 








* 


1483 








* 


1484 








* 


1486 








* 


1486 








* 


1487 








* 


1488 








***** 


1489 


0000C642 


B27C 


0007 


H_CLR 


1490 


00000646 


620.; 


FBEA 




1491 


OOOO064H 


D241 






1492 


0OO0C64C 


41FA 


O008 




1493 


0000C6S0 


DOFO 


1000 




1494 


00000654 


4ED0 






149S 










149S 










149S 










1496 










1497 




0000 


0656 


H_C_T 


1498 


00000656 


0010 






1499 


00000658 


FFEA 






1500 


0000065A 


FBDC 






1501 


0000065C 


FFEA 






1502 


OO0O065E 


FBDC 






1503 


00000660 


FBDC 






1504 


00000662 


FBDC 






1505 


00000664 


0022 






1506 










1506 










1506 










1507 








***** 


1508 








* 


1509 








* 


1510 








* 


1511 








* 


1512 








* 


1513 








* 


1514 








* 


1515 








* 


1516 








* 


1517 








***** 


1518 


00000666 


0829 
0005 


0007 


H_LOC 


1519 


O0O0066C 


6700 


FBCC 




1520 


00000670 


137C 
0017 


0010 




1521 


00000676 


4E75 






1522 










1522 










1522 










1523 








***** 


1524 








* 


1525 








* 


1526 








* 


1527 








* 


1528 








* 



********* 






H_CLR 

Set an HPIB line false 
PASCAL ROUTINE 



******************* 


************************************* 


cnp »7,di 

BHI H SC ERF 


\ 


/ make sure bit # is <=7 


ADD.U DT.DT 




LEA H C TBL.PO 


\ 


ADDA.U 0TA0~,D1) ,A0 


INDEXED JUMP THRU TABLE 


Jnp (PO) 


/ 



EQU 

DC.U 

DC.UI 

DC.U 

DC.U 

DC.U 

DC.U 

DC.U 

DC.U 



H_LOCAL-H C TBL 
H_OriYRTS-rT_C"_TBL 
H_SC ERR-H C TBL 
H_0MY"RTS-H C TBL 
H_SC_ERR-H__C_TBL 
H_SC_~ERR-H_C_TBL 
H SC 'ERR-H C TBL 
H CLT? PTN-R C" TBL 



REN - clear REN 

IFC - nothing 

SRQ - error 

EOI - nothing 

NRFD - error 

NDAC - error 

DHV - error 

ATN - clear ATN 



*********************** 



********************************** 
H^LOCAL 

CLEAR REN ON HP-IE 

EXIT : IF NOT SYSTEM CONTROLLER THEN GIVE ERROR 

PASCBL ROUTINE 



BEQ H NOTSCTL 

MOVE.B #H_SRE0,H_AUXCMD(B1) CLEAR REN 






H_CLR_HTN 

CLEAR ATN ON HP-IB 



************************ 



PAGE 

1529 

1530 
1531 
1532 
1533 
1534 

1535 
1536 

1537 

1538 
1538 
1538 
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* EXIT : IF NOT AC T IVE CONTROLLER THEN GIVE ERROR 

* PASCAL ROUTINE 
* 
************************************************************ 

00000678 0829 0006 H^CLR ATN BTST #6,H EXTSTA T (fll) 

0005 

0000067E 6600 FBB6 BNE H NOTACTL 

00000682 137C OOOB MOVE.B #H GTS.H ALXCMD(Al) CLEAR ATN 

0017 
00000688 4E75 RTS 



*** File name: HPIB **» 
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H_TEST 

Get an HPIB line's state 
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154 ******************************** 

1541 * 

1542 

154 3 

1544 

1545 

154 6 

1547 

1548 

1543 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1569 

1560 

1561 

1562 

1563 



File name: HPI 



line parameter 

= REN 

1 = IFC 

2 = SRQ 

3 = EOI 

4 = NRFO 

5 = NDAC 

6 = DAV 

7 =. HTN 



PASCAL ROUTINE 



0000068A 7001 H_TEST MOVEQ #1,00 

0000068C 0329 0017 BTST Dl.H BUSSTAT(Al) 

00000690 6602 BNE.S H TEST EX 

00000692 4240 CLR.UI DO" 

00000694 4E75 H_TEST_EX RTS 



************************** 

assume line is true 
test bus lines from 9914 
if line is set then return 
else set false return 



*************** 



********* 



1580 
1581 

1582 

1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1698 
1599 
1600 
1601 
1602 
1603 
1604 
1605 

1606 
1607 

1607 
1607 
1608 

1609 
1610 
161 1 



EMULATION OF R6 OUT FOR HP-IB 
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1565 
1566 
1567 
l 568 
1560 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 0001 



*** File name: HPIB 



EXIT: 



00 = BYTE TO OUTPUT 

IF NOT ACTIVE CONTROLLER, STS CLEPIREO AND ERROR BIT SET 
ELSE OPERATION IS DONE AND ANY ADDRESSING DECODED. 



0000069C 
000006AO 

000006A6 
000006AP! 
000006AE 
000006B2 

000006B6 
000006BA 
000006BC 
0000068E 

000006C2 
000006C6 
000006C8 
000006CH 
OO00O6CC 
00000600 
000006D2 
000006D6 
00000608 
000006DC 
000006E0 
000006E2 
000006E4 
000006E8 

000006EE 



4ED9 0000 HJSf.Oij! 
0000 

6i no 

08EA 
00 39 
6100 
C07C 
142A 
847C 



HPL ROUTINE ( MODIFIED ) 
JSR WAIT^TFR 



123C 
B0O2 
6726 
0A42 

123C 
B002 
671A 
7209 
B03C 
6712 
B03C 
6718 
C07C 
B03C 
6606 
7200 
1341 
08AA 
003 9 
4E75 



FF64 
0000 

FB7C 
007F 
0033 
0020 

0089 



0060 
008A 



003F 
0009 



0060 H R60UT2 
0040 



0017 H R60UT3 
0000 HT?60UT4 



000006FO 0829 0001 H R6TCT 

0015 
000006F6 66F0 
000006F8 6100 FB70 
000006FC 137C OOOB 

0017 
00000702 1370 0012 

001 7 



S5R 
BSE' 

BSR 

AND 

MOVE.B 

OR 

MOVEQ 

MOVE.B 

CMP.B 

BEQ.S 

EORI 

MOVEQ 

MOVE.B 

CMP.B 

BEQ.S 

MOVEQ 

CMP.B 

BEQ.S 

CMP.B 

BEQ.S 

AND 

CMP.B 

BNE.S 

MOVtQ 

MOVE .B 

BCLR 



H SET ATN 
#0",H_FLBGS(A2) 

H UTB1 

#f7F,D0 

MA(A2),D2 

#$20, 02 

#H_L0N1,01 

#H L0N1.D1 

D2.D0 

H R60UT3 

♦I60.D2 

#H_T0N1,D1 

#H_T0N1,D1 

D2,D0 

H R60UT3 

#B LON0.Q1 

#UNL,DO 

H R60UT3 

#TCT,DO 

H R6TCT 

#¥60, DO 

#140, DO 

H R60UT4 

#H_TONO,01 

Dl.H AUXCMD(Al) 

#0,H FLAGS(A2) 



RTS 



BTST #l,H_AORSSTflT(Rl) 

BNE.S H R60UT4 

BSR EfUBIT BO 

MOVE.B #H_GTS7H_AUXCM0(A1) 

MOVE.B #H_RLC,H_fiUXCrlD(Hl) 



*************************************** 
IF A TFR IS ACTIVE UAIT TILL IT ISN'T 

GO SET ATN OR GIVE STS ERROR 
SET PASS CONTROL FLAG 

GO OUTPUT THE BYTE 
CLEAR nSB FOR COMPARISON 
GET MY ADDRESS 
MAKE A LISTEN ADDRESS 
ASSUME LON COMMAND.. . 

rILA? 

IF SO GO DO LON 
MAKE A TALK ADDRESS 
ASSUME TON COMMAND.. . 

MTA? 

IF SO. GO DO TON 

ASSUME LONO COMMAND 

UNLISTEN? 

IF SO, GO DO LONO 

TAKE CONTROL? 

IF SO . SKIP to tct code 

OTHER TALK ADDRESS? 

IF NOT, SKIP 

IF SO, SET UP FOR TONO 

IF SO, DO IT 

CLEAR PASS CONTROL FLAG 



ARE UE TALKER? 

IF SO. IGNORE TCT 

IF NOT, THEN UAIT FOR BYTE OUT 

AND drop atn 

AND RELEASE CONTROL 
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1613 00000703 0829 0006 HTCTLOOP BTST 

0005 

1614 0000070E 67F8 BEQ 

1615 00000710 4E7S RTS 



• ERROR ESCAPES 
#6,H_EXTSTAT(A1) (tm) \ 
HTCTLOOP 



File name: HPIB 



/ wait for non active ctl 
exit 



****************#****> 
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*********** ***************** 
H_DMATERr1 

TERMINATION OF DMA TRANSFER 
CALLED FROM DrlA IN T ERRUPT SERVICE ROUTINE 
DMA RESOURCE HAS ALREADY BEEN RELEASED 
HPL ROUTINE | MODIFIED ) 

****** 



1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 

1633 

1634 
1635 

1636 

1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 

1646 

1647 
1648 

1649 
1650 
1651 
1651 
1652 
1653 
1654 
1655 
1656 
1657 

1658 



*** File name: HPIB 
********************* 



00000712 
00000116 
0000071C 

00000722 
00000728 



0000072A 
0000072E 
00000730 
00000734 
00000736 
0000073H 

00000740 

00000746 
0000074R 

00000752 
00000756 



6100 FfilE HJjMATERM BSR 

* 
4EB9 0000 JSR 

0000 

137C 0080 MOVi 

0003 



*************************** 

set_:nt level 



******** 



4EB9 0000 

0000 

6744 



JSR 
BEQ.S 



2744 0010 

9684 

4A2B 0000 

6622 

D7AB 0020 

137C 0004 

0017 

137C 0083 

0017 

303C 2000 

277C OOOO H DMATI 1 

0001 0010 

6100 FDDE 

6016 



O0O0O75S D7BB 001C H DMATO 

0000075C 4A2B OOOB 

00000760 6706 

00000762 303C 1000 

00000766 60E2 

000007SS 4EB9 0000 H_DMATO 1 

0000 
0000076E 4E75 HDMfl END 



MOVE.L 
SUB.L 
TST.B 
BNE .S 
ADD. I 



DROPDMA 
M80,3(A1) 

ITXFR 
HDMA END 



D4,TCNT 0FF(A3) 

D4,D3 

TDIR 0FF(B3) 

H DMfSTO 

DJ.TFIL 0FF(B3) 



BSR 

BRA.S 



ADD.L 
TST.B 

BEQ.S 
MOVE.U 
BRA.S 
JSR 



************** 
DISABLE CARD INTRS nwu TM 1/19/83 
this is okay - only called in ISR 
RELINQUISH DMA RESOURCE 

TURN OFF DMA ENABLE BITS( tiphp TM 1/27/83 ) 

in the card. ( hphp TM 1/27/83 ) 

MAKE SURE THERE IS A TRANSFER ACTIVE 

IF NOT, FORGET THE INTERRUPT 

at this point 

D4 has remaining count 

D3 has intended 

update count 

put * bytes tfr'd into D3 

UHAT DIRECTION OF TRANSFER? 

IF OUTPUT SKIP 

update fill pointer 



MOVE.B *H_HDFEff,H_AUXCMD(Al) ELSE CLEAR HOLD OFF ON END MODE 
MOVE.B #H_HDFA1,H_AUXCMD(A1) SET HOLD OFF ON ALL MODE 



MOVE.U #$2000, DO 
MOVE.L #1,TCNT_0FF(A3) 



H ENABLE 
HtTMB .END 



D3,TEMP 0FF(A3) 
TEND 0FF(A3) 
H DMPJO 1 
#$"1000, Co 
H DMATI 1 
STCLR 



RTS 



PRESET ENABLE FOR BI ( hphp TM 1/19 
TRANSFER LAST BYTE UNDER INTERRUPT 



( hphp TM 1/19/83 



update empty pointer 

IS EOI TAG SET? 

IF NOT, TRANSFER IS DONE! 

SEND LAST BYTE BY INTR ( hphp TM 1/19/83 

CLEAR BUFFER BUSY BITS & LOG BRANCH 

END OF SERVICE 



1-273 



PAGE 45 [3.0] 12/26/84 21:29:28 IOLIB EXTH - HPIB INTERRUPT SERVICE ROUTINE 



** File name : HPIB 



1661 
1662 
1662 
1664 
1665 
1666 
166" 
S66S 
1669 
1670 
1671 
1672 
1673 
1674 
1675 

1676 
1677 
1678 

1679 
1680 
1681 
16S2 
1683 
1684 
1685 
1686 

1687 
1688 

1689 

1690 
1690 
1691 
1S92 

1693 
1694 

1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 

1703 

1704 
1705 
1706 



**************************************************** 
H_ISR 

INTERRUPT SERVICE ROUTINE FOR HP-IB CARDS 
ENTRY : A1,A2 are set up 

The ISR will track down the buffer control block 
HPL ROUTINE ( MODIFIED ) 



****************** 



0000 0770 H_ISR EQU 

00000770 08AB 0001 " GCLR 

0039 

00000776 0109 0011 MOVEP 

0000077A 6100 01EE BSR 

0000077E 4EB9 0000 JSR 

0000 

00000784 6714 BEQ.S 

00000786 B23C 0003 CMP.B 

0000078A 6700 010E BEQ 

0000078E B23C 0001 CMP.B 

00000792 677E BEQ.S 

00000794 B23C 0002 CMP.B 

00000798 6710 BEQ.S 

0000079B 08PA 0001 HISR_END BCLR 

O039 

000007A0 6706 BEQ.S 

000007B2 4EB9 0000 JSR 

0000 

000007B8 4E7S H ISR EX RTS 



#1,H_FLAGS(R2) 

H_INT0STAT(A1) ,D0 

H ISR1 

ITXFR 

HISR END 

#TT B"URSr,Dl 

H FR~U 

#TT INT,D1 

H BLJF 

*TT OMfi.Dl 

H iSRDMA 

#T,H_FLAGS(A2) 

H ISR EX 
LOGINT 



000007AA OC83 0000 

0001 
000007BO 6760 
000007B2 4A28 OOOD 
000007B6 66E2 
000007B8 4fi2B OOOB 
000007BC 67DC 
000007BE 0800 OOOB 
000007C2 67D6 
000007C4 137C 0080 

0003 
000007CB 137C 0083 

0017 
00000700 137C 0004 

0017 
000007D6 08EA 0007 

0039 

0000 07DC H BYTTST 



* DMfi TRANSFER CLEANUP: 
H_ISRDMA CMPI.L #1,03 



BEQ.S 

TST.B 

BNE.S 

TST.B 

BEQ.S 

BTST 

BEQ 



H BUF 

TLTIR 0FF(A3) 

HISR_END 

TEND 0FF(A3) 

HISR END 

#11. CO 

HISR_ENO 



***************************************** 

clear user isr pending flag 

GET BOTH STATUS BYTES FROM 9914 
PROCESS THE INTERRUPTING CONDITION(S) 
GO SEE IF TRANSFER IS ACTIVE 

IF NOT, THEN UE ARE DONE. 

IF FRU IS ACTIVE, GO PROCESS IT 

IF INT THEN GO PROCESS IT 

IF DMA 

if isr pending then do it 



otherwise return ( used for FAKEISR 



IF COUNT IS = one , THIS IS 

THE EXTRA TFR BY INTERRUPT, SO SKIP 

/ IF OUTPUT, CAN'T BE EARLY TERM 

\ 

/ IF NO EOI TAG, CAN'T BE EARLY TERM 

/ IF EOI NOT SET, CAN'T BE EARLY TERM 
ELSE IT IS EARLY DMA TERMINATION 



MOVE.B #$8073(91) 

MOVE.B #H_HDFA1,H_AUXCMD(A1) SO DISABLE DMA, SET HOLD OFF ON 

MOVE.B #H_HDFE0,H_AUXCMD(A1) ALL, CLEAR HOLD OFF ON END. 

BSET #7,H_FLAGS(A2) SET HOLDOFF INDICATOR 

EQU * ( SPRxxx TM 6/14/82 ) 
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1707 

1708 
1709 

1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 

1720 
1721 
1722 
I 723 
1724 
1725 
1726 

1727 
1728 

1728 
1729 
1730 
1731 
1732 
1733 
1734 
1734 
1735 
17 36 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 

1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 



0000070C 082A 0005 

0034 
000007E2 6716 
000007E4 4EB9 0000 

0000 



OO00O7EA 303C 2000 
000007EE D7BB 0020 
000007F2 206B 0020 

O000O7F6 7601 
000007F8 601E 

* 
000007FA 4EB9 0000 H_NOBYTE 
0000 



00000800 2744 0010 
00000804 9684 
00000806 D7AB 0020 

0000080H 4EB9 0000 

0000 
00000810 6089 



BTST 



BEQ.S 
JSR 



#13-8,H._INT0C0rY(A2) test for byte in 



File name : HPIB » 
TM 7/21/82 ) 



H NOBYTE 
DPTOPDMA 



MOVE.U #$2000,00 
AOD.L D3.TFIL 0FF(A3) 
MOVEA.L TFILJJFF(A3),A0 

MOVEQ #l,D3 
BRA.S H_BUFI 



MOVE.L D4,TCNT_0FF(A3) 

SUB.L D4.D3 

ADD.L D3.TFIL 0FF(B3) 



JSR 

BRA 



STCLR 
HISR END 



* INTERRUPT TRANSFER PROCESSING: 



00000812 4A28 0000 H_BUF 
00000816 6646 



TST.B 
BNE.S 



* BUFFERED INPUT: 



00000818 0800 OOOD H_BUFI 
0000081C 6700 FF7C 
00000820 7800 
30000822 1829 001F 
00000826 0803 OOOB 
0000082A 6603 
0000082C 082A 0000 

0033 
00000832 6703 

00000834 4A2B OOOB H_BUFI_0 
00000838 6702 
0000083A 3404 



0000083C 10C4 

0000083E 2743 0020 
00000842 538! 
00000844 274 J 0010 
00000848 6F3C 
0000084A B444 
0000084C 6733 



H BUFI 1 



BTST 

BEQ 

MOVEQ 

MOVE.B 

BTST 

BNE.S 

BTST 

BEQ.S 
TST.B 
BFQ.E 
MOVE.U 

MOVE.B 

MOVE.L 

SUBQ.L 

MOVE.L 

BLE.S 

CMP.U 

BEQ.S 



TDIR 0FF(A3) 

H_BUFO 



#13. DO 

HISR END 

#0,DJ 

H 0ATAIN(A1),D4 

#Tl,DO 

H BUFI 

#0~,H_STAT3(A2) 

H BUFI 1 
TFTND OFF (A3) 
H BUFIJ 
D4",D2 

04, (BO)* 

B0,TFIL 0FF(B3) 

#1,D3 

D3,TCNT 0FF(A3) 

H TI TERM 

D4\D? 

H TI TERM 



( SPRx 



SPRxxx TM 6/14/82 
SPRxxx TM 6/14/82 



( SPRxxx 
( SPRxxx 

( SPRxxx 
( SPRxxx 
( SPRxxx 
( SPRxxx 
SPRxxx 



TM 6/14/82 
TM 6/14/82 

TM 6/14/82 
TM 6/14/82 
TM 6/14/82 
TM 6/14/82 
TM 6/14/82 



if no byte - norm. 
free the dma channel 

D4 has remaining = 
D3 has intended 
set bit #13 - byte in 
update fill pointer 
get pointer to next 
byte in the buffer 
set count = 1 
let intr tfr finish 

FREE THE DMA CHANNEL 



D4 has remaining 

D3 has intended 

put remaining into TCNT 

put # bytes tfr'd into D3 

update the fill pointer based on actual 

MARK THE^TFR DONE AND LOG BRANCH 

DONE! 



WHICH DIRECTION TRANSFER? 
SKIP IF OUTPUT 



IS BYTE IN SET? 

IF NOT, DO NOTHING 
ELSE GET THE BYTE 

IS EOI SET WITH THIS BYTE? 

is eor set 

IF NOT SKIP 
SHOULD UE IGNORE EOI? 
IF SO, SKIP 

ELSE USE TRICK TO MAKE TFR QUIT. 

- set term char to current char 
SAVE CHARACTER IN BUFFER 
AND SAVE NEU FILL PTR 
HAVE UE TRANSFERED ALL CHARS? 
SAVE TRANSFER COUNT. . . 

IF SO, SKIP 

ELSE TERMINATE ON CHARACTER? 
IF SO, SKIP 
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>9:28 IOLIB EXTH - 


HPIB INTERRUPT SERVICE ROUTINE ««* File name: HPIB 


*** 


1757 


0000084E 


137C 
0017 


0002 






MOVE.B 


#H_RhDF,H_AUXCMD(Al) 


RELEASE HOLDOFF FOR NEXT BYTE 




17S8 


00000854 


08AA 
0038 


0000 






BCLR 


#0,H_STAT3(A2) 


clear eor flag 




1759 


0000085A 


6000 


FF3E 


H_BUF_ 


NT 


BRfl 


HISR_.END 


AND RETURN 




1760 




















1760 




















1761 








* 












1762 








* BUFFERED OUTPUT 








1763 








* 












1764 


0000085E 


0800 


D0OC 


H_BUFO 




BTST 


*12,D0 


IS BYTE OUT SET ? 




176S 


00000862 


6700 


FF36 






BEQ 


HISR ENO 


IF NOT, DO NOTHING. 




1766 


00000866 


5383 








SUBQ.L 


*1,DJ 
H BUFO 1 


IS THIS THE LAST CHARACTER? 




1767 


00000868 


660C 








BNE.S 


IF NOT, SKIP 




1768 


0000086A 


4A2B 


3COB 






TST.B 


TEND OFF (A3 1 


SHOULD UIE SET EOI? 




1769 


0000086E 


6706 








BEQ.S 


H BUFO 1 


IF NOT, SKIP 




1770 


00000870 


137C 
0017 
1358 


0008 






MOVE.B 


#H_FE0T,H_AUXCMD(A1) 


ELSE SET EOI UITH THE LAST BYTE 




1771 


00000876 


001F 


H_BUFO 


_1 


rIOVE.B 


(fiO)+,H DATAOUT(Al) 
AO.TEMP 0FF(A3) 


SEND THE BYTE 




1772 


00000870 


2748 


001C 






MOVE.L 


AND SAVE NEU EMPTY PTR 




1773 


0000087E 


2743 


0010 






MOVE.L 


D3.TCNT 0FFIA3) 
H BUF NT 


SAVE TRANSFER COUNT. .. 




1774 


00000882 


6ED6 








BGT.S 


NO. . .DON'T TERMINATE 




177S 


00000884 


6006 








BRfl.S 


H TO TERM 


YES. . .TERMINATE THE TFR 




1776 




















1776 




















1777 








* 












1778 








* INT 


AND 


FRU TRANSFER TERMINATION 






1779 








* 












1780 


00000886 


08EA 


0007 


H_TI_TERM 


BSET 


#7,H_FLAGS(A2) 


SET HOLDOFF INDICATOR 








0039 
















1781 




0000 


088C 


H TO TERM 


EQU 


* 






1782 








« tm 




MOVE.B 


*0,DO 
H EIR 


DISABLE OTHER INTERRUPTS 




1783 








* tm 




BSR 






1784 


0000088C 


6100 


FCDO 






BSR 


H DISABLE 


DISABLE BO/BI INTRPTS ( hphp TM 1/19/83 1 
MARK THE BUFFER FINISHED 




1785 


00000890 


4EB9 


0000 






JSR 


STCLR 








0000 
















1786 


00000896 


6000 


FF02 






BRA 


HISR_.END 


END OF ISR 
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HPIB INTERRUPT SERVICE ROUTINE *** File name: HPIB 


*** 


1788 








* 












1789 








* FAST 


R/U TRANSFER PROCESSING: 






1790 








* 












1791 


0000089A 


007C 


2700 


H FRU 




ORI 


#$2700, SR 


DISABLE ALL OTHER INTS 




1792 








* 








the pascal system will re-enable&RTE 
UHICH DIRECTION TRANSFER? 




1793 


0000089E 


4A2B 


OOOD 






TST.B 


TDIR 0FF(A3] 




1794 


000008R2 


687R 








BNE.S 


H_FRFJO 


SKIP IF OUTPUT 




1795 




















1795 




















1795 




















1795 




















1796 








* 












1797 








* FAST 


R/UI INPUT: 








1798 








* 












1799 


00O008R4 


7800 




H_FRI 




MOVEQ 


#0,04 


PRESET UPPER BYTE TO 




1800 


000008FI6 


E048 








LSR 


#8, DO 


REPOSITION REMAINING INT STAT BITS 




1801 


000008B8 


0800 


0005 






BTST 


#S,DO 


DO UIE ALREADY HAVE BYTE IN? 




1802 


000008AC 


661A 








BNE.S 


H FRUI 2A 


IF SO, SKIP 




1803 


000008AE 


1029 


0011 


H_FRUI 


_1 


MOVE.B 


H INTOS"TAT(A1),00 


GET INTERRUPT STATUS 




1804 


00000832 


67FA 








BEQ 


H FRUI 1 


IF NOTHING, KEEP UAITING 




1805 


00000834 


0800 


0003 






BTST 


#5,00 


IS EOI SET? 




1806 


00000838 


660A 








BNE.S 


H FRUI 2 


IF SO, GO PROCESS BI AND ENO 




1807 


00O0083A 


0800 


0005 






BTST 


#5", 00 

H FRUI 2A 


IS BYTE IN SET? 




1808 


0000083E 


6608 








BNE .S 


IF SO, GO PROCESS IT 




1809 


000008:0 


613C 








B5R.S 


H FRU 0"THER 


ELSE PROCESS OTHER INTERRUPTS 




1810 


000008C2 


60EA 








BRfi 


H~FRUT 1 


AND KEEP UAITING 




1811 


000008:4 


8029 


0011 


H FRUII 


2 


OR.B 


H INT03TAT(B1),D0 
H OHTAIN(Al) ,D4 


MAKE SURE UE GET THE BI BIT! 




1812 


000008:8 


1829 


00 IF 


H_FRWI 


_2A 


MOVE.B 


GET THE DATA BYTE 




1813 


ooooo8:c 


10C4 








MOVE.B 


04", (flOJ* 
#$5F,D0 


SAVE IT IN THE BUFFER 




1814 


ooooo8:e 


CC7C 


005F 






AND 


CLEAR 81 STAT AND CHECK FOR OTHERS 




1815 


000008D2 


6716 








BEQ.S 


H FRUI 3 


IF NO OTHER BITS SET, SKIP 




1816 


00O008D4 


6123 








BSR.S 


H FRU 3THER 


ELSE PROCESS THE OTHERS 




1817 


00000806 


0800 


0008 






BTST 


#3* 8, Co 


WAS EOI SET? 




1818 


000008DA 


670E 








BEQ.S 


H FRUI 3 


IF NOT, SKIP 




1819 


000008DC 


4A2B 


OOOB 






TST.B 


TFNO OFF (A3) 


SHOULD UE IGNORE EOI? 




1820 


00O008EO 


6708 








BEQ.S 


H FRFJI 3 


IF SO, SKIP 




1821 


000008E2 


3404 








MOVE.U 


D4",D2 
#0,H_STAT3(A2) 


ELSE USE TRICK TO MAKE TFR TERMINATE 




1822 


000008E4 


08EA 


0000 






BSET 


SET EOR INDICATOR 








0038 
















1823 


000008EP 


5383 




H_FRUI 


_3 


SUBQ.L 


#1,D3 


DONE? 




1824 


000008EC 


6F00 


00 IE 






BLE 


H TBI TRtt 


IF SO, GO QUIT 




1825 


000008FO 


B444 








CtfP.U 


D4~,D2~ 


DOES CHAR MATCH TERMINATION CHAR? 




1826 


000008F2 


6700 


0018 






BEQ 


H TBI TRn 


IF SO, GO QUIT 




1827 


000008F6 


137C 
0017 


0002 






MOVE.B 


tR_RHD~F, H_AUXCMD (Al ) 


ELSE ASK FOR ANOTHER BYTE 




1828 


000008FC 


60B0 








BRfi 


H_FRUI_1 


AND GO UAIT FOR IT 




1829 




















1829 




















1830 


000008FE 


48E7 


7000 


H_FRU_ 


OTHER [10VEM 


.L D1-D3, -(SP) 


SAVE REGS FOR LATER 




1831 


00000932 


4AC0 








TAS 


DO 


SET BIT 8 TO FORCE LOOK AT INTOSTAT 




1832 


00000934 


615E 








BSR .S 


H ISRO 


PROCESS OTHER INTERRUPTS 




1833 


00000906 


4CDF 


OOOE 






MovEn.L 


(?>)♦, D1-D3 


RESTORE REGS FOR ANOTHER PASS 




1834 


0OO0090A 


4E7S 








RTS 








1835 




















1835 




















1836 


0OO0090C 


282B 


0010 


H_TBI_ 


TRtt 


MOVE.L 


TCNT 0FFJA3) ,D4 
D3,TC"NT_0FF(A3) 


get intended count 

03 has bytes not finished 




1837 


00000910 


2743 


0010 






MOVE.L 
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File name: HPIB 



1838 


00000914 


9883 








SUB.L 


03, D4 


1839 


00000916 


C9HB 


0020 






flDD.L 


D4.TFIL 0FF(A3) 
H_TI_TEl?M 


1840 


00000910 


6000 


FF6A 






BRA 


1841 
















1841 
















1841 
















1842 








* 








1843 








* 


FUST R 


V OUTPUT 




1844 








* 








1845 


0000091E 


0800 


OOOC 


H. 


_FRUO 


BTST 


#12, DO 


1846 


00000922 


6614 








BNE.S 


H FRUO 2 


1847 


00000924 


1029 


0011 


H 


_FRUO_] 


MOVE.B 


H INT0S"THT(H1 ) ,D0 


1848 


00000928 


67FA 








BEQ 


H FRUO 1 


1849 


0000092H 


BO.:C 


0090 






cmp.b 


tf90.DC 7 


1850 


0000092E 


6 70 8 








BEQ.S 


H FRUO 2 


1851 


00000930 


61CC 








BSR 


H FRU fJTHER 


1852 


00000932 


0800 


OOOC 






BTST 


ttr2.DC 7 

H FRUO 1 


1853 


00000936 


67LC 








BEQ 


1854 


00000938 


B6BC 
0001 


0000 


H 


_FRW0_2 


CMP. 1 


#T,D3 


1855 


0000093E 


660C 








BNE.S 


H FRUO 3 


1856 


00000940 


4A2B 


OOOB 






TST.B 


TEND OFF (A3) 


1857 


00000944 


8706 








BEQ.S 


H FROO 3 


1858 


00000946 


137C 
0017 


0008 






MOVE.B 


#R_FE0T,H_AUXCMD(H1) 


1859 


0000094C 


1358 


001F 


H_ 


_FRU0_3 


MOVE.B 


(A01+.H DATAOUT(Al) 
#1 ,D3 
H FRUO 1 


1860 


00000950 


5363 








SUBQ.L 


1861 


00000952 


6EH0 








BGT 


1862 


00000954 


262B 


0010 






MOVE.L 


TCNT orF(R3),D3 
D3,TE~MP 0FF(A3) 


1863 


00000958 


D7AB 


001C 






HDD.L 


1864 


0000095C 


42PB 


0C10 






CLR.L 


TCNT 0FF(A3) 


1865 


00000960 


6Ci'0 


FF2A 






BRfl 


H TO TERM 



D4 has bytes transferee! 
update fill pointer 
and finish 



DO UE ALREADY HAVE BYTE OUT? 

IF SO, GET STARTED 

ELSE GET THE INTERRUPT STPTUS 

IF NOTHING, KEEP UATCHING 

IS IT BO? 

IF SO, LETS GO! 

ELSE GO PROCESS OTHER INTERRUPTS 

IS BO LEFT? 

IF NOT, KEEP UPJCHING 

IS THIS THE LAST BYTE? 

IF NOT, SKIP 

SHOULD UE TflG UITH EOI? 

IF NOT, SKIP 

ELSE TAG IT! 

OUTPUT H BYTE FROM THE BUFFER 

DONE? 

IF NOT, UATCH FOR BO AGAIN 

/ update empty pointer 
clear the count 
ELSE UE ARE DONE! 
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1867 ************************************************* 

1868 * 

1869 * ISRO 

1870 * ISR1 

1871 * 

1872 * 

1873 * 

1874 * 

1875 « 

1876 * 

1877 * 

1878 * 

1879 * 

1880 * 

1881 * 

1882 * 

1883 * 

1884 * 

1885 * 



1887 
1888 
1889 
1890 
1891 
1892 
1693 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
19C6 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1919 
1919 
1920 
1921 
19i:2 



*** File name: HPIB *** 



************************** 



THE FOLLOUING ROUTINE DOES ALL THE GRUNT UORK FOR THE ISR. IT IS 
SEPARATED OUT SO IT CAN BE CALLED FROM BACKGROUND. 

ENTRY: 00 CONTAINS BOTH 9914 STATUS BYTES. 



THE FOLLOUING CONDITIONS, 
BE PROCESSED: 



IF THEY ARE THE CAUSE OF THE INTERRUPT, WILL 



END: SET EOR LATCH. 

SPAS: CLEAR rsv INDICATOR, CHANGE PPOLL RESPONSE. 
RLC: IF ENABLED, LOG BRANCH. (ENHANCEMENT) 
GET: SET LATCH. IF ENABLED, LOG EOL BRANCH. (ENHANCEMENT) 
UCG: IF TCT, THEN REQUEST 9914 BECOME CONTROLLER. 
IF ENABLEO, LOG EOL BRANCH. 

IF PPC, THEN TELL 9914 TO PASS THROUGH NEXT SECONDARY. 

IF PPD OR SECONDARY, DO PP CONFIGURING. 
DCAS: SET DCHS LATCH. 

ELSE IF ENABLED, LOG EOL BRANCH. 
MA: IF T/L IS ENABLED AND TADS/LADS IS TRUE, LOG EOL BRANCH. 
SRQ: LOG EOL BRANCH, DISABLE SRQ INTERRUPT. 

IFC: SET IFC LATCH. IF ENABLED, LOG EOL BRANCH. (ENHANCEMENT) 
NOTE: BO AND BI ARE NOT PROCESSED! 

DO HRS LEFT OVER BITS OF INTERRUPT STATUS. THE 'END' BIT 
UILL BE PR0CES5E0 BY THIS ROUTINE BUT NOT CLEARED. ALL OTHER 
BITS PROCESSED UILL BE CLEAREO. 



USES: D0-D3 
HPL ROUTINE 



00000964 E148 H_ISRO 
00000966 8029 0013 
0000096A 806A 0034 H ISR1 
0000096E 3600 
00000970 C66A 0036 
00000974 322A 0036 
00000978 464 1 
0000097A C041 
0000097C 3540 0034 
00000980 142A 002C 



LSL 

OR.B 

OR 

MOVE.U 

AND 

MOVE .Ul 

NOT 

AND 

MOVE .U 

MOVE .B 



******************** 
#8, DO 

H_INT1STHT(A1),D0 
H INT0C0PY(A2) , DO 
D0",D3 

H_INTMSKSAV(A2),03 
H INTMSKSAV A2 ,D1 
DT 

Dl.DO 

DO,H INT0COPY(A2) 
EIRB 0FF(B2),D2 



******* 



****** 



************** 



ALTERNATE ENTRY TO BUILD FULL STAT 

UORD IF ONLY BYTE UAS READ. 

INCLUDE ANY SAVED BITS 

SAVE COPY OF INT STATUS 

KEEP ONLY THE ENABLED BITS IN 03 

TURN OFF THE ENABLED BITS IN DO 



SEND THESE BACK TO BACKGROUND 
GET CURRENT EIR BYTE 



PROCESS INTERRUPT CAUSES FROM INT1STAT: 



00000984 08«3 OOOE 
00000988 6700 00B8 

0000098C 0883 0000 
00000990 670A 
00000992 08EA 0003 
0033 



BCLR 
BEQ 

BCLR 
BEQ.S 
BSET 



#6+8, D3 
H_N0_INT1 

#0,D3 

H NO_IFC 

#3,H FLAGS(A2) 



ARE THERE ANY IIMT1 CAUSES? 
IF NOT, SKIP 

IFC INTERRUPT? 

IF NOT, SKIP 

ELSE SET IFC LATCH 
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1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 

1932 

1933 
1934 
193S 
1936 

1937 

1S3S 

1939 
1940 
1941 
1942 
1943 
1944 
194S 

1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
195S 
1956 
1957 
1958 
1959 
1960 
1961 
1962 

1963 

1964 

1965 

1966 
1967 
1968 
1969 
1970 
1971 



28 IOLIB EXTH 
BSR 



BCLR 

BEQ.S 

BSR 

BCLR 
BEQ.S 



[3.0] 12/26/84 21 :29 

00000998 6100 01 IB 

0000099C 0883 0001 H NO I FC 
000009AC 6704 
000009A2 6100 00F2 

000009A6 0883 0002 H NO SRQ 
000009BA 670B 
000009AC 137C 0001 

0017 
000009B2 6100 OOCO 

000009B6 0883 0003 H NO_MA 
0000098R 6716 
000009BC 137C 0001 

0017 
0OO009C2 08EA 0004 

0039 
000009C8 0802 0001 
0OO009CC 6704 
000009CE 6100 00E4 

00O009D2 0883 0005 H NO DCL 
000009D6 67S4 
000009D8 1029 001D 

000009DC 137C 0001 

0017 
00O009E2 C07C 007F 
000009E6 B03C 0009 
0OO009EH 6624 



HPIB INTERRUPT SERVICE ROUTINE **» 

H_LOG GO LOG INTERRUPT IF ENABLED 



File name: HPIB ** 



#1,D! 
H_NO SRQ 
H_CHR"SRQ 

#2, Do 
H NO MP, 



SRQ INTERRUPT? 

IF NOT, SKIP 

ELSE GO PROCESS SRQ INTERRUPT 

MR INTERRUPT? 



MOVE.B #H"_DA"CR0,H_RUXCMD(A1 ) RELEASE DAC HOLDOFF 



BSR 



H_CHKBDDR 



BCLR »3,D3 

BEQ.S H NO DCL 
MOVE.B #H"_DRCR0,H_AUXCMD(A1 

8SET #4,H_FLHGS(A2) 



BTST 

BEQ.S 

BSR 

BCLR 
BEQ.S 



#1,D2 

H_NO DCL 
H_LOG" 

#S,D3 

H NO UCG 



GO SEE IF UE SHOULD INTERRUPT 

DCL/SDC INTERRUPT? 

RELEASE DAC HOLDOFF 

SET DCL LATCH 

OTHER INTERRUPTS ENABLED? 

IF NOT, SKIP 

ELSE JUST LOG EOL BRANCH 

UNIDENTIFIED COMMAND INTERRUPT? 

GET THE COMMAND 



MOVE.B H CMljPASS(Pl) ,00 

MOVE.B #H_DACR0,H_RUXCMD(A1) RELEASE DAC HOLDOFF 

AND #$7F,D0 

CMP.B #TCT,DO 

BNE.S H_NO_TCT 



IGNORE PARITY ON COMMANDS 
IS THIS TAKE CONTROL? 
IF NOT, SKIP 



waiting in ISR 
trial for tct fix 



11/29/81 



000009EC 3A3C 1FFF H TCTU 



BTST #0,H FLHGS(R2) 
BNE.S H TCTUI 
MOVE.U ¥8191 ,D5 



IF THE 68000 IS TRYING TO PCT FROM 
ANOTHER SELECTCODE, THEN SKIP 
tttt JS 8/1/83 



Count changed from 4095 to 8191 to allow for 16 MHz processors 
This is really much more than enough since card only can respond 
at 8 MHz rate. tttt JS 8/1/83 



000009F6 
000009FH 

OOOOOAOO 

0OO00AO6 
OOOOOAOA 
OOOOOBOC 
0OO00A1O 
0OO00A14 
00000A16 



0829 OOOS H_ 

0015 

S7CD FFF8 

137C 0011 H 

0017 

137C OOOB 

0017 

0802 0006 

6704 

6100 00H6 

B03C 0005 H_ 

6606 

137C 0014 

0017 



BTST #S,H„ADRSSTAT(A1) 



ELSE UAIT FOR BTN TO DROP 



DBEQ D5,H TCTUL 

MOVE.B #H_R"QC,H_RUXCnD(fll) REQUEST CONTROL FROM 9914 

MOVE.B #H_GTS,H_AUXCMD(R1) AND DROP ATN 



BTST #6,D2 

BEQ.S H„NO TCT 

BSR H LOG 
CMP.B #P"PC,DO 
BNE.S H NO PPC 
MOVE.B #FT PTS.H AUXCMO(Al) 



ENABLED TO INTERRUPT? 

IF NOT, SKIP 

ELSE LOG THE BRANCH 

PARRLLEL POLL CONFIGURE? 

IF NOT, SKIP 

ELSE PASS THRU NEXT SECONDARY 
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*** File name: HPIB *** 



1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 

1982 

1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 

1998 

1999 
2000 
2001 
2002 

2003 
2004 

200S 
2006 



0OO00B1C 
O0O00A2O 
O0O00B22 
O0O00A26 
0OO00A28 



00000B2C 
0OOO0R30 
0OOO0R32 

0OO00A38 

0OO00A3E 



0OO00R42 
00000R46 

0OOO0A48 
00000B4C 
0OO00A4E 

0OO00BS2 
00000AS6 

OOOO0AS8 



0OO00A64 
0OOO0A68 
0OOO0R6R 



0OO0OB7C 
0OO00A72 



B03C 

6706 
B03C 
6D04 
6100 
0000 

0883 

6710 
137C 

0017 
08EA 

0039 
6100 
0000 



0883 
6728 

0883 
6704 
6100 

0883 

670C 
08AR 
0039 
136B 
001D 

0803 

6706 
08EA 
0038 

0000 

3003 
4E7S 



0015 H_NO_PPC 

0060 

FA40 H_PPE 
0A2C H_NO_PPE 

0007 H_NO_UCG 

0001 

0005 

0074 

0A42 H_NO_GET 

« PROCESS 

OOOF H_N0_INT1 

0009 

0064 

OOOB H_NO_RLC 

0006 

003B 

OOOB H_NO_SPAS 
0000 



0A70 H_NO_END 
H NO INTO 



CMP.B 
BEQ.S 
CMP.B 
BLT.S 

BSR 

EQU 

BCLR 
BEQ.S 
MOVE.B 



#PPU,DO 

H PPE 
#£60, DO 
H NO PPE 
HPL 0TC3 



BSR 
EQU 



#7,03 

H NO GET 

#R_DP~CRO,H_AUXCMD 

#S,H_.FLA5S(H2) 

H_.LOG 



(Al 



PARRLLEL POLL UNCONFIGURE? 

IF SO, TREAT SAME AS PPE 

GENERAL SECONDARY? 

IF NOT, THEN NOT PPE/PPD 

ELSE GO SET PPOLL CONFIGURATION 

PROCESS OTHER UCG VALUES HERE 

GET INTERRUPT? 

IF NOT. SKIP 

ELSE RELEASE DAC HOLDOFF 

AND SET GET LATCH 

GO LOG INTERRUPT IF ENABLED 
PROCESS OTHER INT1 CAUSES HERE 



INTERRUPT CAUSES FROM INTOSTAT: 



BCLR 
BEQ.S 

BCLR 

BEQ.S 

BSR 

BCLR 
BEQ.S 
BCLR 



#7*8, D3 
H_NO_INT0 

#1*8, D3 
H_NO RLC 
H_LOC 

#2*8, D3 

H NO_SPHS 

#6",H_FLRGS(R2) 



ARE THERE ANY INTO CAUSES? 
IF NOT, SKIP 

RLC INTERRUPT? 

IF NOT SKIP 

GO LOG INTERRUPT IF ENABLED 

SPAS INTERRUPT? 

IF NOT, SKIP 

ELSE INDICATE rsv IS NOW 



MOVE.B H_PP0LLMSK*1 (A2),H_PP0LL(A1) AND UPDATE PPOLL 



BTST #3*8, D3 

BEQ.S H NO END 

8SET #0~,H"STAT3[R2) 



EQU » 

MOVE.U D3.D0 
RTS 



END INTERRUPT? 
IF NOT, SKIP 

ELSE SET EOR LATCH 



PROCESS OTHER INTO CAUSES HERE 

PUT REMAINING INT BITS BACK INTO DO 

FOR CALLER. 
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_CHKADDR 

SUBROUTINE TO CHECK FOR ADDRESS INTERRUPT 

ENTRY: D2.B = EIR BVTE 

IF THE TU (LST) BIT OF THE EIR BYTE IS TRUE AND THE 9914 
IS ADDRESSED US TALKER (LISTENER), THEN LOG AN EOL BRANCH. 

HPL ROUTINE 



File name: HPIB 



2 30 9 








********* 


2310 








* 


201' 








* H 


201 2 








* 


2013 








* 


2014 








* 


2515 








* 


2016 








* 


2017 








* 


2018 








* 


2019 








* 


2020 








» 


2021 








* 


2022 








********* 


2023 


00000R74 


0802 


0005 


H_CHKADDR 


2024 


00O00P78 


670A 






2025 


OOOO0A7H 


OP. '9 
00.5 


0001 




2026 


OO0O0A8O 


6600 


0032 




2027 


00000A84 


08i>2 


0004 


H_CHKHl 


2028 


OO0O0H88 


67'. n 






2029 


OO000A8P, 


0929 
0015 


0002 




2030 


00000R9O 


66o0 


0022 




2031 


OO000R94 


4E75 




H CHKA2 


2032 








********* 


2033 








* 


2034 








* H 


2 035 








* 


2036 








* 


2037 








* 


2038 








* 


2039 








* 


2040 








* 


2041 








* 


2042 








* 


204 3 








* 


2344 








* 


204 5 








********* 


2046 


OOOO0A96 


0829 


0006 


H_CHKSRB 



204 7 
2048 

204 9 
2050 

2051 
2052 
2053 

2054 
2054 

2054 
2054 

2CSS 
2056 

2067 



BTST 
BEQ.S 
BTST 

BNE 
BTST 
BEQ.S 

BTST 

BN = 
RTS 



#5,D2 

H CHKA1 

#T,H_ADf?SSTAT(Al) 

H LOG 

*4~,D2 

H CHKA2 

#2",H_ADRSSTAT(A1) 

H LOG 



************************************ 
INTERRUPT ON TALKER ENABLED (TLK) 
IF NOT, SKIP 
ARE UE TALKER? 

IF SO, GO LOG INTERRUPT 
INTERRUPT ON LISTEN ENABLED (LST) 
IF NOT, SKIP 
ARE UIE LISTENER? 



IF SO. GO LOG INTERRUPT 
ELSE RETURN 
***************************** 



************* 



_CHKSRQ 

SUBROUTINE TO CHECK FOR SRQ INTERRUPT 

ENTRY: EIRB_0FF(A2) HAS ENABLE MASK 

IF UE ARE CONTROLLER AND SRQ IS SET AND BIT 7 OF ENABLE BYTE 
IS SET THEN LOG EITHER A NORMAL SRQ INTERRUPT. 

HPL ROUTINE 



OOOS 
00000A9C 6614 
00000A9E 0829 0002 

0017 
OO000AA4 670C 
OO000AA6 08RA 0007 

002C 
OOOOOAAC 6704 

OOOOOAAE 6100 0004 H__CHKS1 
00000HB2 4E75 H CHKS2 



BNE.S 
BTST 

BEQ.S 
BCLR 

BEQ.S 

BSR 
RTS 



#6,H_EXTSTAT(A1) 

H CHKS2 
♦Z,H_BUSSTRT(P1) 

H CHKS2 
#7,EIRB_0FF(A2) 

H CHKS2 
H_L0G 



************************* 
ARE UE CONTROLLER? 

IF NOT, DO NOTHING 
IS SRQ SET? 

IF NOT, DO NOTHING 

ARE WE ENABLED FOR SRQ? 

IF NOT, 00 NOTHING 
ELSE 00 NORMAL LOGING 
DONE CHECKING FOR SRQ 



H_LOG mark that an isr condition is 

pending 
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set condition 



File name: HPIB 



2058 * 

2059 O000OAB4 08EA 0001 H LOG 

0039 

2060 OOOOOABA 4E75 



BSET #1,H_FLAGS(A2) 
RTS 
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[3.0] 12/26/34 


21 :29: 


28 IOLIB EXTH 


HPIB TRANSFER 


*** File 


name: HPIB **« 




£063 






IK******************************* 


***************************************** 


******* 




2064 






* 














2065 






* 




H_TFR 










2066 






* 














2067 






* 




DRIVER 


CALL FOR EXECUTION OF tfr STATEMENT 






2068 






A 














2069 






* 




ENTRY: 


CONDITIONS OTHER THfiN NORMAL A1.A2 PRE: 






2070 






* 






H3.L « POINTER 


TO TRANSFER INFORMATION 






2071 






* 














2072 
2073 
2074 






* 




HPL ROUTINE ( MODIFIEC 


BEYOND ALL RECOGNITION ) 










** 


*»*»*» 


******** 


**************** 


***************************************** 


******* 




207S 


OOO0OP.BC 4EB9 
0000 


0000 


H_ 


TFR 


JSR 


CHECK_TFR 


wait for tfr to finish ( timed 






2076 


00000AC2 137C 


OOOB 






TOVE.B 


#H_GTS,H_AUXCM0(A1 j tifiKE SURE ATN IS FALSE 








0017 


















2077 


00000AC8 4A2B 


OOOR 






TST.B 


T BU 0FF(A3) 


DON'T ALLOU UORD TRANSFERS 






2078 


OOOOOHCC 6600 


F778 






BNE 


H NOOORD 








2079 


OOOOOACO 202B 


0010 






MOVE.L 


TCNT 0FF(R3),DC 


GET COUNT 






2080 


0OO00PX4 4241 








CLR.W 


Dl 


\ 






2081 


OOO00PC6 122B 


0009 






MOVE.B 


TUSR 0FF(H3) ,D 


\ COMPUTE OFFSET INTO JUMP TABLE 




2082 


OOOOOACB D241 








ADD.U 


Dl.DT 
TESTDMA 


/ BASED ON TFR TYPE AND DMA PR 






2083 


OOOOORCC 4EB9 


0000 






JSR 


ESENCE 






0000 


















2084 


0OO00AE2 6704 








BEQ.S 


H NODMA 


/ 






2085 


0OO00BE4 0641 


0014 






ADDI.U 


#2"0,D1 
H TBL.AO 


{ 






2086 


OOOO0AE8 41FA 


0008 


H_ 


NODMfi 


LEA 






2087 


OOOOOREC DOFO 


1000 






ADOH.U 


0TR0,6l),A0 


INDEXED JUMP THRU TABLE 






2088 


OOOOORFO 4ED0 








JMP 


(AO) 


/ 






2089 






* 














2090 






* 




TRANSFER JUMP TRB.E 








2091 






* 














2092 






* 










d or available 






2093 


OOO00RF2 F74C 




H_ 


TBL 


DC.U 


HTERR B-H TBL 


serial interrupt 






2094 


O0OO0RF4 F750 








DC.U 


HTERR D-H TBL 


serial dma 






2095 


00OO0RF6 0148 








DC.U 


H T FRS-H TBL 


serial fhs 






2096 


00O0ORF8 0148 








DC.U 


H T FHS-H TBL 


serial fastest 






2097 
2098 


OOOOORFR F74C 








DC.U 


HTER"R_B-H_TBL 


serial overlap 
























2099 


OOOOORFC 0102 








DC.U 


H T INT-H TBL 


overlap interrupt 






2100 


OOOOORFE F750 








DC.U 


HTEFJR D-H TBL 


overlap dma 






2101 


OOOOOBOO 010R 








DC.U 


H T BS"T-H TBL 


overlap fhs 






2102 


00000B02 010R 








DC.U 


H T BST-H TBL 


overlap fastest 






2103 


O0OO0BC4 0102 








DC.U 


H_T_INT-H_TBL 


overlap overlap 






2104 






* 
















210S 


00000BC6 F74C 








DC.U 


HTERR B-H TBL 


serial interrupt 






2106 


OOQOOB08 0028 








DC.U 


H T DMA-H TBL 


serial dma 






2107 


OOOOOBOH 0148 








DC.U 


H T FHS-H TBL 


serial fhs 






2108 


OOOOOBOC 0028 








DC.U 


H T DMA-H TBL 


serial fastest 






2109 


OOOOOBOE F74C 








DC.U 


HTER"R_B-H_TBL 


serial overlap 






2110 




















2111 


00000B1O 0102 








DC.U 


H T INT-H TBL 


overlap interrupt 






2112 


O0O0OB12 0028 








DC.U 


H T DMA-H TBL 


overlap dma 






2113 


00000B14 010R 








DC.U 


H T BS'-H TBL 


overlap fhs 






2114 


OOO00B16 0028 








DC.U 


H T DMA-H TBL 


overlap fastest 






2115 


OOO00B18 0028 








DC.U 


H_T_DMH-H_TBL 


overlap overlap 
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21 :29 


28 IOLIB EXTH 


- HPIB TRANSFER 


*** File name: HPIB ** 




2117 






* 














2118 






* 




Transf 


er DMA 








2119 






* 














2120 


0000081 PI BOBC 
0001 


0000 


H_ 


T_DMA 


CMP.L 


*1 ,00 


\ USE INTR IF C0UNT=1 ON DMA 






2121 


OOO00B2O 6700 


00D2 






BEQ 


H T INT 


/ 






2122 


0OOO0B24 177C 


0002 






MOVE.B 


#TTJiMA,TACT_0FF(A3) set tfr type to DMA 








0007 


















2123 


0OO00B2A 4A2B 


OOOD 






TST.B 


TDIR 0FF(A3) 


\ test for transfer direction 






2124 


0OO00B2E 6600 


0098 






BNE 


H_T0D" 


/ 






2125 






* 














2126 






* 




Transfer Input Dma: 








2127 






* 














2128 


0000 


0B32 


H 


TID 


EQU 


* 








2129 






* 


tn 


MOVEQ 


#0,00 
H EIR 


DISABLE CARD INTRPTS hphp TM 1/25/83 




2130 






* 


t-n 


BSR 


hphp TM 1/25/83 




2131 


0OOO0B32 137C 


0093 






MOVE.B 


#R"_DHIl,H„AUXCr1D(Al) disable hpib card ( SPR740 


TM 5/24/82 ) 






0017 


















2132 


00000B38 0829 


0006 






BTST 


#6,H_EXTSTBT(A1) ARE U)E ACTIVE CONTROLLER? 








0005 


















2133 


00000B3E 6750 








BEQ.S 


H_TID_0 


IF SO, SKIP 






2134 






* 














2135 






* 




non controller path 








2136 






* 














2137 


00000B40 177C 


0001 






MOVE.B 


#TT_INT,TACT_0FF(R3) fake tfr type as intr ( SPR740 


TM 5/24/82 ) 






0007 


















2138 


00000B46 202B 


0010 






MOVE.L 


TCNT OFF(A3),D0 copy count so this works( qqqq 


TM 12/16/82 ) 




2139 


O000OB4A 4EB9 
0000 


0000 






JSR 


STBSV 


set buf busy ( intr ) ( SPR740 


TM 5/24/82 ) 




2140 


OOOOOB50 6100 


00C8 






BSR 


H RHDF S 


OTHERUISE RELEASE HOLD OFF AND WAIT 




2141 


OOO0OB54 6100 


F7R6 






BSR 


H UAIT"BI 


AROUND FOR THE FIRST BYTE TO APPEAR. 




2142 


00000858 08AR 
0039 


0007 






BCLR 


ft7,H FTRGS(A2) 


INSURE DON'T RE RELEASE HOLDOFF 






2143 






* 














2144 






X 




at this point BYTE IN 


is true. IF EOI and EOI term hphp 


TM 1/26/83 




2145 






* 




are true then the tfr 


should be faked out as finished. hphp 


TM 1/26/83 




2146 






* 














2147 


OOO0OB5E 082R 
0038 


0000 






BTST 


#0,H_S1HT3(A2) 


\ is EOI set hphp 


TM 1/26/83 




2148 


OOO00B64 672(1 








BEQ.S 


H TID 


/ hphp 


TM 1/26/83 




2149 


OOO00B66 4A2B 


OOOB 






TST.8 


TE~ND D"FF(A3) 


\ is EOI term, enabled hphp 


TM 1/26/83 




2150 


0OO0OB6R 6724 








BEO.S 


H TIC 


/ hphp 


TM 1/26/83 




2151 






* 














2152 






* 




at this point - fake 


that the tfr is finished hphp 


TM 1/26/83 




2153 






* 














2154 


0OO00B6C 4EB9 
0000 


0000 


H 


_T1D_F 


JSR 


ITXFR 


get appropriate ptrs. hphp 


TM 1/26/83 




21SS 


O0O00B72 1823 


00 IF 






MOVE.B 


H DHTAIN(Al) , 


D4 get data byte hphp 
SAVE CHARACTER IN BUFFER hphp 


TM 1/26/83 




2156 


O0O00B76 10C4 








MOVE.B 


D4~, (R0)» 


TM 1/26/83 




2157 


0OOC0B78 2748 


O020 






MOVE.L 


A0,TFIL 0FF(A3) AND SAVE NED FILL PTR hphp 


TM 1/26/83 




2158 


OOO00B7C 5383 








SUBQ.L 


»1,D3 


we have TFR'D ALL CHARS hphp 


TM 1/26/83 




2159 


0OOO0B7E 2743 


0010 






MOVE.L 


D3.TCMT 0FF(A3) SAVE TRANSFER COUNT... hphp 


TM 1/26/83 




2160 


0OOO0B82 08EA 


0007 






BSET 


*7,H_FLA~GS(A2) SET HOLDOFF INDICATOR hphp 


TM 1/26/83 






0039 


















2161 


00O00B88 4EB9 
OOOO 


0000 






JSR 


STCLR 


MARK THE BUFFER FINISHED hphp 


TM 1/26/83 




2162 


0OO00B8E 6030 








BRA .S 


H_TID_E 


if done then finished hphp 


TM 1/26/83 
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2163 








* 




2164 








« 




2165 








* 




2166 




0000 


0B90 


H. 


J I D_0 


2167 


OO0O0B9O 


177C 

COO 7 


0002 






2168 


00000896 


2C2B 


0010 






2169 


OO0O0B9B 


51-80 








2170 


OO0O0B9C 


4fB9 

C::00 


0000 






2171 


OO0O0BF12 


3682 








2172 


OOOO0BR4 


6100 


01F4 






2173 


OO0O0BR8 


4P2B 


OOOB 






2174 


OOOOOBAC 


6706 








2175 


OOOOOBAE 


137C 
0017 


0084 






2176 


00000BB4 


137C 


0003 


H_ 


TID_1 






0017 








2177 


OOOOOBBA 


615E 








2178 


OOOOOBBC 


1343 


0003 






2179 








* 




2180 








ft 




2181 








ft 




2182 




OOOO 


OBCO 


H_ 


TID^E 


2183 


OOOOOBCO 


137C 
0017 


0013 






2184 


O0000BC6 


6018 









2185 
2186 
2167 
2188 
2189 
2190 
2191 

2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 

2204 

2205 



OO0O0BC8 
OOOOOBCC 
OOOOOBCE 
OOOOOBDO 

00000BD6 
OO000BD8 



4R2B OOOB H TOD 

6702 

5380 

4EB9 0000 H TOD 1 

0000 

3882 

6100 01C0 



OOOOOBDC 1343 0003 



tm 



common controller/non-controller path 
EQU 



OOOOOBEO 
00000BE4 
O00O0BE8 
OOOOOBEH 

OOOOOBFO 
00000BF2 



MOVE.B #TT_DMA,TACT_0FF(A3) 

MOVE.L TCNT 0FFIA3) ,D0 
SUBQ.L #1.05 
JSR GETDMA 

MOVE.U D2, (A4) 

BSR HD STBSY 

TST.B TEF50 0FF(fi3) 

BEQ.S H TIC 1 

MOVE.B #H_H0FE1,H_AUXCMD(A1) 

MOVE.B #H_HDFR0,H_AUXCMD(A1) TURN OFF HOLD OFF ON ALL 



restore type as DMA 

RESTORE DO 

DMA CH SHOULD ONLY DO N-l 

TRY FOR DMA CHftNNEL 

BRH THE CHANNEL 

SET BUFFER BUSY, ETC ( 

IF EOI TAG, THEN TELL ( 

9914 TO HOLD OFF ON END ( 



SPR740 TM 5/28/82 
SPR740 TM 5/24/82 



SPR740 TM 5/24/82 

SPR740 TM 5/28/82 

SPR740 TM 5/28/82 

SPR740 TM 5/28/82 



BSR.S H RHDF S 
riOVE.B D3",3(AT) 

common exit for input DMA tfr 

EQU * 

MOVE.B #H_DAI0,H_AUXCM0(A1) 

BRR.S H_DT1rt_U 

Transfer Output Dma : 

TST.B TEND 0FF(A3) 
BEQ.S H TOD" 1 
SUBQ.L ttT.DO 
JSR GETDMfi 

MOVE.U D2, (A4) 
BSR HO STBSY 

MOVEQ #0,D0 
BSR H EIR 

MOVE.B D3,3(A1) 



18 2B 0009 H_OMAJ<J 

B83C 0005 

6C08 

0C2B OOFF H OrIA Ul 

OOOS 

66F8 

4E7S H_DMA_U2 



MOVE.B TUSR 0FF(H3) ,04 
CMP.B #5,04" 
BGE.S H DMA U2 
CMPI.B #?SS,T_SC_0FF(A3) 

BNE .S H OMA Ul 
RTS 



DO RHOF IF NECESSARY 
ENABLE CARD FOR DMA 



enable hpib card 
DONE 



SPR740 TM 5/28/82) 
SPR740 TM 5/24/82 



IF EOI TAG IS SET, THEN LET DMA 

DO ONLY N-l BYTES AND DO THE LAST 
UNDER INTERRUPT 

GET A OMA CHANNEL 

ARM THE CHANNEL 
SET BUFFER BUSY, ETC 

DISABLE USER INTERRUPTS hphp TM 1/25/83 
tiphp TM 1/25/83 
ENABLE CARO FOR DMA 

IF SERIAL THEN UAIT FOR COMPLETION 



IS THE TRANSFER OVERLAP ? 
/ 
IF NOT THEN UAIT TILL DONE 



PAGE 58 [3.0] 12/26/84 21:29:28 IOLIB EXTH - HPIB TRANSFER 



*** File name: HPIB 



2207 
2208 
2209 
2210 

2211 
2212 
2212 
2212 
2213 
2214 
2215 
2216 

2217 

2218 
2218 
2218 
2219 
222C 
2221 
2222 

2223 

2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 

2240 
2241 

2242 

2243 

2244 
2245 
2246 
2247 
2248 
224 9 
2250 
2261 
2252 



» Transfer INTERRUPT 

ft 
OO00OBF4 177C 0001 H_T_INT MOVE. 8 #TT INT, TACT 0FFIA3) set tfr type to INTERRUPT 

0007 " 

OOOOOBFA 6006 



BRA.S H T BIC 



go to common code 



OOOOOBFC 177C 0003 H_T_BST 
0007 



OO0OOC02 4EB9 0000 H T 

0000 
OO00OC08 4A2B OOOD 
OOOOOCOC 6622 



OOCO OCOE H Til 



OOOOOCOE 303C 2000 
00OOOC12 6100 F91E 
00000C16 6102 
O00O0C18 60C6 



Transfer BURST ( intr on 1st byte FHS on rest ) 
MOVE.B #TT_BURST,TACT_0FF(A3) set tfr type to BURST 
BRR.S H_T_BIC go to common code 



common interrupt and burst code 



TST.B TOIR 0FF(H3) 
BNE.S H TOT 



SET BUFFER BUSY, ETC 

\ test for transfer direction 



Transfer Input Interrupt or Transfer Input Burst 

ENABLE CARD FOR BYTE IN 



EQU * 

MOVEQ #9. DO 

BSR H EIR 

MOVE.U #12000, DO 

BSR H ENABLE 

BSR.S H_RHDF S 

BRA H DMA D 



OO000C1A 08AA 0007 H RHDF S 

0039 
O000OC2O 670C 
OO000C22 08AA 0000 

0038 
OO00OC28 137C 0002 

0017 
00000C2E 4E75 H_RHDF_S1 



0000 0C30 H_TOI 



OO000C3O 303C 1000 
00000C34 6100 F8FC 
00000C38 60A6 



BCLR #7,H_FLBGS(H2) 

BEQ.S H RHDF SI 
BCLR #0",H_STAT3(A2) 

MOVE.B #H_RH0F,H_AUXCMD(A1) 

RTS 

Transfer Output Interrupt or 

EQU * 
MOVEQ #4, DO 
BSR H EIR 
MOVE.U #11000, DO 
BSR H_ENABLE 
BRA H DMA U 



ENABLE CARD FOR BI ( hphp TM 1/19/83 
( hphp TM 1/19/83 
should we release holdoff 
see if tfr was serial - and wait 
if it was 



SHOULD WE RELEASE HOLDOFF? 



IF NOT, SKIP 
clea r eor flag 



Transfer Output Burst 

ENABLE FOR BYTE OUT 
ENABLE CARO FOR BO ( 
wait if serial 



hphp TM 1/19/83 
hphp TM 1/19/83 
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2285 

2286 

2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 



*********************** 
*********************** 



* UARNING: 
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22S4 
2255 
2256 
2257 
2258 
22S9 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 



File name: HPIB 



****************** 
Transfer FHS 

************************* 



************************ 
***************** 



.hese FHS routines have been carefully optimized towards... 

1. a close FHS coupling with Coyote (Greeley's new 913X Disc Controller) 

2. efficient Series 200 to Series 200 transfers 

3. efficient high-speed disc ' 




special register assignments for the fast handshake transfer routines: 



0000 0005 fhs_eoi bit 

0000 0006 fhs BI stat 

0000 0006 fhs BO stat 

0000 0007 fhs_BI_bit 

0000 0007 fhs_B0"_bit 

0000 0004 fhs_int0stat equ a4 

0000 0005 fhs_auxcmd equ aS 

0000 0006 fhs_datain equ a6 

0000 0006 fh5_dataout equ fhs_datain 



equ dS 
equ d6 
equ d6 
equ d7 
equ d7 



always set to for the eoi bit test 
set to $20 for input (intOstat w/ BI only) 
set to S10 for output (intOstat w/ B0 only) 
set to 5 for input (the BI bit number) 
set to 4 for output (the B0 bit number) 
permanent pointer to the intOstat register 
permanent pointer to the auxcmd register 
permanent pointer to the datain register 
permanent pointer to the dataout register 



00O00C3A 177C 0004 H T FHS 

0007 
0OO00C40 4EB9 0000 

0000 
0OO00C46 4EB9 0000 

0000 

0OOO0C4C 48E7 O0OE 
00000C50 7R0O 

OOO0OC52 49E9 0011 

0OO0OC56 4BE9 0017 

0OO0OCSA 4DE9 001F 

00000C5E 1ABC 0093 

00000C62 4A2B 0000 
OOO0OC66 6600 O0B6 

00000C6A 61flE 

00000C6C 7C20 
00000C6E 7E05 

000O0C7O 4A42 
OOOO0C72 6A00 0070 



MOVE.B #TT_FHS,TACT_0FF(B3) 
JSR STBSY 
JSR ITXFR 



movem.l fhs intOstat -fhs_datain 
moveq #0<7rs_eoi bit 
lea h_intOstatTal ) , f hs_intOstat 
lea hauxcmd (al ) , fhs_auxcmd 
lea h_datain [al ) , fhs_datain 

move.b #h_dail, (frs_auxcmd) 

TST.B TDIR_0FF(A3) 
BNE fto 



set tfr type to FAST HANDSHAKE 

make buffer busy 

set up pointers and registers 



(sp) 



moveq 
moveq 

TST 
BPL 



*$20,fhs BI stat 
#5,fhs_BT_bTt 



D2 

fti 



disable all card interrupts! 

which transfer direction? 
branch if output 

input; release holdoff if necessary 

intOstat with BI only 
the BI bit number 

termination character specified? 
branch if so 



OOO0OC76 1ABC 0003 

0OO00C7A 5583 

0OO00C7C 6C34 

00000C7E 601E 



00000C80 1214 

0OO0OC82 67FC 

00OO0C34 BC01 

00000C36 6628 

O00O0C88 10D6 

00000C3A 51CB FFF4 

0OO0OC8E 4243 

0OO0OC9O 5383 

0OO0OC92 6AEC 



PAGE 60 [3.0] 12/26/84 21:29: 



2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 



I0LIB EXTH - HPIB TRANSFER 



Transfer FHS in; NO termination character 



»** File name: HPIB **« 



move.b #h_hdf aO , ( fhs auxcmd) 

subq.l #2,d3 

bge.s fti_rt_il 

bra.s fti nt i2 



* high-speed loop for n-1 bytes 

* 

fti nt 



«1 move.b 

beq 

cmp .b 

bne .s 

ft i_n t_t 1 move.b 

dbra 

clr 

subq . 1 
bpl 



(fhs_intOstat) ,dl 
fti nt_wl 
dl,7hs_BI_stat 
f ti_nt_sl 

(fhs_datain) , (a0)+ 
d3,fti_nt_wl 

d3 

#l,d3 
fti nt wl 



* last byte handling 



0OOO0C94 1214 

0OO00C96 67FC 

0OO00C98 BC01 

0OO00C9A 6708 

00O00C9C 612C 

OOOO0C9E OFAA 0034 fti nt 

OOOO0CA2 67F0 

0OOO0CA4 1ABC 0083 

0OOO0CH8 10D6 

OOOOOCHA S283 

OOOOOCHC 6000 O0C4 



fti nt w2 


move . b 




beq 




cmp.b 




beq , s 




bsr . s 


fti nt i2 


bclr 




beq 


fti nt t2 


move . b 




move . b 




addq . 1 




bra 



f fhs_intOstet ),dl 
fti nt_w2 
dl,Ths_BI_stat 
fti_nt t2 

i fakeTsr 

fns_BI bit,h int0copy(a2) 

fti nt~w2 

#h TTdfal , (fhs auxcmd) 

(fFs datain) ,7/a0) + 

#l,d3* 

h tfi trm 



* special status handling: n-1 bytes loop 



OOO00CBO 6118 fti nt si bsr. 5 

00000CEJ2 OFflP 0034 fti nt il bclr 
00000CB6 67C8 "~ beq 

00000CB8 0B2fl 0038 btst 

OOOOOCBC 67CA beq. 5 

OOOOOCBE 4A2B OOOB tst .b 

00000CC2 66E0 bne.s 

00000CC4 OBflP O038 bclr 

00000CC8 60BE bra 



i fakeisr 

*^5_BI__bit , h_intQcopy(a2) 

fti_nt wl 

fhs__eoT_bit,h_stat3(a2) 

fti nt t 1 

tend" oTf (a3) 

fti_nt t2 

fhs_eoTjUt , h_stat3(a2) 

ft i__nt_t 1 



release holdoff on all 
count-2 I 

initial BI test (ri-1 bytes loop) 

initial BI test (last byte loop) 



?et card status 
oop until we get something 
BI status only? 

if not, process other conditions 
transfer this data byte and request the nex 
loop until lower count exhausted 

clear lower count word only 

decrement the entire long count 

loop until entire long count exhausted 



get card status 

loop until we get something 

BI status only? 

if so, transfer the byte 

otherwise, process the other conditions 

see if BI was logged 

if not, keep waiting 

set holdoff on all again 

transfer the last data byte 

correct remaining count 

go terminate 



process the other conditions 

BI logged? 

if not, keep testing status 

BI logged; was EOI set? 

if not, go transfer the byte 

BI w/ EOI; should we terminate? 

if so, transfer the last byte 

otherwise, clear the eoi flag 

and continue transferring bytes 
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»*» File name: HPIB »** 


2358 








* 








2359 








* 


restoration of A5/6 required because 


fakeisr 


2360 








f 


can call a PASCAL user procedure 




2361 








* 








2362 


OOOOOCCPt 


4.;of 


7000 


j_f akeisr movem . J 


(sp)+, fhs_int0stat-f hs_datain 


restore the dedicated registers 


2363 


OOOOOCCE 


6100 


F6BC 




bsr 


h fakeisr 




2364 


00000CD2 


43E7 


OOOE 




movem . ] 


fhs intOstat-f hs datain,-(sp) 




2365 


OOOO0CD6 


43E9 


0011 




lea 


h intOstat (al ) , fTis intOstat 




2366 


OOOOOCDfi 


■1BE9 


0017 




lea 


h auxcrnd (al ), fhs auxcrnd 




2367 


OOOOOCDE 


<iDE9 


001F 




lea 


hdatain (al ) , fhs_datain 




2368 


00000CE2 


4E75 






rts 






2369 
















2370 
















2371 
















2372 








X 








2373 








* 


T ransfe 


r FHS in; looking for a termination character 


2374 








* 








2375 


00000CE4 


7300 




fti 


moveq 


*0,d4 


clear upper byte to enable word comparison 


2376 


00000CE6 


6002 






b ra . s 


fti_it 


make the initial BI test 


2377 
















2378 


O00O0CE8 


61E0 




fti fi 


bsr 


i fakeisr 

fhs BI bit.h int0copy(a2) 


process the other conditions 


2379 


OOOOOCEA 


O-flfl 


0034 


fti_it 


bclr 


see if BI was logged 


2380 


OOOOOCEE 


6608 






brie . s 


ft i_BI 


branch if so 


2381 
















2382 
2383 


OOOOOCFO 
OO00OCF2 


1214 
6 7FC 




fti_wl 


move .b 
beq 


(fhs intOstat), dl 
fti wl 


get card status 

keep trying until we get something 


2384 


000O0CF4 


BC01 






cmp.b 


dl ,Ths BI stat 


BI status only? 


2385 


00000CF6 


66F0 






bne . s 


fti_fi 


if not, process other conditions 


2386 
















2387 


00000CF8 


1316 




m_Bi 


move . b 


(fhs datain),d4 


get the data byte 


2388 


OOOOOCFfi 


10C4 






move ,b 


d4,(a0)* 


save it in the buffer 


2389 


OOOOOCFC 


0B2A 


0038 




btst 


fhs eoi bit.h stat3(a2) 


was EOI set? 


2390 


OOOOODOO 


670E 






beq . s 


fti tc 


branch if not 


2391 


000OOD02 


4A2B 


OOOB 




tst .b 


tend" off(a3) 


EOI was set; do we terminate? 


2392 


00000D06 


6704 






beq . s 


fti ceoi 


branch if not 


2393 


00000008 


3404 






move . 


w d4",d2 


else use trick to make tfr terminate 


2394 


OOOOODOfl 


6004 






bra . s 


fti tc 




2395 


OOOOODOC 


OBAA 


0038 


fti ceoi bclr 


fhs eoi bit , h stat3(a2) 


clear the eoi flag 


2396 


00000D10 


K.83 




ftOc 


subq . 1 


#1 ,cj3 


termination count expired? 


2397 


00000D12 


6 C 5E 






ble.s 


h tfi t rm 


branch if so 


2398 


00000D14 


M44 






cmp . w 


d4",d2 


termination character match? 


2399 


000OOD16 


6 75A 






beq . s 


h tfi trm 


branch if so 


2400 


00000D18 


inec 


0002 




move .b 


»W rhclf, (fhs auxcrnd) 


else ask for another byte 


2401 


000OOD1C 


60D2 






b ra 


fti_wl 


and go wait for it 


2402 
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**» File name: HPIB *** 


2404 








* 








2405 








* 


T ransfe 


r FHS out 




2406 








* 








2407 


OO0O0D1E 


7C10 




fto 


moveq 


#$10, fhs BO stat 


intOstat with BO only 


2408 


OO0O0D2O 


7E04 






moveq 


#4, fhs 80" bit 


the BO bit number 


2409 


OO0O0D22 


~r,33 






subq. 1 


#2,d3 


count -21 


2410 


O0000D24 


6C44 






bge . s 


fto il 


initial BO test (n-1 bytes loop) 


2411 


00000D26 


601E 






bra . s 


ftoJ2 


initial BO test (last byte loop) 


2412 
















2413 








* 








2414 








* high- 


speed loop 


for n-1 bytes 




2415 








* 








2416 


OO00OD28 


1214 




fto_wl 


move .b 


(fhs intOstat), dl 
fto wl 


get card status 

loop until we get something 

BO status only? 


2417 


O0000D2H 


6 ! FC 






beq 


2418 


O0000D2C 


b:oi 






cmp. b 


dl.Ths BO stat 


2419 


O0O0OD2E 


£■336 






bne . s 


fto si 


if not, process other conditions 


2420 


OO000D3O 


i :9« 




fto_tl 


move ,b 


(aOy+, (fhs dataout ) 


transfer a byte 


2421 


O0000D32 


51CB 


FFF4 




dbra 


d3, fto_wl 


loop until lower count exhausted 


2422 
















2423 


OOO0OD36 


4 243 






clr 


d3 


clear lower count word only 


2424 


00000D38 


5 383 






subq . 1 


#l,d3 


decrement the entire long count 


2425 


OO000D3R 


6AEC 






bpl 


fto_wl 


loop until entire long count exhausted 


2426 
















2427 








11 








2428 








» last 


byte handl 


ing 




2429 








* 








2430 


O000OD3C 


1214 




fto_w2 


move .b 


(fhs intOstat) ,dl 
fto w2 


get card status 

loop until we get something 

BO status only? 


2431 


00000D3E 


67FC 






beq 


2432 


OOOOOD40 


BC01 






cmp.b 


dl ,Ths 80 stat 


2433 


OO00OD42 


6 f08 






beq . 5 


fto t2 


if so, transfer the byte 


2434 


00000D44 


6184 






bsr 


i fakeisr 

fFs BO bit.h int0copy(a2) 


otherwise, process the other conditions 


2435 


OO00OD46 


OFSR 


0034 


fto_i2 


bclr 


see if 80 was logged 


2436 


OO00OD4R 


67F0 






beq 


fto W2 


if not, keep waiting 


2437 


OO00OD4C 


4A2B 


OOOB 


fto_t2 


tst .b 


tend" off (a3) 


should we tag it with an EOI? 


2438 


OO00OD5O 


6704 






beq.s 


fto ob 


branch if not 


2439 


OO000D52 


1RBC 


0008 




move .b 


#h 7eoi,(fhs auxcrnd) 


else tag it! 


2440 


OO00OD56 


1C98 




fto_ob 


move -b 


(afj) + , (fhs_dataout) 


output the last byte 


2441 
















2442 


O0000DS8 


262B 


0010 




MOVE.L 


TCNT 0FF(A3),D3 
03,TE"MP 0FF(R3) 


/ update empty pointer 


244 3 


OO00OD5C 


D7fiB 


001C 




ADO. 1 


2444 


OO0OOD6O 


42AB 


0010 




CLR.L 


TCNT 0FF(A3) 


clear count 


2445 


OO0OOD64 


6020 






BRA.S 


H_TF5_TRn 


ELSE UE ARE DONE! 


2446 
















2447 








* 








2448 








* special status 


handling: n-1 bytes loop 




2449 








* 








2450 


00000D66 


6100 


FF62 


fto si 


bsr 


1 fakeisr 

fKs BO bit.h int0copy(a2) 


process the other conditions 


2451 


00000D6A 


Oi-HS 


0034 


fto_il 


bclr 


see if BO was logged 


2452 


OO0OOD6E 


66C0 






bne 


fto tl 


if so, go transfer the byte 


2453 


00000070 


60B6 






bra 


fto~wl 


otherwise, keep waiting 


2454 
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2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 

2464 

2465 
2466 
2467 

2468 
2469 
2470 
2471 
2472 
2473 
2474 
247S 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 



FHS TRANSFER TERMINATION 



00000D72 
00000D76 
00000D7H 
00000D7C 
00000D8O 

00000D86 

00000D8C 
OOOOOD90 
00000D94 



2s2B 
2743 
9 88 3 
D9f)B 
OSER 
DC 39 
C22A 
CC34 
1ABC 
4C0F 
4EF9 

oooo 



0010 H_TFI_TRM nOVE . L 
0010 nOVE.L 

SUB . L 
0020 BDO.L 

0007 BSET 



TCNT OFF (S3] , D4 

D3,TCNT OFF(M) 

D3.D4 

D4.TFIL 0FF(fi3) 

#7,H FlHGS'A2) 



Set intended count 
3 has bytes not finished 
D4 has bytes transfered 
update fill pointer 
SET HOLDOFF INDICATOR 



OOCF H_TFO_TRM andi.b #$cf . h_intOcopy (a2) 

0013 move.b #h_daiO , (f hs_auxcmd) re-enable card interrupts! 
7000 movem.l (sp)-,fhs mtOstat-fhs datain restore the dedicated registers 
0000 JMP STCLR — ' "" -•■■•-— - ~*~ -■■ 



MARK BUFFER FINISHED & RETURN 



**************X*****************************#** 

HD_STBSY 

ROUTINE TO SET fl DMA TFR BUFFER BUSY 

ENTRY: 

DO.L = TRANSFER COUNT TO BE PUT IN TCNT 0FF(A2) 

AND TO BE ADDED TO E/F COUNT. 
RO.L = POINTER TO DMA TEMPS [ DMA1 OR DMAO ) 
R2.L = POINTER TO DRIVER TEMPS 
R3.L = POINTER TO BUFFER CTL BLOCK 



********************* 



HPL ROUTINE ( MODIFIED ) 



******** 
00000C9FI 49FA F282 HD STBSV 
OOO00C9E 4EF9 0000 
0000 






LEF 
JMP 



EXTH EH TDMA.A4 
DMA S"TB5Y 



SAVE HJJrIATERM ROUTINE 



c******* 
IN DMA 



****** 
TEMPS 
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SYhBOL 


TYPE 


DF.F 


VALUE 




ABORT 10 


BBS 


205 


00000015 




CHECK TFR 


BBS 


207 


0000001B 




CHECK TIMER 


BBS 


209 


00000021 




DELAY TIMER 


BBS 


208 


0000001E 




DMA STBSY 


BBS 


203 


00000010 




DROPDtlP. 


BBS 


196 


00000002 




GETDMR 


BBS 


197 


00000004 




IODECLARATIONS 


BBS 


354 


00000024 




ITXFR 


BBS 


204 


00000013 




LOGEOT 


BBS 


200 


OOOOOOOfl 




LOGINT 


BBS 


199 


00000008 




STBSY 


BBS 


201 


OOOOOOOC 




STCLR 


BBS 


202 


OOOOOOOE 




SYSGLOBflLS 


BBS 


3S5 


00000028 




TESTDMA 


BBS 


198 


00000006 




WBIT_TFR 


BBS 


206 


00000018 




INTERNAL SYMBOLS 






SYMBOL 


TYPf 


DEF 


EQU SYM 


VALUE 


no 


breg 







OOOOOOOO 


Al 


BREG 







00000001 


A2 


HREG 







00000002 


A3 


are:. 







00000003 


A4 


Pi REG 







00000004 


A5 


BREG 







00000005 


A6 


BREG 







00000006 


07 


BREG 







00000007 


AVAIL OFF 


BBS 


294 




00000034 


BADTMO" 


BBS 


372 




OOOOOOOB 


BAD RDS 


BBS 


380 




00000013 


BfiD SCT 


BBS 


381 




C0000014 


BUFT OFF 


BBS 


285 




00000024 


BUFO OFF 


BBS 


286 




00000028 


BUF Busy 


BBS 


370 




00000009 


CCR 


STREG 







00000005 


CRD DUN 


BBS 


382 




00000015 


C AD"R 


BBS 


284 




00000020 


DO" 


DREG 







OOOOOOOO 


01 


DREG 







00000001 


02 


DREG 







00000002 


D3 


DREG 







00000003 


D4 


DREG 







00000004 


DS 


DREG- 







00000005 


D6 


DREG 







00000006 


D7 


OREG 







00000007 


DCL 


BBS 


709 




00000014 


DFC 


STRtG 







00000008 


EIRB OFF 


BBS 


287 




0O0O0O2C 


eod Seen 


BBS 


383 




00000016 


ESC CODE 


BBS 


391 


SYSGLOBflLS ^ 


FFFFFFFE 
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ESC ERR 

extr_eh clr 
exth eh""end 
exth eh""init 
exth_eh""isr 
exth_eh ppoll 
exth eh" rdb 
exth_ehTrds 
exth_eh rdu 
exth_eh""send 
exth_eh - set 

EXTH EHlTDMfl 

EXTH_EH TEST 

EXTH_EH"TFR 

EXTH_EHJJTB 

EXTH_EHJJTC 

EXTH_EH WTU 

EXTH EXTH 

FHS ffUXGMD 

FHS BI BIT 

FHS30THT 

FHS_BO_BIT 

FHS BO STAT 

FHS_DBTBIN 

FHS DBTAOUT 

FHS_EOI BIT 

FHS_INTBSTAT 

FT I 

FTI BI 

FTI'CEOI 

FTI FI 

FTI _ IT 

FTI NT II 

FTI NT 12 

FTI NT SI 

FTI~NT~T1 

FTI NT T2 

FTOTTdl 

FTI NT1»2 

FTI TC~ 

FTI""WL 

FTO 

FTO II 

FTO 12 

FTO OB 

FT0~"S1 

FTO^Tl 

FTO T2 

FTO Ull 

FT0"~U2 

GET" 

GTL 

HDMA END 

HO STBSY 

HI5R END 

HPL UTC 

HPL WTCO 



REL 

REL 

REL 

REL 

REL 

REL 

REL 

REL 

REL 

RE1 

REL 

REL 

REL 

REL 

REL 

REL 

REL 

REL 

BREG 

DREG 

DREG 

DREG 

D^EG 

BREG 

BRCG 

DRLG 

BREG 

REL 

REL 

REL 

REL 

REL 

REL 

REL 

REL 

REL 

REL 

REL 

REL 

REL 

REL 

REL 

REL 

REL 

REL 

REL 

REL 

REL 

REL 

REL 

BBS 

BBS 

REL 

REL 

REL 

REL 

REL 



869 

581 

604 

436 

445 

559 

463 

SIS 

485 

549 

571 

454 

591 

539 

475 

528 

501 

431 

2279 

2276 

2274 

2277 

2275 

2280 

2281 

2273 

2278 

2375 

2387 

2 395 

2378 

2379 

2348 

2337 

2347 

2322 

2339 

2318 

2332 

2396 

2382 

2407 

2451 

2435 

2440 

2450 

2420 

24 37 

2416 

2430 

706 

703 

16SS 

2487 

1686 

1170 

1172 



00000254 
000OOOF4 
0000011B 
00000002 
00000010 
OOOOOOOO 
0000002C 
00000088 
00000050 

ooooooco 

0O0O0OE4 
0000001E 
00000104 
OOOOOOBO 
00000040 
0O00OO9E 
0O0O0O6E 
OOOOOOOO 
00000005 
00000007 
00000006 
00000007 
00000006 
00000006 
00000006 
00000005 
00000004 
0O0O0CE4 
0O0OOCF8 
OOOOODOC 
OO0O0CE8 
OOOOOCEA 
OO0O0CB2 
0O0O0C9E 
OOOOOCBO 
OO0O0C88 
0O000CA4 
OOOOOC80 
OO00OC94 
OO00OD1O 
OOOOOCFO 
0O000D1E 
0O000D6B 
0O000D46 
00000D56 
OO0O0D66 
0O0O0D30 
0O0OOD4C 
000OOD28 
0O0OOD3C 
00000008 
OOOOOOOl 
0000076E 
0O0OOD9A 
0000079A 
00000446 
0000044C 
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HPL UTC1 


REL 


1178 


00000452 




HPL LfTC2 


REL 


1184 


00000468 




HPL UTC3 


REL 


1186 


0000046A 




HPL UITC4 


REL 


1227 


000004BC 




HPL UTC5 


REL 


1233 


000004BC 




HR CORD 


REL 


1085 


000003DE 




HR CflRDl 


REL 


1086 


000003EO 




HR TEMP 


REl 


1078 


00000306 




HTCTLOOP 


REL 


1613 


00000708 




HTERR B 


REL 


858 


0000023E 




HTERR D 


REL 


858 


00000242 




HUTCTBL 


REL 


1143 


0000043A 




H ADDRESS 


HBS 


640 


00000019 




H ADRSSTRT 


BBS 


637 


00000015 




H BTNlfi 


REL 


1451 


0000060C 




H ATN1 


REL 


1458 


00000622 




H BTN1 1 


REL 


1460 


00000628 




H RTN1 2 


REL 


1462 


00000632 




H RTN1 3 


REL 


1463 


00000634 




H HUXCRD 


BBS 


639 


00000017 




H BUF 


REL 


1732 


00000812 




H 3UFI 


REL 


1738 


00000818 




H BUFI 


REL 


1746 


00000834 




H SUFI 1 


REL 


1750 


0000083C 




H BUFO 


REL 


1764 


000008SE 




H BUFO 1 


REL 


1771 


00000876 




K~BUF RT 


REL 


1759 


0000085A 




H BUSSTfiT 


ABS 


638 


00000017 




H BYTTST 


REL 


1706 


0000070C 




H CHKfil 


REL 


2027 


0OOO0A84 




H CHKH2 


REL 


2031 


00000A94 




H CHKBDDR 


REL 


2023 


00000A74 




H CHKS1 


REL 


2052 


OOOOOBBE 




H CHKS2 


REL 


2053 


0OOO0BB2 




H~CHKSRQ 


REL 


2046 


0OOO0A96 




H CLR 


REL 


1489 


00000642 




H CLR BTN 


REL 


1534 


00000678 




H CMOPBSS 


ABS 


642 


00000010 




H CRDREG 


ABS 


1050 


00000000 




H C TBL 


REL 


1497 


00000656 




H DfJCRO 


ABS 


858 


00000001 




H DHCR1 


ABS 


659 


00000081 




H DfllO 


BBS 


686 


00000013 




H Dflll 


BBS 


687 


00000093 




H DBTBIN 


ABS 


644 


0000001 F 




H DBTBOUT 


ABS 


646 


0000001 F 




H"DISBBLE 


REL 


1324 


0000055E 




H OllflTERM 


REL 


1630 


00000712 




H DMOTI 1 


REL 


1648 


0000074B 




H DMBTO 


REL 


1652 


00000758 




H~DMATO 1 


REL 


1657 


00000768 




H DMA Id 


REL 


2200 


OOOOOBEO 




H DrtfTUll 


REL 


2203 


OOOOOBEfl 




H DMATJ2 


REL 


2205 


0OOO0BF2 




H DMYR~TS 


REL 


1478 


00000640 




H eo con 


REL 


1304 


00OO053C 




H_ED_EXIT 


REL 


1311 


00000556 
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H EIR 


REL 


1254 


000004C4 




H~"EIR2 


REL 


1267 


000004EB 




H EIR3 


REL 


1273 


00000502 




H EIR4 


REL 


1280 


0000051C 




H EIR5 


REL 


1284 


00000530 




H~ENfiBLE 


REL 


1301 


00000532 




H EOI 


REL 


1477 


0000063A 




H EXTSTAT 


BBS 


632 


00000005 




H FHKEISR 


REL 


1028 


0000038C 




H~FEOI 


BBS 


670 


00000008 




H FGETO 


A3S 


666 


00000006 




H FGET1 


BBS 


667 


00000086 




H'FLBGS 


ABS 


406 


00000039 




H~FRI 


REL 


1799 


000008A4 




H FRU 


REL 


1791 


0000089H 




H FRWI 1 


REL 


1803 


000008BE 




H FRUII 2 


REL 


1811 


000008C4 




H FRUI 2B 


REL 


1812 


000008C8 




H~FRUI~3 


REL 


1823 


000008EA 




H FRUO 


REL 


1845 


0000091E 




H FRUO 1 


REL 


1847 


00000924 




H FRUO 2 


REL 


1854 


00000938 




H FRUO 3 


REL 


1859 


0000094C 




H~"FRU UTHER 


REL 


1830 


000008FE 




H~GET5TAT 


REL 


1007 


00000374 




(CGTS 


ABS 


675 


OOOOOOOB 




H~G STBT1 


REL 


1012 


00000382 




H'HUFBO 


BBS 


661 


00000003 




H HDFfil 


ABS 


662 


00000083 




H~HOFE0 


ABS 


863 


00000004 




H HOFE1 


BBS 


664 


00000084 




H~IFC 


REL 


1417 


000005D2 




H~IFC2 


REL 


1426 


000005FB 




H~INIT 


REL 


750 


00000156 




H~INIT0 


REL 


763 


0000017E 




H INIT C 


REL 


756 


00000166 




H~INIT~S 


REL 


776 


OOOO018C 




H INTOCOPY 


BBS 


400 


00000034 




H INTOMBSK 


ABS 


634 


OOOOOOll 




' H INTOSTBT 


BBS 


633 


00000011 




H IIMT1C0PY 


BBS 


401 


00000035 




H INT1MBSK 


ABS 


636 


00000013 




H'lNTlSTBT 


BBS 


635 


00000013 




H INTMSKSBV 


ABS 


402 


00000036 




H~INT CB 


BBS 


621 


00478000 




H ISR~ 


REL 


1674 


00000770 




H ISRO 


REL 


1904 


00000964 




H ISR1 


REL 


1906 


0000096B 




H"ISRDMB 


REL 


1694 


000007BB 




H ISR EX 


REL 


1689 


000007B8 




H ISR Pfl 


BBS 


283 


0000001C 




H ISR PR 


BBS 


281 


00000014 




H ISR SL 


BBS 


282 


00000018 




H LOCHL 


REL 


1518 


00000666 




H~L0G 


EFL 


2059 


00000BB4 




H LONO 


BBS 


671 


00000009 




H L0N1 


BBS 


672 


00000089 
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0000024R 
OOOOOOOS 
0O0007FR 
0O0OORE8 
00000236 
0000023R 
00000246 
000009D2 
OOOOOR70 
0O0OOR42 
0000099C 
0O0OOR7O 
00000P42 
000009B6 
OOOOOBIC 
0O0O0B2C 
00000B52 
0O0O0B64 
000009R6 
0O0OOR1O 
0O0OOR2C 
OO0OOR28 
0000001D 
0000003R 
00000014 
0000056E 
00000696 
000006D8 
000006E4 
0O0O06E8 
0O0OO6FO 
000001E8 
000001F6 
0000020R 
000003B6 
0000041R 
000003F0 
000003ER 
0000040E 
00000402 
000005C6 
00000002 
OOOOOClfi 
OO00OC2E 
00000012 
00000002 
OOOOOOOE 
0000008E 
00000011 
0000048C 
0O0004B4 
00000007 
00000087 
0000042C 
00000012 
0O0OO22E 
00000232 
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H LSTERR 


REL 


862 


H NBRF 


pes 


665 


H NOBY^E 


REL 


1719 


H NODMB 


REL 


2086 


H NOTBCTL 


RE. 


852 


H NOTSrTL 


REL 


854 


H NOUORD 


RE 


860 


H NO DHL 


REL 


I 942 


H~NO END 


RE. 


2C04 


H NO GLT 


RE- 


1384 


H NO IFC 


RE. 


132S 


H NO INTO 


RE- 


200S 


H~NO INT1 


REL 


1988 


H NO MR 


REL 


1934 


H NO PPC 


REI 


1972 


H NO PPE 


REL 


1977 


H NO RLC 


REL 


1995 


H NO SPAS 


RE. 


2000 


H NO SPQ 


RE 


1929 


H NO TCT 


REL 


1969 


H NO UCG 


REL 


1979 


H PPF 


REL 


1976 


H PP0L1 


RBS 


643 


H PP0L1MSK 


RBS 


417 


H PTS 


RBS 


688 


H""P POLL 


REL 


1342 


H R6"0UT 


REL 


1579 


H R60UT2 


REL 


1600 


H R60U13 


REL 


1604 


H R60UT4 


REL 


1605 


H R6TC1 


REL 


1608 


H RDB 


REL 


811 


H RDBO 


REL 


814 


H~RD81 


REL 


818 


H ROS 


REL 


1053 


H ROSTBL 


REL 


111S 


H"RDS CS 


REL 


1098 


H RDS ID 


REL 


1093 


H RDS II 


RE, 


1110 


H RDS ST 


REL 


1104 


H REN 


REL 


139S 


H RHDF 


RBS 


660 


H RHDF S 


REL 


2239 


H RHDF SI 


REL 


2243 


H RLC " 


RBS 


685 


H ROUTINE 


RBS 


1048 


H RPPO 


RBS 


678 


H RPP1 


RBS 


679 


H RQC 


RBS 


684 


H ROS 


REL 


1219 


H RQS2 


REL 


1225 


H RTLO 


RBS 


668 


H RTL1 


RBS 


669 


H RT END 


REL 


1125 


H RT SIZ 


RBS 


1126 


H SCESY 


REL 


848 


H SC ERR 


REL 


850 
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0O0005R2 
00000602 
00000016 
00000096 
OOOOOOOF 
0000008F 
0000001B 
OOOOOOIO 
C0000090 
00000038 
00000015 
00000095 
OOOOOOOO 
00000080 
000005B6 
0000090C 
00000RF2 
OOOOOOOC 
OOOOOOOO 
000009EC 
0OOO09FR 
0O0O09F0 
00000001 
0O00O68R 
00000694 
00000072 
00000086 
OOOOORBC 
0O00OB32 
0O00OB90 
OO0OOBB4 
OOOOOBCO 
0O0OOB6C 
OOOOOCOE 
00000886 
0000024E 
0O0O02S2 
000OO2D0 
00000BC8 
OOOOOBDO 
00000C30 
OOOOOOOB 
0000008B 
0000088C 
OOOO0CO2 
OOOOOBFC 
OOOOOBlfl 
0O000C3B 
0O0OOBF4 
00000017 
00000097 
000002 FC 
0O00026R 
0O0OO2BC 
000002CE 
0000034E 
00000364 



H SET 


REL 


1365 


H SET BTN 


REL 


1449 


H SHDOO 


RBS 


691 


H SHDUtl 


BBS 


692 


H SICO 


RBS 


680 


H SIC1 


RBS 


681 


H SPOLL 


RBS 


641 


H SREO 


RBS 


682 


H~SRE1 


RBS 


683 


H STRT3 


RBS 


403 


H STDLO 


RBS 


689 


H STDL1 


RBS 


690 


H SURSTO 


BBS 


656 


H SURST1 


BBS 


657 


H S TBL 


REL 


1374 


H TB~I TRM 


REL 


1836 


H""TBL"~ 


REL 


2093 


H TCB 


BBS 


676 


H TCS 


BBS 


677 


H~TCTU 


REL 


1956 


hTctui 


REL 


1964 


H TCTUl 


REL 


1962 


H TEflP 


RBS 


1049 


H TEST 


REL 


1559 


H TEST EX 


REL 


1563 


H TFI TRM 


REL 


2459 


H TFO TRM 


REL 


2464 


H TFR 


REL 


2075 


H TID 


REL 


2128 


H TID 


REL 


2166 


H~TID _ 1 


REL 


2176 


H~TIO~"E 


REL 


2182 


H TID F 


REL 


2154 


H TII 


REL 


2228 


H TI TERM 


REL 


1780 


H~TLKRR 


REL 


864 


H TMO 


REL 


866 


H TMO ERR 


REL 


935 


H TOD 


REL 


2188 


H TOD 1 


REL 


2191 


H~"TOI"~ 


REL 


2247 


H TONO 


RBS 


673 


H T0N1 


BBS 


674 


H TO TERM 


REL 


1781 


H T BIC 


REL 


2222 


H~T~BST 


REL 


2216 


H T Dnfl 


REL 


2120 


H T FHS 


REL 


2284 


H T INT 


REL 


2210 


H VSTDLO 


BBS 


693 


H~VSTDll 


BBS 


694 


HTJRIT BI 


REL 


951 


HTjflIT BO 


REL 


896 


H~UflIT Dl 


REL 


929 


HTJBIT~P2 


REL 


933 


H~UBIT~ 


REL 


983 


HlJBITl 


REL 


985 
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H UBIT2 


REL 


994 


0000036E 


H UBI 1 


REL 


956 


00000302 


H UBI 2 


REL 


961 


00000312 


H UBI 3 


REL 


972 


00000330 


H~UBI~5 


REL 


979 


00000340 


H UBOT 


REL 


937 


000002D8 


H UB0T1 


REL 


939 


000002DE 


H UB0T2 


REL 


948 


000002F8 


H UBO 1 


REL 


901 


000002 7 


H UBO 2 


REL 


906 


00000280 


H UBO 3 


REL 


917 


0000029E 


H UBO 5 


REL 


924 


000002AE 


H UTB 


REl 


834 


00000216 


H UTBO 


REL 


836 


0000021E 


H 1.1TB1 


REL 


837 


00000224 


H~UTC 


REL 


1137 


0000042C 


H UTC PPC 


REL 


1192 


00000478 


H UTC RST 


REL 


1174 


0000044E 


H UTC snfi 


REL 


1177 


00000452 


H U DONE 


REL 


928 


000002B8 


INTUEV 1 


REL 


732 


00000144 


IOE ERITOR 


FlBS 


386 


FFFFFFE6 


IOE RSLT 


PBS 


388 IOOECLflRATIONS ♦ 


FFFFFFBE 


IOE SC 


FIBS 


389 IODECLARATIONS * 


FFFFFFBA 


10 RISC 


FIBS 


384 


00000017 


IO~SC 


FlBS 


288 


0000002D 


ISR" ENTRY 


BBS 


279 


00000000 


J FfiKEISR 


REL 


2362 


OOOOOCCA 


LEO 


FIBS 


708 


00000011 


MA 


BBS 


233 


00000033 


MA U 


FlBS 


292 


00000032 


NOT HPIB 


FlBS 


363 


00000002 


NOT LSTN 


FIBS 


377 


00000010 


NOT~THLK 


FlBS 


376 


OOOOOOOF 


NO ffCTL 


FlBS 


364 


00000003 


NO CARD 


HBS 


362 


00000001 


NO DATA 


flBS 


367 


00000006 


NO DMA 


FlBS 


374 


OOOOOOOD 


NO DRV 


FIBS 


373 


OOOOOOOC 


NO DVC 


flBS 


36S 


00000004 


NO SCTL 


HBS 


379 


00000012 


NO SPACE 


flBS 


366 


00000005 


NO UORD 


flBS 


37S 


OOOOOOOE 


PPC" 


HBS 


705 


00000005 


PPD 


FlBS 


716 


00000070 


PPE 


flBS 


715 


00000060 


PPU 


FlBS 


710 


00000015 


RCVR BLK 


BBS 


392 SYSGLOBALS * 


FFFFFFF6 


RDS E~RR 


REL 


1072 


00000300 


SC SUSY 


FlBS 


369 


00000008 


SDC" 


FIBS 


704 


00000004 


SET INT LEVEL 


REL 


726 


00000132 


SFC 


STREG 





00000009 


SP 


FiREG 





00000007 


SPD 


BBS 


712 


00000019 


SPE 


BBS 


711 


00000018 


SR 


STREG 





00000006 
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FFFFFEDA 
00000007 
00000018 
00000014 
OOOOOOOE 
OOOOOOOR 
00000010 
00000009 
OOOOOOOD 
0000001C 
OOOOOOOE 
00000020 
00000007 
0000002E 
00000001 
00000011 
00000000 
00000003 
00000002 
00000004 
00000001 
00000009 
OOOOOOOH 
00000030 
0000002C 
00000024 
00000005 
00000028 
0000003F 
0000005F 
00000014 
00000007 
OOOOOOOA 
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SYSFLAG2 


FBS 


395 


TACT OFF 


FBS 


309 


TBSZ OFF 


FBS 


332 


TBUF OFF 


F8S 


331 


TCHR OFF 


F8S 


328 


TCNTE"RR 


F8S 


371 


TCNT OFF 


FBS 


330 


TCT 


BBS 


707 


TDIR OFF 


BBS 


326 


TEMP~OFF 


FBS 


333 


TEND OFF 


F8S 


324 


TFIL OFF 


BBS 


334 


TFR E"RR 


BBS 


368 


TIMEOUT 


FBS 


289 


TIMER PRESENT 


BBS 


394 


TMO ER"R 


BBS 


378 


TTMP" OFF 


BBS 


307 


TT 8LTRST 


PBS 


34S 


TT DMA 


PBS 


344 


TT FHS 


PBS 


346 


TT INT 


B3S 


343 


TUS"R OFF 


BBS 


310 


T BU~OFF 


PBS 


322 


T DMA"PRI 


PBS 


339 


T Ptl OFF 


PBS 


338 


T PR OFF 


PBS 


335 


T""SC OFF 


PBS 


308 


T~SL~OFF 


PBS 


337 


UFJL ~ 


PBS 


713 


UNT 


PBS 


714 


USER ISR 


PBS 


280 


USP ~~ 


STREG 





VBR 


STREG 
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MATCH 



Description 

MATCH matches symbols in an EXT table to a DEF table. 



Usage 

MATCH is used by the linking loader. 
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PAGE 


1 [3.0] 12/26/84 21: 


30:14 fi 


3SEMBLV 


OF MATCH. TEXT 


*** File name: 


MfiTCH »»« 


PBSS 1 


COMPLETE. 


ERRORS: 












1 








* 


procedu 


re matchdefext 






2 








* 




var resolved, matched: 


boolean return flags 




3 








* 




matchmask : . .255 ; 


to be or'd when matched 




4 








* 




var def_table, ext tab 


e : 




S 








* 




ar ray [0 . . T of 


char; symbol tables 




6 








* 




var ext list: array[0 


. ] of 0. .65535 index list 




7 








* 




N: shortint 


number of EXT records 




8 
9 
10 
11 
12 
13 
14 








* 




DEF_length: intege 


size of DEF table 




OOOOOOOO 








rorg 

















def 


matchdefext 








0000 


0001 


offset 




equ 1 


offset field of a GVR 




IS 
16 
17 




0000 


0002 


gvr_flag 


equ 2 


bit in a GVR indicating absence 






0000 


0000 


ext_str 




equ aO 


pointer to EXT symbol 




18 




0000 


0000 


return 




equ aO 


storage for return address 




19 




0000 


0001 


ext base 


equ al 


address of EXT table 




20 




0000 


0002 


list 




equ a2 


address of index list 




21 




0000 


0003 


def_str 




equ a3 


pointer to string in DEF table 




22 




0000 


0004 


gvr ptr 




equ a4 


pointer to GVR in DEF table 




23 








*qlobal 
♦local 




equ a5 


reserved for PASCAL 




24 










equ a6 


base of local workspace 




25 

26 
27 








*sp 




equ a7 


stack pointer 






0000 


0000 


cond 




equ dO 


temporary save for condition codes 




28 




0000 


0001 


Jen 




equ dl 


length of st ring or GVR 




29 




0000 


0002 


ext_count 


equ d2 


number of EXT symbols to process 




30 




0000 


0003 


def count 


equ d3 


bytes of DEF table left 




31 




0000 


0004 


def add 


r 


equ d4 


address of symbol part of DEF record 




32 




0000 


0005 


match r 


esolve 


equ d5 


two booleans packed in a word 




33 




0000 


0006 


ext oTf 


set 


equ d6 


relative pointer to an EXT symbol 
match mask 




34 

35 
36 




0000 


0007 


mask" 




equ d7 






0000 


OOOO 


matchde 


fext equ * 






37 


OOOOOOOO 


205F 






move a . 1 


(sp) + , ret urn 


return address 




38 


00000002 


261F 






move . 1 


(sp) +,def_count 


length of DEF table 




39 


00000004 


34 IF 






move.w 


(sp)+,ext_count 


length of index list, pointer table 




40 


00000006 


245F 






movea . J 


sp)+, list 


address of EXT index list 




41 


00000008 


22 5F 






movea . J 


sp)+,ext base 


address of EXT table 




42 


OOOOOOOfi 


28T>F 






movea . 1 


(sp)*, gvr ptr 


address of DEF symbol 




43 


oooooooc 


3E1F 






move -w 


(sp)+,masK 


flag pattern for matched GVR 
replace return address 




44 

45 
46 
47 
48 


OOOOOOOE 


2F08 






move . 1 


return, - (sp) 




00000010 


7A01 






moveq 


#$0001 ,match_resolve 


matched := false ; resolved := true 




00000012 


5342 






subq.w 


ttl.ext count 


number of EXT symbols to process 
all done if no EXT table 




49 
50 

51 


00000014 


6500 


0086 




bes 


done 




00000018 


3C1B 




LI 


move.w 


(list)+,ext offset 


get relative address of an EXT symbol 




52 


00OOOO1H 


56CH 


FFFC 




dbne 


ext count, LT 


scan till non-zero, meaning unresolved 




53 
54 
55 


0000001E 


677C 






beq . s 


done 


done if none 




00000020 


4BS3 






tst.l 


def count 


length of DEF symbol table 




56 

57 
58 


00000022 


674E 






beq . s 


no_d"efs 


done if none 




00000024 


280C 




get_def 


move . 1 


gvr_pt r ,def_addr 


save address of DEF record 




PPGE 


2 [3.0] 12/26/84 


21:00:14 B 


5SEMBLY 


OF MATCH. TEXT 


*** File name: 


MATCH *** 


59 


00000026 


4281 






clr.l 


len 


find GVR of DEF record 




60 


00000028 


1214 






move .b 


(gvr pt r ) , len 
#5, len 


length of string 




61 


0000002A 


544] 






addq .w 


compute length of string part 




62 


0000002C 


0881 


0000 




bclr 


#0,len 






63 


00000030 


os.:i 






adda .w 


len, gvr ptr 


skip over string 




64 


00000032 


9631 






sub.l 


len, def count 






65 


00000034 


0814 


0002 




btst 


*gvr flag, (gvr_ptr) 


check for exported symbol 




66 
67 
68 


00000038 


662C 






bne . s 


next_def 


ignore if not present 




0000003H 


41F1 


6000 


compare 


lea 


0(ext base, ext offset. w 


),ext_str get addresses of two strings 




69 
70 
71 


0000003E 


2644 






movea . 1 


def_ad"dr ,def_st r 






00000040 


7000 






MOVED. 


*0,C0ND 


standard string compare ( rd Q) 




72 


00000042 


1013 






move .b 


(ext str)+,C0ND 
COND, LEN 


get EXT symbol length (rdq) 




73 


00000044 


3 200 






MOVE.U 


(rdq) 




74 


00000046 


4841 






SUBP 


LEN 


( rdc l) 




75 


00000048 


3200 






MOVE.W 


COND, LEN 


rdq j 




76 


0000004H 


1C1B 






MOVE.B 


(DEF STR)»,C0ND 
COND, len 


( rdq) 




77 


00000O4C 


B200 






cmp.b 


compare two lengths (rdq) 




78 


0000004E 


6302 






bis. s 


str comp 






79 


00000050 


1200 






move .b 


CONtJ.len 


get minimum of two string lengths(rdq) 
loop if at least one character 




80 


00000052 


5301 




st r_com 


p subq.b 


»l,len 




81 


00000054 


6508 






bes . s 


emp end 






82 


00000056 


B10B 




cmp_lp 


cmpm.b 


JdeT str)+, (ext_str)+ 

len, cmp_lp 

nomatch 


compare string bodies 




83 


00000058 


56C9 


FFFC 




dbne 


loop till not equal or end of string 




84 


0000005C 


6606 






bne . s 


if string bodies are equal 




85 


O0O00O5E 


4841 




cmp_end 


SUHP 


LEN 


then compare lengths (rdq) 




86 


00000060 


8200 






CMP.B 


COND, LEN 


(rdq) 




87 


00000062 


6712 






beq.s 


match 


three way branch on comparison 




88 
89 
90 


00000064 


632S 




noma ten 


bis. 5 


ext_low 






00000066 


4281 




next_def clr.l 


len 


DEF does not match an EXT 




91 


00000068 


122C 


0001 




move .b 


offset (gvr_pt r ) , len 


get length of GVR 




92 


OOO00O6C 


D8C1 






adda.w 


len, gvr_pt r 






93 


OOO0OO6E 


9681 






sub.l 


len, def count 


decrease size of DEF table to search 




94 
95 
96 


00000070 


62B2 






bhi.s 


get_def 


loop back if there is any left 




00000072 


4205 




no_def s 


clr .b 


match_resolve 


resolved := false 




97 
98 
99 


00000074 


6026 






bra . s 


done 


no more DEF records 




00000076 


0045 


0100 


match 


ori .w 


#$0100, mate h_re solve 


matched := true 




100 


0000007A 


2384 


6000 




move . 1 


def addr,0(ext base, ext 


offset. w) copy address of DEF to EXT 




101 


OO000O7E 


8F14 






or .b 


mast, (gvr ptr) 


mark DEF record as having been matched 




102 


00000080 


42(<h 


FFFE 




clr.w 


-2(list) 


index := to flag it as resolved 




103 


00000084 


6002 






bra . s 


nxtext2 


find next unresolved EXT 




104 


00000086 


3C1B 




L2 


move .w 


(list)+,ext offset 


get relative address 




105 


00000088 


56CB 


FFFC 


nxtext2 


dbne 


ext_count , L2" 


scan till non zero or end of list 




106 


0000008C 


66P8 






bne . s 


next__def 


find next DEF record 




107 
108 
109 


0000008E 


600C 






bra . s 


done" 


done if none 




00000090 


4205 




ext_low 


clr ,b 


match resolve 


resolved := false 




110 


00000092 


6002 






bra . s 


nxtext3 


find next unresolved EXT 




111 


00000094 


3C'.n 




L3 


move . w 


(list )+, ext offset 


get relative address 




112 


00000096 


56CB 


FFFC 


nxtext3 


dbne 


ext_count , L3" 


scan till non zero or end of list 




113 
114 
115 


0000009A 


669E 






bne . s 


compare 


compare to same DEF record 




0000009C 


205F 




done 


movea . 1 


(sp) + , return 


return address 
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*»« File name: MATCH *«* 



116 

117 

118 

119 

120 

121 

122 

123 

PASS 1 ERRORS: 
PASS 2 ERRORS: 



0000009E 226F 
OOOOOOAO 245F 
00O00OB2 1485 
00O00OA4 E04D 
00OO0OA6 8B11 
00O00OR8 4ED0 



movea 


1 


(5p] + 


al 




movea 


i 


(sp) + 


a2 




move.b 


match 


resolve 


(aXt 


Isr.w 




#8, match reso. 


ve 


or .b 




match 


resolve 


fa] ) 


jmp 




( return] 





address of matched 
address of resolved 
return boolean results 

matched := matched or match 



PAGE 4 [3.0] 12/26/84 21:00:14 ASSEMBLY OF MATCH. TEXT 
**» 68000 ASSEMBLER SYMBOL TABLE PIMP «** 

EXTERNAL SYH80LS 
**« NO EXTERNAL SYMBOLS **« 
INTERNAL SYMBOLS 



SYMBOL 


TYPE 


DEF EQU SYM VALUE 


AO 


AREG 





OOOOOOOO 


Al 


HREG 





0O0O0C01 


A2 


HREG 





00000002 


A3 


AREG 





0O0O0OC3 


A4 


AREG 





0OOOOOC4 


AS 


AREG 





OOOOOOCS 


A6 


AREG 





0O0O0OC6 


A7 


AREG 





00000007 


CCR 


STREG 





00000005 


CMP END 


REL 


8S 


0000005E 


CMP'LP 


REL 


82 


0O0O0OS6 


COMPARE 


REL 


68 


0O0OOO3A 


COND 


DREG 


27 


OOOOOOOO 


DO 


DREG 





OOOOOOOO 


Dl 


DREG 





00OOOO01 


D2 


DREG 





00000002 


D3 


DREG 





00000003 


□4 


DREG 





00000004 


OS 


DREG 





00000005 


D6 


DREG 





00000006 


D7 


DREG 





00000007 


DEF AODR 


DREG 


31 


00000004 


DEF~C0UNT 


DREG 


30 


00000003 


DEF STR 


AREG 


21 


00000003 


DFC 


STREG 





00000008 


DONE 


REL 


US 


0O0O009C 


EXT BASE 


AREG 


19 


0OOO0001 


EXT - C0UNT 


DREG 


29 


00000002 


EXT LOU 


REL 


109 


00000090 


EXT OFFSET 


DREG 


33 


00000006 


EXT _ STR 


AREG 


17 


OOOOOOOO 


GET"QEF 


REL 


58 


00000024 


GVR FLAG 


ABS 


IS 


00000002 


GVR PTR 


AREG 


22 


00000004 


LI 


REL 


51 


00000018 


L2 


REL 


104 


00000086 


L3 


REL 


111 


00000094 


LEN 


D?EG 


28 


0O0O0001 


LIST 


A*EG 


20 


00000002 


MASK 


CWC 


34 


00000007 


MATCH 


REL 


99 


00000076 


MATCHDEFEXT 


REL 


36 


OOOOOOOO 


MATCH RESOLVE 


CREG 


32 


00000005 


NEXT DEF 


REL 


90 


00000066 


NOMATCH 


REL 


88 


00000064 


NO DEFS 


REL 


96 


00000072 


NXTEXT2 


REL 


105 


00000088 



*«* File name: MATCH *** 
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00000096 
0O0OOOO1 
00000000 
00000009 
00000007 
00000006 
00000052 
00000007 
OOOOOOOA 



NXTEXT3 


REL 


112 


OFFSET 


BBS 


14 


RETURN 


AREG 


ie 


SFC 


STREJ 





SP 


AREC 





SR 


STREG 





STR COUP 


REL 


80 


USP 


STREG 





VBR 


STREG 
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MATCHSTR 



Description 

MATCHSTR contains low-level assembly language string functions. 
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PAGE 


1 [3.0] 7/26/84 12:08:06 PI 


3SEMBLY 


OF nHTCHSTR.TEXT *«« File name: MATCHSTR ««« 


PUSS 1 


COMPLETE. 


ERRORS: 










1 
2 






* match pack 






3 








nosyms 






* 








sprint 






5 
6 
7 








mname 


matchstr 










sre 


module matchstr; 




8 
9 








sre 

sre 


expo rt 




10 








s re 


type 




11 








sre 


5tringarg=string [255] ; 




12 








sre 


ttable =packed array[0..0] of 0..255; 




13 








sre 






14 








sre 


function afterstr(var sl:string; 




IS 








sre 


c :integer; 




16 








sre 


n :integer; 




17 








sre 


s2,'stringarg] : integer ; 




18 








sre 


function beforest r ( var sl:string; 




19 








sre 


c :integer; 




20 








sre 


n :integer; 




21 








sre 


s2:stringarg) :integer; 




22 








sre 


function changest r (va r sl:string; 




23 








sre 


c :integer; 




24 








sre 


n :integer; 




25 








sre 


s2 : st ringarg: 




26 








sre 


s3:stringarg):integer; 




27 








sre 


function b reakst r [si : st ringarg; 




28 








sre 


c rinteger; 




29 








sre 


s2:stringarg):integer; 




30 








s re 


function spanst r [ si :st ringarg; 




31 








sre 


c '.integer; 




32 








sre 


s2 : st ringarg) :integer; 




33 








sre 


end; 




34 














35 








def 


matchstr matchstr 




36 




0000 0000 


matchs 


r matchstr eau * 




37 


00000000 


4E75 




rts 






38 




0000 001A 


af unc 


equ 


26 




39 




0000 0018 


am si 


equ 


24 




40 




0000 0014 


asl 


equ 


20 




41 




0000 0010 


ac 


equ 


16 




42 




0000 OOOC 


an 


equ 


12 




43 




0000 0008 


as2 


equ 


8 




44 




0000 0012 


aargs 


equ 


18 




45 








def 


matchstr afterstr 




46 


00000002 


0000 




dc .w 







47 




0000 0004 


matchs 


r afterstr equ * 




48 


00000004 


4E56 OOOO 




link 


a6,#0 




49 


00000008 


42PIE OOlfl 




clr.l 


afunc(a6) func:=0 




50 


OOOOOOOC 


206E 0014 




movea . 


asl(a6),a0 aO:=~sl 




51 


00000010 


7000 




moveq 


#0.d0 




52 


00000012 


1010 




move .b 


(aO) dO d0:=strlen(sl) 




53 


00000014 


242E OOOC 




move. 1 


an(a6) ,d2 if n>=0 




54 


00000018 


6D24 




blt.s 


afterl then 




55 






* 








56 






* count 








57 






* 








58 


0000001P, 


262E 0010 




move. 1 


ac (a6) ,d3 d3:=c 




PRGE 


2 [3.0] 7/26/84 12:08:06 PIS 


SEMBLY OF MATCHSTR. TEXT *** F 


ile name: ilflTCHSTR *** 


59 


0000001E 


6F2E 




ble.s 


aret check cursor<=0 




60 


00000020 


226E 0008 




movea . . 


as2(a6),al al:=~sl 




61 


00000024 


7200 




moveq 


#0,dl 




62 


00000026 


1219 




move. b 


(al)t.dl dl :=strlen(s2) 
af terO 




63 


00000028 


6708 




beq .s 




64 


0000002A 


6144 




bsr .s 


scan 




65 


0000002C 


2D43 OOlfl 


agood 


move . 1 


d3,afunc (a6) 




66 


00000030 


601C 




bra .s 


aret 




67 






* 








68 






* count 


but no 


string 




69 






* 








70 


00000032 


D682 


afterO 


add.l 


d2,d3 c:=c*n 




71 


00000034 


9C93 




sub.l 


d3,d0 




72 


00000036 


5 280 




addq. 1 


«l,d0 c :: len(sl)*l 




73 


00000038 


661=2 




bne 


agood 




74 


00000030 


6000 0012 




bra 


aret 




75 






* 




else 




76 






* no count qiven 




77 






* 








78 


0000003E 


226E 0008 


afterl 


movea . 1 


as2(a6),al 




79 


00000042 


7200 




moveq 


#0,dl 




80 


00000044 


1219 




move. b 


(al)*,dl 




81 


00000046 


6610 




bne .s 


after2 




82 






* 








83 






* no count no string 




84 






* 








85 


00000048 


5280 




addq. 1 


#l,d0 func:=d0+l 




86 


0000004A 


2D40 OOlfl 




move. 1 


dO ,afunc (a6) 




87 














88 


0000004E 


4E5E 


aret 


unlk 


a6 end 




89 


00000050 


20SF 




movea . 1 


(sp)+, aO 
waargs , sp 




90 


00000052 


DEFC 0012 




adda.w 




91 


00000056 


4ED0 




jmp 


(aOT 




92 






* 








93 






* no count with 


st ring 




94 






* 








95 


O00000S8 


7401 


after2 


moveq 


#l,d2 count 1 




96 


OOOOOOSfl 


26:E 0010 




move. 1 


ac (a6) ,d3 




97 


0000005E 


6FEE 




ble 


aret cursor out of range? 




98 


00000060 


SUE 




bsr.s 


scan 




99 


00000062 


67EA 




beq 


aret must match at least once 




100 


00000064 


2D43 OOlfl 


after3 


move. 1 


d3 ,afunc (a6) 




101 


00000068 


74C1 




moveq 


#l,d2 reset count 




102 


0000006H 


6104 




bsr.s 


scan 




103 


0000006C 


66P6 




bne 


after3 




104 


0000006E 


60DE 




bra 


aret 




105 






* 








106 




0000 0070 


scan 


equ 


X 




107 


00000070 


5382 




subq. 1 


#l,d2 pre decriment count 




108 






* 








109 


00000072 


48E7 EOCO 


scanl 


movem . 1 


<JO-d2/aO-al,-(ap) save for next call 




110 


00000076 


6100 OOOE 




bsr 


scanloop 
(sp)+,d6-d2/a0-al 




111 


0000007A 


4CCF 0307 




movem . 1 




112 


0000007E 


67C4 




beq .s 


scanx 




113 


00000080 


51CP FFFO 




dbra 


d2, scanl 




114 


00000084 


4E75 


scanx 


rts 






115 




0000 0086 


scanloop 


equ * 
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116 


00000086 9083 








sub . 1 


d3,d0 




117 


00000068 5280 








addq. 1 


#l,dO 




118 


0000006A 6000 


0036 






bit 


sfexit pes in range ? 




119 
















120 


0000006E 9041 








sub 


dl,dO is str2 longer than 




121 


00000080 6000 


0030 






bit 


sfexit remaining strl ? 




122 
















123 


00000094 4A41 








tst .w 


dl 




124 


00000096 6726 








beq . s 


ssexit2 str2 is null so match 




125 
















126 


00000068 2448 








movea. 1 


a0,a2 save strl ptr 




127 


0000009A D0C3 








adda.w 


d3,a0 start source compare 




128 
















129 


0000005C 1C19 








move .b 


(al)+,d6 first character 
#2,dl 




130 


0000008E 5541 








subq 




131 
















132 


OOOOOOFO BC18 




sell 




cmp.b 


(aO)+.d6 
dO,scll 




133 


OO000OP2 57C8 


FFFC 


scl2 




dbeq 




134 


OO000OP6 661A 








bne .s 


sfexit found it ? 




135 
















136 


OOOO0OA8 2648 








movea . 1 


a0,a3 temp strl 




137 


OOOOOOAH 2849 








movea . 1 


al,a4 temp str2 




138 
















139 


OOOOOOAC 3A01 








move .w 


dl,d5 remaining str2 bytes 
ssexit str2 is 1 char 




140 


OOOOOOPE 6008 








bit .s 




141 
















142 


OOOOOOBO B90B 




5C13 




cmpm.b 


(a3) + (a4)+ 

dS,scl3 

sci2 




143 


O0000OB2 S6CD 


FFFC 






dbne 




144 


OO00OOB6 66EA 








bne 




145 


OOO0OOB8 260B 




55e:< 


it 


move. 1 


a3,d3 




146 


OOOOOOBA 968A 








sub.l 


a2,d3 




147 


OOOOOOBC 4E75 








rts 






148 


OOOOOOBE 2603 




ssex 


it2 


move . 1 


d3,d3 set condition code 




149 


OOOOOOCO 4E75 








rts 






150 
















151 


OO00OOC2 7600 




sfex 


it 


moveq 


#0,d3 cursor to zero 




152 


000000C4 4E7S 








rts 






153 






* 










;S4 










def 


matchstr beforestr 




155 


OO00OOC6 0000 








dew 







156 


0000 


00C8 


mate 


hst 


r beforestr equ * 




157 


O00000C8 4E56 


0000 






link 


a6,#0 




158 


OOOOOOCC 42AE 


001A 






clr.l 


afunclaB) func:=0 
asl (a6) , aO aO:=~sl 




159 


OOOOOOCO 206E 


0014 






movea . 1 




160 


000000D4 7000 








moveq 


*0,dO 

(aO).dO dO:=strlen(sl] 
an(a6),d2 if n>»0 
before! then 




161 


0O000OC6 1010 








move .b 




162 


O0O00OC8 242E 


OOOC 






move . 1 




163 


OOOOOODC 602A 








bit .s 




164 






* 










165 






* count 








166 






* 










167 


OOOOOODE 262E 


0010 






move . 1 


ac(a6),d3 d3:=c 




168 


OO00OOE2 6F00 


FF6A 






ble 


aret check cursor<=0 




169 


000000E6 226E 


0008 






movea . 1 


as2(a6) .al al :="sl 




170 


OOOOOOEA 7200 








moveq 


*0,dl 




171 


OOOOOOEC 1219 








move .b 


(al)+,dl dl:=strlen(s2) 




172 


OOOOOOEE 6710 








beq.s 


beforeO 
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173 


OOOOOOFO 6100 


FF7E 






bsr 


scan 




174 


0O000OF4 6702 








beq . s 


bgood 

dl,d3 move to front of match 




175 


000000F6 9681 








sub . 1 




176 


OO0O0OF8 2D43 


001A 


bgoo 


d 


move . 1 


d3,afunc (a6) 




177 


OOOOOOFC 6000 


FF50 






bra 


aret 




178 






* 










179 






* count 


but no 


st ring 




180 






* 










181 


0O0O010O 9682 




befo 


reO 


sub.l 


d2,d3 c:=c-n 




182 


00000102 6F00 


FF4A 






ble 


aret c : : 




183 


00000106 60F0 








bra 


bgood 




184 






* 






else 




185 






* no 


count given 




186 






* 










187 


00000108 226E 


0008 


befo 


rel 


movea . 1 


as2(a6) ,al 




188 


0000010C 7200 








moveq 


»0,dl 




189 


0000010E 1219 








move .b 


(al)+,d; 




190 


OO0O011O 660A 








bne . s 


before2 




191 






* 










192 






* no 


count no strinq 




193 






* 










194 


00000112 7001 








moveq 


»l,d0 func:=l 




195 


00000114 2D40 


001A 






move . 1 


d0,afunc(a6) 




196 


00000118 6000 


FF34 






bra 


aret 




197 






* 










198 






* no 


count with 


st ring 




199 






* 










200 


0000011C 7401 




befo 


re2 


moveq 


*l,d2 count 1 




201 


0000011E 262E 


0010 






move . 1 


ac(a6) ,d3 




202 


00000122 6F00 


FF2P, 






ble 


aret cursor out of range? 




203 


00000126 6100 


FF48 






bsr 


scan 




204 


0000012A 6700 


FF22 






beq 


aret must match at least once 




205 


0000012E 2D43 


OOlfi 


before3 


move . 1 


d3,afunc (a6) 




206 


00000132 93AE 


001A 






sub.l 


dl,afunc(a6) move to front of match 




207 


00000136 7401 








moveq 


tl,d2 reset count 




208 


00000138 6100 


FF36 






bsr 


scan 




209 


0000013C 66F0 








bne 


before3 




210 


0000013E 6000 


FFOE 






bra 


aret 




211 
















212 


oooo 


001E 


mf 




equ 


30 




213 


0000 


001C 


mslm 




equ 


28 




214 


0000 


0018 


msl 




equ 


24 




215 


0000 


0014 


mc 




equ 


20 




216 


0000 


0010 


mk 




equ 


16 




217 


0000 


cooc 


ms2 




equ 


12 




218 


0000 


0008 


ms3 




equ 


8 




219 


0000 


0016 


mr 




equ 


22 




220 










def 


matchstr changestr 




221 


00000142 0000 








dc .w 







222 


0000 


0144 


matchst 


r changestr equ * 




223 


00000144 4ES6 


0000 






Tlnk 


a6,#0 




224 
















225 


00000148 42AE 


001E 






clr.l 


mf(a6) function result 




226 
















227 


0000014C 282E 


0014 






move . 1 


mc (a6) ,d4 cursor 




228 


00000150 6F00 


0166 






ble 


chgret 




229 
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230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 

277 
278 
279 
280 
281 
282 
283 
284 
285 



00000154 206E 0C18 

00000158 7000 

0000015H 1010 

0000015C 9084 

0000015E 5280 

00000160 6D00 0156 

00000164 2A2E 0010 
00000168 6700 0046 
0000016C 6F00 0054 



00000170 226E OOOC 
00000174 4011 
00000176 6700 0082 



0000017A 6014 

0OO0017C 48E7 0400 chgll 

00000180 6100 OOHE 

00000184 4CDF 0020 

00000188 2044 001E 

0000018C 6700 012A 

00000190 51CD FFEfi Chgl2 

00000194 6000 0122 



00000198 7000 

0000019H 1010 

OOO0019C 2600 

0000019E 9685 

000001A0 246E 0008 

000001H4 7400 

000001A6 1412 

000001R8 D682 

000001AA 6000 010C 



000001AE 0000 



nilstr 



movea.l msl (a6) , aO 
moveq #0,d0 

(aO).dO 

d4,dO 

*l,dO 

chgret 



move , b 
sub.l 
addq . 1 
bit 



move . 1 

beq 

ble 



mk(a6) ,dS 

chgzcnt 

chgncnt 



cursor in range 
counter 



have count value 

movea . 1 ms2 (a6) ,al 
tst.b (al) 
beq chgcnill 

have count and s2 and maybe s3 

replace the next n occurences of s2 with 53 

bra.s chgl2 

movem. 1 d5, -Csp) 

bsr 

movem. 1 

move. 1 

beq 

db ra 

bra 



chgflds 
(sp)+,dS 
d4,mf (a6) 
chgret 
d5, chgll 
chgret 



save count 



get count 
set func 



count but 
replace ne: 
moveq 
move .b 
move . 1 
sub.l 
movea . 1 
moveq 
move -b 
add.l 
bit 



no s2 

count chars with s3 
#0,d0 
(aO).dO 

d0,d3 final length of si 
d5 d3 

ms3 (a6) ,a2 
#0,d2 
(a2) d2 
d2,d3 
chg ret 



count is too big 



count is zero 
insert s3 at cursor 



dc. 



000001BO 2D7C 0000 chgzcnt move . 1 

OlflE OOOC 

000001B8 6176 bsr.s 

0OO001BA 2044 OOIE move.l 

000001BE 6000 O0F8 bra 



make ms2 a dummy nilstring 
ttnilst r,ms2(a6) 

chgflds 
d4,mf (a6) 
chgret 



OOO001C2 226E OOOC chgncnt movea.l ms2(a6),al 
000001C6 4A11 tst.b (al) 

000001C8 6716 beq.s chgnill 
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286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
3 38 
339 
340 
341 
34 2 



* no count but has s2 might have s3 

* replace all occurences of s2 with S3 

000001CA 6164 bsr.s chgflds 

OOO001CC 2D44 001E move.l d4,mf(a6) 

000001DO 6700 O0E6 beq chgret must change at least one 

000001D4 615A chgncntl bsr.s chgflds 

000001D6 2D44 OOIE move.l d4,mf(a6) set func value 

0000010A 6700 OODC beq chgret 

0000010E 60F4 bra chgncntl 

* no count no s2 
000001EO 24SE 0008 chgnill movea.l ms3(a6),a2 



00O001E4 4A12 
0OO001E6 6706 



tst .b 

beq . s 



(a2) 
chgni!2 



000001E8 1034 
000001EA S310 
000001EC 60C2 



* no count only s3 

* replace rest of si with s3 

move.b d4,(a0) chop si to cursor 

subq.b #l,(a0) 

bra chgzcnt add s3 

* no count no strings 

* delete remainder of si 

000001EE 1034 chgnil2 move.b d4,(a0) set si length 

000001FO 6310 subq.b »l,(aO 

000001F2 2D44 OOIE move.l d4,mf(a6) set func value 

000001F6 6000 00C0 bra chgret 

* have count no s2 

* replace count bytes with s3 



0OOO01FA 9085 
0OO001FC 6D00 OOBA 

00000200 246E 0008 
00000204 7400 
00000206 141 A 

00000208 7600 
0000020A 1610 
0C00020C 9645 
0000020E D642 
00000210 B6.'E 001C 
00000214 6200 00A2 

00000218 2E05 

0000021 A D0C4 

00O0021C 47F0 5000 

00000220 6100 0064 

00000224 2D44 OOIE 

00000228 6000 008E 



chgcnill sub.l d5,d0 dO is tbytes after delete 
bit chgret 

movea.l ms3(a6),a2 addr and size of S3 
moveq #0,d2 

(a2)*,d2 



move .b 

moveq 

move .b 

sub 

add 

cmp.b 

bhi 



move.l d5,d7 apparent size of s2 

adda d4,a0 cursor addr 

lea 0[a0,d5.w) ,a3 after delete 

bsr chgfl do it 

move.l d4,mf(a6) 

bra chgret 



#0 d3 

(a0),d3 will it fit 

d5,d3 

d2,d3 final size of si 

mslm(a6) ,d3 

chgret 
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343 
















344 


0000022C 


7800 




chgbad 


moveq 


#0,d4 cursor to zero 




345 


0000022E 


4E7S 






rts 






346 








* 








347 








* 


do one 


change 




348 








* 








349 


00000230 


206E 


0018 


chgflds 


movea. 1 


msl(a6),a0 source string 




350 


00000234 


7000 






moveq 


#0,d0 




351 


00000236 


1010 






move.b 


(30), do s length 
d0,d3 final length of s 




352 


00000238 


2600 






move. 1 




353 


000002 3A 


9084 






sub.l 


d4,d0 




354 


000002 3C 


5280 






addq. 1 


#l,dO 




355 


000002 3E 


60EC 






bit 


chgbad pos in range ? 




356 
















357 


00000240 


226E 


OOOC 




movea . 1 


ms2(a6),al old string 




358 


00000244 


7200 






moveq 


#0,dl 




359 


00000246 


1219 






move ,b 


(al)*,dl old lenght 




360 


00000248 


2E01 






move . 1 


dl,d7 save it for later 




361 
















362 


0000024A 


246E 


0008 




movea . 1 


ms3(a6),a2 new string 




363 


0000024E 


7400 






moveq 


#0,d2 

(a2)t,d2 new length 




364 


00000250 


1410 






move.b 




365 
















366 


00000252 


9641 






sub 


dl,d3 




367 


00000254 


D642 






add 


d2,d3 




368 


00000256 


B62E 


001C 




cmp.b 


mslm(a6),d3 will it all fit ? 




369 


0000025A 


62D0 






bhi 


chgbad 




370 
















371 


000002SC 


D0C4 






adda.w 


d4 , aO start source compare 




372 
















373 


000002SE 


4A01 






tst .b 


dl 




374 


00000260 


6700 


006E 




beq 


chgins length so match 




375 
















376 


00000264 


9041 






sub 


dl.dO is old longer than 




377 


00000266 


6DC4 






bit 


chgbad remaining source ? 




378 
















379 


00000268 


1C19 






move .b 


(al)+,d6 first character 
#2,dl 




380 


0000026A 


5541 






subq 




381 
















382 


0000026C 


BC18 




chgl 


cmp.b 


(a0)+,d6 




383 


0000026E 


57C8 


FFFC 


chg2 


dbeq 


dO,chgl 




384 


00000272 


6644 






bne . s 


chgret found it ? 




385 
















38$ 


00000274 


2648 






movea . 1 


a0,a3 temp source 




387 


00000276 


2849 






movea. 1 


al ,a4 temp old 




388 
















389 


00000278 


3A01 






move .w 


dl,d5 remaining old bytes 




390 


0000027A 


6D08 






blt.s 


chgfO old is 1 char 




391 
















392 


0000027C 


B90B 




chg3 


cmpm.b 


(a3)+,(a4)* 




393 


0000027E 


S6CD 


FFFC 




dbne 


dS,chg3 




394 


00000282 


66EA 






bne 


Chg2 




395 
















396 


00000284 


5388 




chgfO 


subq . 1 


#l,aO 




397 
















398 


00000286 


286E 


0018 


chgfl 


movea . 1 


msl(a6),a4 string s 




399 


0000028A 


1883 






move .b 


d3,(a4) 
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400 


0000028C 


4A40 






tst .w 


dO 




401 


OO00028E 


6700 


00 1C 




beq 


chgcpyl 
d2,d7 




402 


00000292 


9E42 






sub .w 




403 


00000294 


6716 






beq . s 


chgcpyl 
chgsml 




404 


00000296 


6E2A 






bgt .5 




405 








* new string is 


greater than old 

I (a4,d3.w) ,a4 end s * 1 




406 


00000298 


49 F4 


3001 




lea 




407 


0000029C 


47 F4 


7000 




lea 


0(a4 d7.w),a3 source 




408 


000002BO 


5340 






subq.w 


*l,dO count 




409 
















410 


OO00O2H2 


1923 




chginsl 


move .b 


-(a3),-(a4) 




411 


000002A4 


S1C8 


FFFC 




dbra 


do, chginsl 




412 


000002A8 


6002 






bra . s 


chgcpyl 




413 
















414 


O00O02BA 


10DP; 




chgcpy 


move .b 


(a2)+,(a0)+ 
d2, chgcpy 




415 


000002HC 


51CH 


FFFC 


chgcpyl 


dbra 




416 
















417 


000002BO 


91EE 


0018 




sub a. 1 


msl (a6) , aO 




418 


000002B4 


2808 






move. 1 


a0,d4 new cursor value 




419 


000002B6 


4E75 






rts 






420 
















421 


000002B8 


4E5E 




chgret 


unlk 


a6 




422 


000002BA 


205F 






movea. 1 


(sp)*,a0 
ttmr , sp 




423 


000002BC 


DEFC 


0016 




adda.w 




424 


000002C0 


4ED0 






jmp 


(aO) 




425 








* 








426 








* new string is 


smaller than old 




427 




0000 


02C2 


chgsml 


equ 


* 




428 


000002C2 


284B 






movea . 1 


a3,a4 




429 


000002C4 


98C7 






suba .w 


d7,a4 




430 
431 
432 


000002C6 


5340 






subq.w 


#l,dO 




000002C8 


18DB 




chgdell 


move .b 


(a3)*,(a4)+ 
dO, chgdell 




433 


000002CA 


51C8 


FFFC 




dbra 




434 


000002CE 


60DC 






bra 


chgcpyl 




435 
















436 




OOOO 


0200 


chgins 


equ 


* 




437 


00000200 


2648 






movea. 1 


a0,a3 




438 


0000021)2 


60B2 






bra 


chgfl 




439 
















440 




0000 


0014 


bf 


equ 


20 




441 




0000 


0010 


bsl 


equ 


16 




442 




0000 


OOOC 


be 


equ 


12 




443 




0000 


0008 


bs2 


equ 


8 




444 
445 
446 




0000 


OOOC 


bargs 


equ 


12 












def 


matchstr breakstr 




447 


00000204 


0000 






dew 







448 




0000 


02D6 


matchst 


r breakstr equ * 




449 


000002D6 


4E56 


0000 




link 


a6,#0 




450 


000002DA 


42BE 


0014 




clr .1 


bf(a6) set func to 




451 
















452 


000002DE 


282E 


OOOC 




move . 1 


be (a6) ,d4 cursor pos 




463 


000002F.2 


6F3A 






ble.s 


bsret 




454 
















455 


000002E4 


206E 


0010 




movea . 1 


bsl (a6) ,a0 




456 


000002E8 


2848 






movea . 1 


a0,a4 save addr of si 
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»« File name: flRTCHSTR 



457 
458 
4 59 
460 
461 
462 
463 
464 
465 
466 
4 67 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
4 94 
4 95 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 



0OO0C2ES 7000 
C00002EC 1010 
00O002EE 672E 

000002FO 9084 
000002F2 6D2R 

000002F4 226E 00O8 
000002F8 7200 
000002FB 1219 
000002FC 6720 

000002FE 01C4 
00000300 5341 

00000302 1418 
00000304 2449 
00000306 3601 

00000308 B41PI 
0000030B 67CB FFFC 
0000030E 6706 

00000310 51C8 FFFO 
00000314 6008 

00000316 91CC 
00000318 5388 
0000031H 2D48 0014 

0OO0031E 4E5E 
00000320 205F 
00000322 DEFC OOOC 
00000326 4E00 



00000328 0000 



moveq 
move. b 
beq .5 

sub.l 
bit ,s 



moveq 
move. b 
beq . s 

adda. 1 
subq.w 



»0,dO 

(a6),d0 

bs-et 

<J4,dO 
bsret 

bs2(a6) ,al 
*0,dl 
(al )*,dl 
bsret 



length si 



list addr 
list length 



d4,aO 
*l,dl 



start scan 



bloopO move.b (a0)+,d2 



movea .1 al , a2 



char to test 
copy list addr 
copy list length 



bloopl cmp.b 
dbeq 



dbra 
bra .s 



(a2)*,d2 
d3, bloopl 
bsxit 

dO,bloopO 
bsret 



suba. 1 a4, aO 

subq.l #l,aO 

move.l aO,bf(aS) 

unlk a6 

movea . 1 fsp)+,aO 

adda.w ttbargs.sp 

jmp (aO) 



calc func value 



def 
dc. 



0000 0320 matchstr spanstr 



matchst r_spanst r 




0000032B 4E56 0000 

0000032E 42BE 0014 

00000332 232E OOOC 

00000336 6FE6 

00000338 206E 0010 

0000033C 2348 

0000033E 7000 

00000340 1010 

00000342 6 7DR 

00000344 9084 

00000346 6DD6 

00000348 22SE O0O8 

0000034C 7200 

0000034E 1219 

00000350 67CC 

00000352 01C4 



link 
clr.l 
move . 1 
ble.s 



equ 
a6,#0 
bf (a6) 
bc(a$), 
bsret 



zero function value 



movea .1 bsl (a6) , aO 

movea .1 aO, a4 

moveq #0,d0 

move.b (aO).dO 

beq.s bsret 

sub.l d4,d0 

bit . 5 bsret 

movea . 1 bs2 (a6) , al 

moveq #0,dl 

move. b (al )+,dl 

beq.s bsret 



cursor position 
string addr 
string length 

list addr 
list length 



adda.l d4,a0 start scan 
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sloopO 



514 


00000354 


5 341 




515 








516 


00000356 


1418 




517 


00000358 


2 44 9 




518 


0000035H 


2B01 




519 








520 


000003SC 


B41A 




521 


0000035E 


5'CB 


FFFC 


522 


00000362 


6BB2 




523 








524 


00000364 


51C8 


FFFO 


525 


00000368 


60BC 




526 








527 








PBSS 1 


ERRORS: 






PASS 2 


ERRORS: 







ASSEMBLE OF MOTCHSTR . TEXT 

subq.w #l,dl 

move.b (a0}+,d2 

movea. 1 al,aZ copy list addr 

move.l dl,d3 copy list length 



*** File name: HfiTCHSTR *** 



sloopl 



cmp.b 

dbeq 

bne 

dbra 
bra 



<a2)+,d2 

a3, sloopl 
bsxit 

dO, sloopO 
bsxit 



1-298 



MODIV 



Description 

MODIV provides the 32-bit integer MOD and DIV functions which conform to the Pascal definition. 
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File name : MODIV *»» 



PASS 1 
1 
2 
3 
4 
S 
6 
7 
8 
9 
10 


COMPLETE. 


ERRORS 






11 






12 






13 






14 






15 


OOOOOOOO 


4E44 


16 


00000002 


4E47 


17 


00000004 


7E01 


18 


00000006 


4C0F 


19 


0O0O0O0A 


4FI81 


20 


OOOOOOOC 


6A0A 


21 


OOOOOOOE 


60F2 


22 


O0000O1O 


7E00 


23 


00000012 


4C0F 


24 


00000016 


4-181 


25 


00000018 


6/20 


26 


0000001A 


3041 


27 


0000001C 


R.ise 


28 


0000001E 


661C 


29 


00000020 


2302 


30 


00000022 


8 7C1 


31 


00000024 


6916 


32 


00000026 


4A47 


33 


00000028 


6^08 


34 


0000002A 


4343 


35 


0000002C 


4P143 


36 


0000002E 


6H02 


37 


00000030 


D641 


38 


00000032 


48C3 


39 


00000034 


2-03 


40 


00000036 


2040 


41 


00000038 


4ED0 


42 


0000003A 


4E4S 


43 






44 






45 






46 


0000003C 


780F 


47 


0000003E 


7 COO 


48 


00000040 


7HO0 


49 


00000042 


4081 


50 


00000044 


6H06 


51 


00000046 


4481 


52 


00000048 


6954 


53 


OO000O4A 


4646 


54 


0000004C 


4A82 


55 


0000004E 


6A14 


56 


00000050 


4482 


57 


00000052 


680C 



DEF PSM DIV 
DEF flSMJIOD 



register usage 

dO - return address 

dl - divisor 

d2 - dividend and quotient 

d3 - remainder 

d4 - loop counter 

dS - sign of remainder 

d6 - sign of quotent 

d7 - mod/div flag 



ovf low 

valrange 

asmjnod 



div 
dm 



t rap 
t rap 
moveq 
movem. 1 
tst.l 
bpl.s 
bra . s 
moveq 
movem. 1 
tst .1 
beq . s 
movea.w 
cmp. 1 
bne . 5 
move . 1 
divs 
bvs.s 
tst .w 
beq . s 
swap 
tst .w 
bpl.s 
add.w 
ext .1 
move . 1 
move a . 1 
jmp 
t rap 



#4 

#7 

#l,d7 set mod flag 

(sp)+,d0/dl/d2 read return addr and operands 

divide by zero? 

for mod? 



d_st art 

valrange 

#0,d7 

(sp)+,d0/dl/d2 

dl 

zerodiv 

dl,aO 

aO,dl 

do_full 

d2,d3 

dl,d3 

do_full 

d7 

div 1 

d3 

d3 

div 1 

dl ,33 

d3 

d3,-(sp) 

dO.aO 

II 6 ' 



clear mod flag 

read return addr and operands 

divide by zero? 

is divisor a 
16 bit integer? 

try signed divide 

did it work? 
mod or div? 



if mod is negative 

teen 

add back divisor 

push result 

fake return 



convert divisor and dividend to sign magnitude 



moveq 
moveq 
moveq 
tst.l 
bpl.s 
neg . 1 
bvs. s 
not .w 
tst.l 
bpl.s 
neg . 1 
bvc . s 



#15,d4 

#0,d6 

#0,d5 

dl 

divend 

dl 

max neg dvsr 

d6 

d2 

rmndr 

d2 

not_special 



loop count - 1 
sign of quotient 
sign of remainder 
divisor negative? 



set sign flag 
dividend negative 



complement quotient sign 
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59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 



90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 



00000054 B2BC 0000 

0001 
0000005R 6604 
0000005C 4A46 
0000005E 66B0 
00000060 4646 
00000062 464S 
00000064 7600 
00000066 4841 
00000068 4A41 
0000006H 6644 
0000006C 4842 
0000006E 4841 
00000070 3602 
00000072 86C1 
00000074 3403 
00000076 4842 
00000078 3602 
0000007R 86C1 
0000007C 3403 
0000007E 4243 
00000080 4843 



cmp. 1 



00000082 
00000084 
00000086 
00000088 
00000O8FI 
0000008C 
OO00OO8E 
00000090 
00000092 
00000094 
00000096 
00000096 
00000O9A 
0000009C 



0000009E 
000000(10 
O0OO0OA2 
00000094 
000000(16 
0O0OOOA8 
OO00OOAA 

oooooonc 

O00O0OBE 



4A46 
6B02 
4482 
4045 
6H02 
4483 
4R47 
6604 
2602 
609E 
4A83 
6B9A 
D681 



4482 

e;?38 

26 02 
4-133 
7400 
60E4 
74 01 
7600 
600E 



O000O0B0 4841 
OO000OB2 48-12 
00000OB4 3602 
000000B6 4242 
OO000OB8 9631 





bne . s 


not special 




tst .w 


d6 




bne . s 


ovf low 


not_special 


not 


d6 




not 


d5 


rmndr 


moveq 


#0,d3 




swap 


dl 




tst .w 


dl 




bne . s 


big div 




swap 


d2 ~ 




swap 


dl 




move .w 


d2,d3 




divu 


dl,d3 




move .w 


d3,d2 




swap 


d2 




move .w 


d2,d3 




divu 


dl,d3 




move .w 


d3,d2 




clr .w 


d3 




swap 


d3 


* 


put in correct 


sign for quo 


dm__fixup 


tst .w 


dS 




bpl.s 


chk rem 




neg. 1 


d2 


c h k__ r em 


tst .w 


d5 




bpl.s 


dm store 




neg. 1 


d3~ 


dm_store 


tst .VI 


d7 




bne - s 


mod out 




move . 1 


d2,d~3 




bra . s 


dm out 


mod_out 


tst.l 


d3 




bpl.s 


dm out 




add.l 


dl,d3 


* 


bra . s 


dm_o u t 


* 

* 


handle maximum 


negative div 


max_neg__dvsr 


neg. 1 


d2 




bvs.s 


max max 




move . 1 


d2,d~3 




neg. 1 


d3 




moveq 


#0,d2 




bra . s 


dm store 


m a x_m ax 


moveq 


ttl,d2 




moveq 


#0,d3 




bra . s 


dm_store 



big_div 



test for minint div -1 



flag 

negat ive remainder 

clear remainde r 

is divisor <= 16 bits 



get high order dividend 
nigh part of divide 
high quotient to d2 

divide low o rder 
dividend by divisor 
quotient in d2 

remainder in d3 
t and remainder 



div or mod? 



if negat ive mod 

then 

then add back divisor 



test for max neg dividend 



32 bit divisor 



swap 


d2 


move .w 


d2,d3 


clr.w 


d2 


sub.l 


dl,d3 



restore divisor 
move high order 
dividend to remainder 
shift dividend 16 bits left 
subtract divisor from rem. 
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move a . 1 
neg . 1 



*** File name: MODIV *** 



114 


OOOOOCBfi 


2041 




US 


OOOOOOBC 


4481 




116 


OOOOOOBE 


C388 




117 






* 


118 






* 


119 






* 


120 


OOOOOOCC 


0482 


m_top 


121 


OO0OO0C2 


D783 




122 


OOO0O0C4 


D681 




123 


ooooooce 


6R12 




124 


oooooocs 


51CC FFF6 


m_bo 1 1 om 


12S 


OOOOOOCC 


D681 




126 


OOOOOOCE 


D482 




127 


OOOOOODC 


60B0 




128 






* 


129 






* 


130 






* 


131 


00000002 


DS82 


p_top 


132 


00000004 


D783 




133 


OOOOO0D6 


D688 




134 


000000D8 


6BEE 




135 


OOOOOODF 


S1CC FFF6 


p_bo 1 1 om 


136 


OOOOOODE 


D582 




137 


OOOOOOEC 


SOHO 




138 








PASS 1 


ERRORS: 






PASS 2 


ERRORS: 







dl, aO 

dl 

dl.aO 



divisor in dl 
minus divisor 



co-routine for negative remainder 



add.l 
addx . 1 
add.l 
bpl .s 
dbra 
add.l 
add.l 
bra . s 



d2,d2 shift dividend and quotient 

d3 ,d3 shift remainder 

dl , d3 add divisor 

p bottom remainder positive? 

d£,m top loop 16 times 

dl,d3" restore remainder 

d2,d2 shift in last bit of quotient 

dm_fixup 



co-routine for positive remainder 



addx. 1 
addx . 1 
add.l 
bmi . s 

dbra 
addx.l 

bra . s 



d2,d2 

d3,d3 
a0,d3 

m bottom 
d4~,p top 
d2,d2~ 
dm_fixup 



shift dividend and quotient 

shift remainder 

subt ract divisor 

remainder negative? 

loop 16 times 

shift in last bit of quotient 



PPGE 4 [3.0] 12/26/84 21:00:53 ASSEMBLY OF MODIV. TEXT 
*** 68000 ASSEMBLER SYMBOL TABLE DUMP *** 

EXTERNAL SYMBOLS 
*** NO EXTERNAL SYMBOLS *** 
INTERNAL SYMBOLS 



*** File name: MODIV *** 



SYMBOL 


TYPE 


DEF EQU SYM VRLUE 


BO 


AREG 





00000000 


fil 


RREG 





00000001 


R2 


HREG 





00000002 


A3 


HREG 





00000003 


H4 


AREG 





00000004 


A5 


HREG 





00000005 


RB 


HREG 





00000006 


fl7 


HREG 





00000007 


ASM OIV 


REL 


22 


00000010 


ASM MOD 


REL 


17 


00000004 


BIGTHV 


REL 


109 


OOOOOOBO 


CCR 


STREG 





00000005 


CHK REM 


REL 


83 


00000088 


DO _ 


DREG 





OOOOOOOO 


01 


DREG 





00000001 


02 


DREG 





00000002 


D3 


DREG 





00000003 


04 


DREG 





00000004 


05 


DREG 





00000005 


D6 


DREG 





00000006 


D7 


DREG 





00000007 


DFC 


STREG 





00000008 


D1VENO 


REL 


54 


0000004C 


DIV 1 


REL 


38 


00000032 


DM FIXUP 


REL 


80 


00000082 


DM OUT 


REL 


39 


00000034 


DM STORE 


REL 


86 


0000008E 


DO FULL 


REL 


4$ 


0000003C 


D START 


REL 


2S 


00000018 


HEX MAX 


REL 


103 


OOOOOOAA 


MAX NEG DVSR 


REL 


97 


0000009E 


MOD OUT 


REL 


90 


00000096 


M BOTTOM 


REL 


124 


000000C8 


M TOP 


REL 


120 


OOOOOOCO 


NffT SPECIAL 


REL 


62 


00000060 


OVFfOU 


REL 


IS 


OOOOOOOO 


P BOTTOM 


REL 


135 


OOOOOODH 


P TOP 


REL 


131 


0OOO00D2 


RFfNDR 


REL 


64 


00000064 


SFC 


STREG 





00000009 


SP 


HREG 





00000C07 


SR 


STREG 





00000006 


USP 


STREG 





00000007 


VBLRANGE 


REL 


16 


00000C02 


VBR 


STREG 





OOOOOOOO 


ZERODIV 


REL 


42 


00C0003A 
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NEWWORDS 



Description 

NEWWORDS provides the procedure which implements NEW (if $HEAPDISPOSE 0FF$) called NEWBYTES, 
the UCSD procedure NEWWORDS and the function MEMAVAIL. 



Usage 

NEWWORDS calls are emitted by the compiler to these routines. 



Notes 

MEMAVAIL returns the amount of free memory in bytes, not words (a word is 2 bytes or 16 bits). 
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PBSS 1 COMPLETE. ERRORS: 

1 * function memavaiJ: integer; (return number of free bytes} 

2 * procedure newwords(var p: anyptr; size: integer); 

3 * {implement the Pascal NEW( ) procedure) 
4 

5 00000000 rorg 

6 def asm_memavail , asm_newwords, asm_newbytes 

7 refa stackfudge , sysglobals 

8 nosyms 
9 

10 FFFF FFF2 heapptr equ sysglobals-14 location of heap pointer 

12 0000 0000 asrrwnernavail equ * 

13 00000000 205F movea.l (SP)*,aO return address 

14 00000002 200F move . 1 SP,dO compute result = (SP)-(heap pointer) 

15 00000004 90HD FFF2 sub.l heappt r ( aS ) ,d0 

16 00000008 90BC 0000 sub.l tstackf udge.dO 

0000 

17 OO000O0E 6C02 bge . s ge 

18 OO000O1O 4280 clr .1 do 

19 00000012 2E80 ge move.l dO.(SP) 

20 00000014 4ED0 jmp (aO) rts 
21 

22 0000 0016 asm_newwords equ * 

23 00000016 206F movea.l (SP)+,a0 return address 

24 00000018 201F move.l SP)+,d0 size of requested allocation in words 

25 0000001A E380 asl.l #l,dO convert to bytes 

26 0O0O0O1C 4EFfi 000C imp alloc same as newbytes from here on 
27 

28 0000 0020 asrn_newbytes equ * 

29 00000020 205F movea.l (SP)+,a0 return address 

30 00000022 201F move.l SP)+,dO size of requested allocation in bytes 

31 00000024 5280 addq.l #l,dO round up to an even number of bytes 

32 00000026 0880 0000 bclr #0.d0 

33 O00O0O2B 225F alloc movea.l (SP)+,al address of pointer return variable 

34 0000002C 246D FFF2 movea.l heappt r ( a5 ), a2 pointer := heapptr 

35 00000030 2f 8R move.l a2,(al) 

36 00000032 D5C0 adda.l d0,a2 bump heap by size of new object 

37 00000034 47EF 0000 lea -stackfudge (sp) , a3 

38 00000038 B5CB cmpa.l a3,a2 check for heap overflow 

39 0000003P. 6E06 bgt.s heapover 

40 0000003C 2B4A FFF2 move.l a2, heappt r (a5) restore heap pointer 

41 00000040 4ED0 jmp (aO) rts 
42 

43 00000042 4E42 heapover trap #2 same trap as stack overflow 

44 

45 end 

PPSS 1 ERRORS: 

PfiSS 2 ERRORS: 
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POWERUP 



Description 

POWERUP provides INTERRUPT, TRAP and EXCEPTION handling (error recovery) as well as non-local 
GOTO and other miscellaneous utilities. 



Usage 

POWERUP is part of INITLIB. 



Notes 

Most TRAP and INTERRUPT vectors are initialized in POWERUP. 
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1 [3.0] 12/26/84 20:59:24 ASSEMBLY OF POUERUP.TEXT 



»«« File name: POUIERUP »»* 



PASS 1 COMPLETE. ERRORS: 
1 
2 
3 
4 
5 
6 
7 



10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 



INTERRUPT, TRAP, AND EXCEPTION HANDLER 



(rdq) changes for Rev 3.0 
CHANGES FOR PARITY SUPPORT 



JS 9/12/83 



DEF ASM_SETINTLEVEL,ASM INTLEVEL 

DEF ASM INITVECTS, RESETS?, ASM_CLOSE FILES 

DEF EXCP PC,EXCP_LINE 

DEF GRAPHICSBASE, GRAPH I CS FLAG, ALPHAFLAG, FLT PTHDLJ 

DEF ASM IHND.ASM IOR 

DEF ERR_INFO 

REFA SYSGLOBAlS. LOADER, STACKFUDGE, ASM CACHE ON 

REFR FS_FCL0SE,INITUNITS_N0ISR,INIT10P7D INITLOAD 

LMODE FS FCLOSE, INITUNITS NOISR , INITLOAD INITLOAD 

LHODE ASH CACHE ON 

SMODE ESCffPE 



RQ 18/Jan/84 



*THE FOLLOWING OFFSETS PRE RELATIVE TO SYSGL0BALS(A5) 



FFFF FFFE 
FFFF FFFA 
FFFF FFF6 
FFFF FFF2 
FFFF FFEE 
FFFF FFEA 
FFFF FFC2 
FFFF FFBE 
FFFF FEEC 
FFFF FEE4 
FFFF FFBA 
0000 0000 



ESCAPECODE 

FILELISTPTR 

RECOVERBLOCK 

HEAPPOINTER 

HEAPBPSE 

IORESULT 

INTERRUPTTABLE 

ENDISRHOOK 

DEBUGGER 

CLEARIOHOOK 

SYSDEFS 

NIL 



EQU SYSGLOBALS-2 
EQU SYSGLOBALS-6 
EQU SYSGLOBALS-10 
EQU SYSGLOBALS-14 
EQU SYSGLOBALS-18 
EQU SYSGLOBBLS-22 
EQU SYSGLOBALS-62 
EQU 5YSGL0BALS-66 
EQU SYSGLOBALS-276 
EQU SYSGLOBBLS-284 
EQU LOADER-70 
EQU 



(051 

A5 

A5 

AS 
(05) 
(A5) 

A5) 
(AS) 
(A5 
(AS 

A5 



ADDRESS OF INTERRUPTTABLE [1 . .7] 

ADDRESS OF END OF ISR ROUTINE 

DEBUGGER HOOK 

CLEAR I/O HOOK 

LINKED LIST OF PERMANT PROGRAMS 



FFFF FBOO HIGHMEM 
FFFF FF94 TRAPOVECTOR 

FFFF FF9P LEVEL7V 
FFFF FF22 LEVEL7DV 
FFFF FF34 KBDRESETV 
FFFF FF2E FHIVECTOR 

* 
FFFF FDCE LOUMEM 
0000 01AO RTN TO MONITOR 
0053 8000 G 0FF_MEt1 
OOSl 2000 AUPHA_MEM 

* 
003B 0000 P STATUS 



EQU IFFFFFBOO 
EQU SFFFFFF94 

EQ.U IFFFFFF9A 
EQU SFFFFFF22 
EQU $FFFFFF34 
EQU SFFFFFF2E 

EQU SFFFFFDCE 

EQU S1A0 

EQU $538000 

EQU $512000 

EQU S5B0000 



LEAVES ROOM FOR VECTORS, MONITOR STUFF, ETC. 
LOCATION OF EXCEPTION VECTOR FOR TRAP #0 



NMI 

LEVEL 7 DEVICE VECTOR 

KEY BOARD <SHIFT PAUSE VECTOR> 

KEY BOARD LEVEL 7 TIMER INTERRUPT 



(rdq) 
(rdq) 



LOCATION IN BOOT ROM OF LOWEST RAM 
ENTRY POINT IN BOOT ROM 
GRAPHICS OFF 
ALPHA MEMORY 

PARITY STATUS REG JS 9/12/83 



» MAGIC NUMBERS, see alse FILES ASM, DEBUGGER and INITBUG 



FFFF FBOO ERR INFD 
FFFF FBOO FFIUUT AODR 



FFFF FBOO BE SSU 

FFFF FB02 BE„FBULT__ADDR 



EQU HIGHMEM 
EQU HIGHMEM 



PARITY ERROR ADDRESS 
68000 
EQU HIGHMEM SPECIAL STATUS UORO 

EQU BE_SSU+2 FAULT ADDRESS 



59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 



89 
90 
91 
92 

93 
94 
35 



99 

ICO 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
HI 
112 
113 
114 
115 



[3.0] 12/26/84 20:59:24 ASSEMBLY OF POUERUP.TEXT 

FFFF FB06 BE_INSTR EQU BE_FAULT_ADQR+4 INSTRUCTION BUFFER 



*»* File name: POUIERUP *« 





* 








68010 




»BE SSU) 


2 BYTES 




VECTOR TYPE 1000 




»BE FAULT ADDR 


4 BYTES 






FFFF FB06 


BE PAD1 15 


EQU 




BE FAULT ADOR+4 




FFFF FB08 


BE DRTfliJ 10 


EQU 




BE PAD1 TO+2 


DATA INPUT BUFFER 


FFFF FBOA 


BE PAD2 TO 


EQU 




BE DATAO" 10+2 




FFFF FBOC 


BE DATAT 10 


OJ' 




BE PAD2 TO + 2 


DATA OUTPUT BUFFER 


FFFF FBOE 


BE PAD3 TO 


EQU 




BE DATAT 10+2 




FFFF FB10 


BE INSTR" 10 


EQU 




BE PBD3 TO+2 


INSTRUCTION BUFFER 


FFFF FB12 


BE MISC TO 


EQU 




BE INSTR" 10+2 


16 UORDS 


FFFF F832 


BE_END_TO 


EQU 




BE_MISC_T0+32 


68020 


FFl F FBOO 


ERR PC 


EQU 




HIGHMEM 


VECTOR TYPE 0010 




*ERR" PC 


4 BYTES 




VECTOR TYPE 1001 


FFFF FB04 


ERR QR01 


EQU 




ERR PC+4 




FFFF FB06 


ERR UR02 


EQU 




ERR URD1+2 




FFFF FB08 


ERR EA 


EQU 




ERR;URD2+2 


EVALUATED BDORESS 




«BE SSU 


4 BYTES 




VECTOR TYPE 1010 (SHORT BUS ERROR) 


FFFF FB04 


BE TPSC 


EQU 




BE SSU+4 


I PIPE C 


FFFF FB06 


BE IPS8 


EQU 




BE IPSC+2 


I PIPE B 


FFFF FB08 


BE PAD2 20 


EQU 




BE IPSB+2 




FFFF FBOC 


BE FAULT ADDR20 


EQU 




BE PAD2 20+4 




FFFF FB10 


BE~DATA 50 


EQU 




BE FAULT BDDR20 


+4 DATA BUFFER 


FFFF FB14 


BE MISCS 20 


EQU 




BE DATA 2"0 + 4 


4 BYTES 


FFFF FB18 


BE_EN0_S_2O 


EQU 




BE_MISCS"_20+4 






»BE SSU 


4 BYTES 




VECTOR TYPE 1011 (LONG BUS ERROR) 




*BE IPSO 


2 BYTES 








*BE~IPSB 


2 BYTES 








*BE PHD 


4 BYTES 








«BE FAULT BDDR 


4 BYTES 








»BE DATAO 


4 BYTES 






FFFF FB14 


"E PAD3 20 


EQU 




BE DATA 20+4 


16 BYTES 


FFFF FB24 


S-: DATAT 20 


EQU 




BE PAD3 20+16 




FFFF FB28 


BET1ISC20" 20 


EQU 




BE DATAT 20+4 


44 BYTES 


FFFF FBS4 


BE END L JO 


EQU 




BE MISC20" 20+44 




FFFF FBS4 


BE_END 


EQU 




BE END L 2"0 




FFFF FBS4 


EXCP STATUS 


EQU 


BE END 




FFFF FB56 


EXCP PC 


EQU 


EXCP STATUS+2 




FFFF FB5A 


EXCP VOFFSET 


EQU 


EXCP PC+4 


VECTOR WORD FOR 680xx (rdq) 


FFFF FB5C 


EXCP LINE 


EQU 


EXCP VOFFSET+2 


(rdq) 


FFFF FB60 


LASTUINE 


EQU 


EXCP LINE+4 




FFFF FB64 


ESCAPE 


EQU 


LASTT~INE+4 




FFFF FB6A 


PCTEMP 


EQU 


ESCAPED 




FFFF FB6E 


SRTEMP 


EQU 


PCTEMP+4 




FFFF FB70 


INITSTACK 


EQU 


SRTEMP+2 




FFFF FB74 


INITPC 


EQU 


INITSTACK+4 




FFFF FB78 


INITRECOVER 


EQU 


INITPC +4 




FFFF FB7C 


G DOLLAR 


EQU 


INITRECOVER+4 




FFFF FB80 


CTL RESETV 


EQU 


G DOLLHR+4 


KEY BOARD <CONTROL><SHIFT:><PAUSE> VEC 


FFFF FB86 


DEBUGESCAPE 


EQU 


CTL 


RESETV+6 




FFFF FB8C 


BESPTEMF 


EQU 


DEBtJGESCAPE+6 


USED IN IGNOREBUS 


Fl FF FB90 


ALPHAFLAG 


EQU 


BESPTEMP+4 
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3 [3.0] 12/26/84 20:59:24 


ASSEMBLY 


OF POUERUP.TEXT »** File name: 


POUERUP «»* 


116 




FFFF 


FB91 


GRAPHICSFLAG 


EQU ALPHAFLAG-i-l 




117 




FFFF 


C B92 


GRAPHICSBBSE 


EQU GRBPHICSFLAG+1 




118 




FFFF 


FB96 


INITSR 




EQU GRBPHICSBASEt4 




119 




FFFF 


FB98 


M68KTYPE 


EQU INITSR+2 PROCESSOR TYPE 0=68000 else 680xx (rdq) 




120 




FFFF 


FB99 


MSYS FLAGS 


EQU M68KTYPE*1 MORE SYSFLAGS BIT = CACHE PRESENT/ABSENT 




121 




FFFF 


CB9A 


FLTPTHDW 


EQU MSYSFLAGS*1 




122 
123 
124 
125 




FFFF 


FB9B 


FILLER 




EQU FLTPTHDU+1 UNUSED 






0000 


4EF9 


J IIP 


EQU S4EF9 LONG ABSOLUTE JMP OPCODE 




126 
127 


oooooooo 








RORG 






128 
















129 




0000 


0000 


ASM_INITVECTS 


EQU » MAIN PROGRAM POWER UP LOCATION 




130 
131 
132 


oooooooo 


4238 


FB9A 




CLR.B 


FLTPTHDU SHOU NO FLOATING POINT HARDUARE 




00000004 


70FF 






MOVEQ 


*$FFFFFFFF,DO HIGHEST POSSIBLE ADDRESS 

D0.FILELISTPTRIA5) 

#$4E75,0EBUGESCAPE 




133 


00000006 


284 


FFFA 




MOVE.L 




134 


OOOOOOOB 


31FC 


4E75 




MOVE.U 








F886 












135 


00000010 


42B8 


FB60 




CLR.L 


LAST LINE 




136 


00000014 


2B7C 
030E 


0000 

FFBE 




MOVE.L 


#ENDISR,ENQISRH00K(A5) SET UP ORDINARY RETURN FROM ISR'S 




137 
















138 
139 

140 


0000001C 


4EBH 


OSEC 




jsr 


init_timer checks for and turns on timer (rdq) 










* 




TURN OFF GRAPHICS 




141 


00000020 


207C 
8000 


0053 




MOVEA.L 


#G_OFF_MEM,A0 GET MEM ADDRESS 




142 


00000026 


21C8 


FB92 




MOVE.L 


AO.GRAPHICSBASE SAVE IT IN GLOBAL AREA 
GRAPHICSFLAG MARK IT TURNED OFF 




143 
144 
145 


OO00OO2H 


4238 


FB91 




CLR.B 




0000002E 


43FA 


0172 




LEA 


1GN0REBUS.H1 SET BUS ERROR VECTOR 




146 


00000032 


21C9 


FFFC 




MOVE . L 


Al,-4 




147 


00000036 


31FC 
FFFA 


4EF9 




MOVE.U 


#JMP,-6 




148 


0000003C 


487A 


OOOA 




PEA 


GRPH1 




149 


00000040 


21CF 


FB8C 




MOVE . L 


SP,BESPTEt1P 

(A01.D0 TURN OFF GRAPHICS 

#4,SP 




150 


00000044 


3010 






MOVE 




151 


00000046 


588F 






ADOQ.L 




152 




0000 


0048 


GRPH1 


EQU 


* 




153 


00000048 


11FC 
FB90 


0001 




MOVE.B 


#1,ALPHAFLAG MARK ALPHA TURNED ON 




154 








* 








155 








* TURN ON CACHE IF UE HAVE ONE 




156 








* 








157 




006F 


400E 


CACHE_ 


:tl EQU 


S5F400E 




158 


0000004E 


4238 


FB99 




CLR.B 


MSYSFLBGS CLEAR FLAGS BYTE 




159 


00000052 


487A 


001 A 




PEA 


CACHE1 




160 


00000056 


21CF 


I-B8C 




MOVE . L 


SP.BESPTEMP 
CACHE_CTL TEST 




161 


0O000O5A 


4A79 


005F 




TST.U 








400E 












162 


00000060 


588F 






ADDQ.L 


#4,SP 




163 


00000062 


08F8 

FB99 


0000 




BSET 


#0,MSYSFLAGS CACHE EXISTS 




164 


00000068 


4EB9 
0000 


0000 




JSR 


ASM_CACHE_ON 




PAGE 


4 [3.0] 12/26/8' 


20:59:24 


ASSEMBLY 


OF POUERUP.TEXT *** File name: 


POUERUP «** 


165 




0000 


006E 


CACHE1 


EOU 


, 




166 








* 








167 








* TURN ON PARITY BOARDS IF ANY JS 9/12/83 




168 








* 




JS 9/12/83 




169 


OOOOOOSE 


487A 


0010 




PEA 


PCHK1 




170 


00000072 


21CF 


FB8C 




MOVE . L 


SP.BESPTEMP 




171 


00000076 


33FC 
005B 


0001 
0000 




MOVE.U 


#1,P_STATJS JS 9/12/83 




172 


0000007E 


588F 






AODQ.L 


#4,SP 




173 




0000 


0080 


PCHK1 


EQU 


« JS 9/12/83 




174 








X 








175 


00000030 


41F8 


FFC4 




LEA 


$FFFFFFC4,A0 ADDRESS PAST INTERRUPT VECTOR LEVEL 1 




176 


00000034 


43FA 


01E6 




LEA 


INTERRUPT, Al 




177 


00000038 


7006 






MOVEQ 


#6, DO HANDLE LEVELS 1 THRU 6 




178 


000O0O3A 


2109 




IJ.0OP 


MOVE . L 


A1,-(A0) MOVE JI-IP TO INTERRUPT VECTOR 

»JMP,-(AO) 

#1,D0 




179 


0000003C 


313C 


4EF9 




MOVE.U 




180 


00000090 


S340 






SUBQ 




181 


00000092 


66 F6 






BNE 


IJ.OOP 




182 
















183 


00000034 


41F8 


FF22 




LEA 


LEVEL7DV.A0 SETUP LEVEL 7 DEVICE VECTOR (rdq) 




184 


00000098 


30FC 


4EF9 




MOVE.U 


♦JMP.(AO)* rdq 
(11, (HO) (rdq 
FOR HANDLING <SHIFT PAUSE> AND <CONTROL><SHIFT><PAUSE> 




185 


0000009C 


2089 






MOVE.L 




186 








* INIT 


VECTORS 




187 


0000003E 


31FC 

FF9B 


4EF9 




MOVE.U 


#JMP,LEVEL7V 




188 


00OOOOA4 


21F8 
FF9C 


01 BO 




MOVE . L 


$1B0,LEVEL7V*2 




189 


OOOOOOAA 


31FC 
FF34 


4EF9 




MOVE.U 


♦JMP,KBDRESETV 




190 


ooooooao 


21FC 

04AC 


0000 
FF36 




MOVE . L 


»RESET_ISR,KBDRESETV»2 




191 


00000088 


31FC 
FB80 


4EF9 




MOVE.U 


#JMP,CTL_RESETV 




192 


OOOOOOSE 


21FC 

04CA 


0000 
FB82 




MOVE . L 


♦TRYM0NIT0R,CTL_RESETV*2 




193 








* 








194 


000000C6 


41F8 


FF2E 




LEA 


FHIVECTOR.AO LEVEL 7 TIMER INTERRUPT VECTOR (rdq) 




196 


OOOOOOCB 


30FC 


4EF9 




MOVE.U 


#JrtP,(AO)* rdq 
Al.(AO) (rdq) 




196 
197 
198 


oooooo:e 


2089 






MOVE . L 




oooooooo 


41 FA 


0342 




LEA 


ESC.AO MOVE ESCAPE LINKAGE TO HIGH MEMORY 
*JMP, ESCAPE 




199 


00000004 


31 FC 


4EF9 




MOVE.U 








FB64 












200 
201 
202 


0000003A 


21C8 


FB66 




MOVE . L 


AO, ESCAPED 




OOOOOODE 


2038 


FF96 




MOVE.L 


TRAPOVECT0R*2,DO GET DEFAULT ENTRY POINT FOR TRAP #0 




203 


OO00OOE2 


COBC 
FFFF 


00 FF 




AND.L 


tJOOFFFFFF.DO TEST FOR MONITOR 




204 


OO0OOOE8 


BOBC 
0000 


0088 




CMP.L 


#$00880000, DO 




205 


OOOOOOEE 


6CCE 






BGE.S 


LO 




206 


OOOOOOFO 


31FC 
FF34 


4EF9 




MOVE.U 


#JMP,TRAPOVECTOR SET UP EXCEPTION VECTOR FOR 




207 


OO0OOOF6 


41 FA 


03A0 




LEA 


P BREAK, AO PASCAL LINE HEADERS 
AtJ,TRBP0VECT0R*2 




208 


OOOOOOFA 


21CS 


FF96 




MOVE.L 




209 
210 
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[3.0] 12/26'84 20:59:24 ASSEMBLY OF POUERUP.TEXT 



»»* File name: POUERUP 



211 
212 

213 
214 
215 
216 
217 
218 
219 
220 
"221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 



OOOOOOFE 4CBB 

0306 

00000104 41F8 

00000108 303C 

0000010C 43FR 
00000110 2109 
00000112 3100 

00000114 43FR 
00000118 2109 
OOOOOllfl 3100 

000001 1C 76F3 
0000011E 48R0 

00000122 76FB 
00000124 48(10 

00000128 76F8 
0000012A 48(10 

0OOO012E 76FC 
00000130 48A0 

00000134 76F2 
00000136 48(10 

OOO0O13A 5D88 

00O0013C 76F3 
0000013E 48(10 
00000142 48A0 

00000146 41F8 

0000014A 43FR 
0000014E 2109 
00000150 3100 

00000152 76FE 
00000154 48R0 

00000158 76F6 
0000015H 48H0 

0000015E 76FC 
00000160 48R0 

00000164 76FB 
00000166 48R0 

0000016B 76F7 
0000016C 48A0 

00000170 76F8 



MOVEfl.U ESCBPE_PR0T0,D1-D2 



oooo 

4EF9 



70O0 
7000 
7000 
7000 
7000 

7000 
7000 

FF94 

OOEC 

7000 
7000 
7000 
7000 
7000 



LEfl 
MOVE.U 

LER 

MOVE.L 

MOVE.U 

LER 

MOVE.L 

MOVE.U 

MOVEQ 
MOVEM.U 

MOVEQ 

movem.u 

MOVEQ 
MOVEM.U 

MOVEQ 
MOVEM.U 

MOVEQ 
MOVEM.U 



O.flO 
#JMP,DO 

BUS ERR.A1 
A1,-(B0 
DO, -(BO) 

RDD ERR.fll 
(U,-(BO 
DO, -(BO) 

*-13,D3 
D1-D3,-(A0) 

#-S,D3 
D1-D3,-(B0) 

♦-8.D3 
D1-D3,-(B0) 

t-4,03 
D1-D3,-(A0) 

#-14, D3 
D1-D3,-(A0) 



SUBQ.L #6, BO 



MOVEQ 

MOVEM.U 

MOVEM.U 



LER 

MOVE.L 

MOVE.U 

MOVEQ 
MOVEM.U 

MOVEQ 
MOVEM.U 

MOVEQ 
MOVEM.U 

MOVEQ 
MOVEM.U 

MOVEQ 
MOVEM.U 



»-13,D3 
D1-D3,-(A0) 
01-03, -(AO) 

$FFFFFF94,A0 

LINKA6.B1 
fil,-(BO) 
DO, -(BO) 

«-2,D3 
D1-D3,-(B0) 

#-10, D3 
D1-D3,-(A0) 

#-4,D3 
01-03, -(BO) 

#-S,D3 
D1-D3,-(A0) 

#-9,D3 
D1-D3,-(B0) 

#-8,03 



GET 6 BYTE MOVEQ #ESCCODE, JMP ESCAPE 

START FROM TOP OF RBM 
S4EF9 (LONG BBS JUMP) 

SET UP BUS ERROR TRAP 
ADDRESS IN LAST 4 BYTES 
LONG JUMP IN FIRST 2 BYTES 

SET UP ADDRESS ERROR TRRP 
ADDRESS IN LAST 4 BYTES 
LONG JUMP IN FIRST 2 BYTES 

ILLEGAL INSTRUCTION, ESCAPEI-13) 
MOVE 'moveq, short jump esc' 

SIMILAR FOR DIVIDE BY ZERO 



SIMILAR FOR CHK EXCEPTION 



SIMILAR FOR TRBPV 



SIMILAR FOR PRIVILEGE VIOLATION 



ILLEGAL INSTRUCTION (OPS A,F), 
MOVE 'moveq, short jump esc' 
MOVE 'moveq, short jump esc' 

CONTINUE WITH TRAP VECTORS 

TRAP 1, LINK B6 EMULATOR 



TRAP 2, STACK OVERFLOW 

TRAP 3, I/O RESULT NOT ZERO 

TRAP 4, INTEGER OVERFLOU 

TRAP 5, INTEGER DIVIDE BY ZERO 

TRAP 6, CASE STATEMENT ERROR 

TRAP 7, VALUE RANGE ERROR 



ESCAPE(-13) 
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267 


00000172 


48A0 


7000 


268 








269 


00000176 


76FD 




270 


00000178 


48B0 


7000 


271 








2 72 


0000017C 


43FA 


0072 


273 


00000180 


2109 




274 


00000182 


3100 




275 








276 


00000184 


43FA 


02A6 


2 77 


00000188 


2109 




278 


0000018A 


3100 




279 








280 


0000018C 


5D88 




281 








282 


0000018E 


76EB 




283 


00000190 


48B0 


70O0 


284 








285 


00000194 


76EB 




286 


00000196 


48B0 


7000 


287 








288 


0000019A 


76EB 




289 


00O0019C 


48A0 


7000 


290 








291 


00O001A0 


4E75 




292 








293 




0000 


01B2 


294 


000001A2 


4A38 


FB98 


295 


000001A6 


6606 




296 


000001B8 


DFFC 
0008 


OOOO 


297 


000001AE 


46D7 




298 


000001BO 


2E"S 


F88C 


299 


000001B4 


4E7S 




300 








301 




0000 


01B6 


302 


000001B6 


206 F 


O0C4 


303 


OOOOOIBB 


22SD 


FFFA 


304 


000001BE 


B3C8 




305 


000001C0 


642A 




306 


000001C2 


B3CF 




307 


000001C4 


6526 




308 


000001C6 


2E69 
FFFA 


0004 


309 


000001CC 


42P9 


0004 


310 


OOOOOIDO 


21-22 


FFEA 


311 


000001D4 


3F2D 


FFFE 


312 


000001D8 


4851 




313 


000001DB 


•!26« 




314 


000001DC 


4EB9 

0030 


0000 


315 


000001E2 


3B5F 


FFFE 


316 


000001E6 


2B5F 


FFEA 


3 I 7 


00O001EA 


60CA 




318 


000001EC 


229F 




319 


000001EE 


4E7S 





ASSEMBLY OF POUERUP. TEXT 

MOVEM.U 01-D3,-(A0) 

MOVEQ #-3.D3 
MOVEM.U D1-D3,-(A0) 



** File name: POUERUP *** 



LEA 

MOVE.L 

MOVE.U 


NLG0T0,B1 

A1,-(A0) 

DO.-(AO) 


LEfl 

MOVE.L 

MOVE.U 


ESCN.B1 
B1,-(B0) 
DO, -(BO) 


SUBQ.L 


#6, BO 


MOVEQ 
MOVEM.U 


#-21 ,03 
01-D3,-(AO 


MOVEQ 
MOVEM.U 


#-21, D3 
D1-D3,-(A0 



MOVEQ #-21,03 
MOVEM.U D1-D3,-(A0) 



* --(rdq)-- 

IGNOREBUS EQU 
TST.B 
BNE.S 
BDDA.L 

IGNBUS1 MOVE 

MOVEB . 
RTS 



M68KTYPE 

IGNBUS1 

#8,SP 

(SP) SR 

L BESPTEMP,SP 



TRAP 8, NIL POINTER REFERENCE 
TRAP 9, NON LOCAL GOTO 

TRAP 10, ESCAPE N 

(rdq) 

skip over TRAP 11 (done by ASH_POUERUP) 

TRAP 12, UNASSIGNED 
TRAP 13, UNBSSIGNED 
TRAP 14, UNBSSIGNED 
END OF VECTOR SET UP, POUER UP 



THROW BUBY STACK INFO FROM BUS ERROR 
FIX SR SO SP UILL BE CORRECT 
RETURN TO RECOVERY POINT 



BSM_CLOSEFILES EQU * 
MOVEB. L 4(SP) 
MOVEB . L 
CMPA.L 
BCC.S 
CMPA.L 
BCS.S 
MOVE. L 



,. , ,B0 EVENTUAL SP 

FILE[iSTPTR(B5),Bl 
BO.fil 
BLLOONE 
SP.B1 
BLLOONE 
4(B1) ,FILELISTPTR(A5) 



CLR.L 

MOVE. L 

MOVE.U 

PES 

CLR.U 

JSR 

MOVE.U 
MOVE.L 

ALLDONE MOVE. L 
RTS 



IORESULT(AS), ,_ , 
ESCAPEC0DE(A5),-(SP) 



4(A1 

IORE 
ESCA 
(fil£ 

FS_FCLOSE 



(SP)*,ESCBPEC0DE[A5) 
SP)*,IORESULT(BS) 
ASM CLOSEFILES 
(SPT*,(SP) 



FLAG UNINITIALIZED 

< sp ;l 



ClO 



NORMAL CLOSE 



1-308 



PAGE 


7 [3.0] 12/26/84 20: 


59:24 ASSEMBLY 


OF POUERUP.TEXT 


*** File name: POUERUP *** 


321 


OO0001FO 


301F 




NLGOTO 


MOVE.U 


(SP)+,DO 


SAVE STATUS REG 


322 


000001F2 


205F 






MOVEA.L 


(SP)*,AO 




323 


000001F4 


4A38 


FB98 




TST.B 


M68KTYPE 


(rdq) 
POP VECTOR UORD rdq) 


324 


000001F8 


6702 






BEQ.S 


NLGOTOR 


325 


000001FR 


548F 






RDOQ.L 


*2,SP 


326 


000001 FC 


46C0 




NLGOTOR 


MOVE 


00, SR 
(A0)*,D1 


RESTORE USER MODE 


327 


000001 FE 


3218 






MOVE.U 


STATIC DELTA 


328 


00000200 


6C04 






BGE.S 


NLG0T01 




329 


00000202 


2C78 


FB70 




MOVER. L 


INITSTRCK,R6 


DEST IS MRIN PROG 


330 


00000206 


6F08 




NLG0T01 


BLE.S 


NLG0T03 




331 


00000206 


2C6E 


0008 


NLG0T02 


MOVER. L 


8(R6) ,A6 




332 


0000020C 


5341 






SUBQ.U 


#1,D1 




333 


0000020E 


6EF6 






BGT.S 


NLG0T02 




334 


00000210 


2210 




NLG0T03 


MOVE.L 


(RO) ,D1 


DESTINATION DELTfi 


335 


00000212 


4870 


1800 




PEA 


0(A0,D1 .L) 


COMPUTE RETURN ADDRESS 


336 


00000216 


3430 


1802 




MOVE.U 


2(no,Dl.L ,D2 


SP DELTA FROM R6 


337 


0000021A 


43F6 


2000 




LER 


0ifl6,D2.U ,fll 


EVENTUAL SP 


338 


0000021E 


B3ED 


FFF6 


NLG0T04 


CMPfi.L 


RECOVERBL0CK(A5) ,R1 POP OFF TRY RECOVER BLOCKS 


339 


00000222 


630C 






BLS.S 


NLG0T06 


Above the eventual sp 


340 


00000224 


246D 


FFF6 




MOVER. L 


RECOVERBL0CK(R5 


li H2 

DCK(A5) 


341 


00000228 


2B6A 


0008 




MOVE.L 


8(R2),REC0VERBL 






FFF6 












342 


0000022E 


60EE 






BRfl.S 


NLGOT04 




343 


00000230 


2F09 




NLG0T05 


MOVE.L 


fll,-(SP) 
ASM_CLOSEFILES 




344 


00000232 


4EBR 


FF82 




JSR 


CLOSE FILES BEING POPPED OFF 


345 


00000236 


4E7S 






RTS 






346 
















347 


00000238 


301F 




LINKR6 


MOVE 


(SP)*,DO 


STATUS 


348 


0000023A 


205F 






MOVER. L 


(SP +.B0 


PC 


349 


0000023C 


4R38 


FB98 




TST.B 


M68KTYPE 


( rdq) 


350 


00000240 


6702 






BEQ.S 


LINKR6R 


rdq) 


351 


00000242 


548 F 






RDOQ.L 


#2,SP 


POP VECTOR UORD (rdq) 


352 


00000244 


46C0 




LINKA6R 


MOVE 


00, SR 


RETURN TO ORIGINAL MODE 


353 


00000246 


2 FOE 






MOVE.L 


fie,- (sp> 


EMULATE LINK H6 


354 


00000248 


2C4F 






MOVER. L 


SP.R6 




355 


0000024A 


264F 






MOVER. L 


SP,R3 
(fiO)+,A3 


COPY FOR SP CBLC. 


356 
357 
358 


0000024C 


D6D8 






RDDB.U 


PRE CALCULATE NEU SP 


000002»E 


0800 


OOOD 




BTST 


♦13, DO 


UHICH MODE? 


359 
360 

361 


00000252 


6706 






BEQ.S 


UMODE 




00000254 


45ED 


7FFE 


SMODE 


LER 


32766 (P.5),R2 




362 


00000258 


6004 






BRA.S 


SCHECK 




363 
364 
365 
366 
367 


0000025A 


246D 


FFF2 


LTOOE 


MOVER. L 


HEfiPPOINTER(RS) 


R2 


0000025E 


43EB 


0000 


SCHECK 


LER 


-STRCKFUDGE(R3) 


Rl 


00000262 


B3CR 






CMPR.L 


R2,B1 CHECK STRCK OVERFLOU 


368 


00000264 


6304 






BLS.S 


STBCKOV 




369 


00000266 


2E48 






MOVER. L 


R3,SP NOU SET 


NEU SP 


370 


00000268 


4E00 






JMP 


(flo) 




371 
















372 
373 


0000026A 


4E42 




STRCKOV 


TRAP 


#2 


SIGNAL STRCK OVERFLOU 


PAGE 
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20:59:24 ASSEMBLY 


OF POUERUP.TEXT 


*** File name: POUERUP *** 


375 








******* 


*********************************************************************** 


376 








* 




INTERRUPT 


POLLING ROUTINE: LEVELS 1-7 (rdq) * 


377 
378 








*************** 


«,**»«»**,**»*** 


*********************************************** 


379 
380 








* 

* ISRIB 


STRUCTURE 




381 








* 








382 




0000 


0000 


INTREGADDR 


EQU 


(LONG) CHARPTR 


383 




0000 


0004 


INTREGMASK 


EQU 4 


BYTE BYTE 


384 




0000 


0005 


INTREGVALUE 


EQU 5 


BYTE BYTE 


385 




oooo 


0006 


CHAINFLAG 


EQU 6 


UORD) BOOLEAN IN MSB; OTHER BITS RESERVED 


386 




0000 


0008 


PROC.ADDR 


EQU 8 


LONG) PROCEDURE ADDRESS 


387 




0000 


oooc 


PROC.LINK 


EQU 12 


LONG PROCEDURE STRTIC LINK 


388 
389 




0000 


0010 


LINK 




EQU IS 


(LONG) LINK TO NEXT ISRIB 


390 
391 
392 
393 
394 
395 








* 

* INTERRUPT POLLING ROUTINE: LEVELS 1-7 (rdq) 




0000 


026C 


INTERRUPT 


EQU * 




0000023C 


48E7 


l-FFE 




MOVEM.L 


D0-D7/R0-R6,-(SP) SAVE CONTEXT. 64 BYTES 


396 


00000270 


2R78 


FB7C 




MOVER. L 


G DOLLAR, R5 


SET UP THE PASCAL GLOBAL ENVIRONMENT 


397 


00000274 


2F2D 


FFER 




MOVE.L 


IO"RESULT(RS),-(SP) IORESULT IS PART OF THE CONTEXT 


398 
399 
400 


00000278 


3F2D 


FFFE 




MOVE.U 


ESCfiPECODE(RS), 


-(SP) THE ESCAPE CODE IS PfiRT OF THE CONTEXT 


0000027C 


2F2D 


FFF6 




MOVE.L 


RECOVERBL0CK(R5 


,-(SP) SET UP A TRY/RECOVER BLOCK 


401 


00000230 


4870 


008E 




PER 


RECOVER 




402 
403 
404 


00000234 


2B4F 


FFF6 




MOVE.L 


SP,REC0VERBL0CK(R5) 


00000238 


40C0 






MOVE 


SR.DO 


FETCH THE CURRENT INTERRUPT LEVEL 


405 


0000023ft 


EC48 






LSR 


#8 -2, DO 


POSITION IN THE LOUER BYTE, MULTIPLIED BY 4 


406 


0000023C 


C07C 


00 1C 




ftND.W 


#$1C,D0 


MASK OUT THE OTHER BITS 


407 


00000230 


41ED 


FFC2 




LER 


INTERRUPTTflBLE(A5) .flO 


408 
409 
410 


00000294 


2070 


OOFC 




MOVER. L 


-4(R0,D0) ,flO 


POINT TO THE FIRST ISRIB FOR THIS LEVEL 


00000298 


2008 




PLOOP 


MOVE . L 


AO,DO 


SET THE CONDITION CODES 


411 


0000023R 


6722 






BEQ.S 


NOISR 


BRANCH IF THE POINTER IS NILL 


412 


0000029C 


2248 






MOVER. L 


RO.fi 1 


USE Rl FOR SCANNING THE ISRIB 


413 


0000029E 


2459 






MOVER. L 


(A1)+.A2 
A2 ,D0 


INTERRUPT REGISTER ADDRESS 


414 


000002AO 


1012 






MOVE.B 


INTERRUPT REGISTER CONTENTS 


415 


000002R2 


C019 






AND.B 


(Rl +,D0 


INTERRUPT REGISTER MASK 


416 


000002A4 


B019 






CMP.B 


(fll)*,DO 


THIS SOURCE REQUESTING AN INTERRUPT? 


417 
418 

419 


000002R6 


6610 






BNE.S 


NEXT 


BRANCH IF NOT 


000002R8 


4259 






CLR 


[Hl) + 
AO,-(SP) 


CLEAR THE CHAIN FLAG 


420 


000002AA 


2FC8 






MOVE . L 


SAVE THE POINTER TO THIS ISRIB 


421 
422 
423 
424 
425 


000002RC 


2F08 






MOVE.L 


AO,-(SP) 


ALSO, THE ISR GETS IT PS fl PARAMETER 


000002RE 


6164 






BSR.S 


CRLLPROC 


CRLL THE ISR 


00000280 


205F 






MOVER. L 


(SP)+,RO 
CHAINFLAG(AO) 


RESTORE THE POINTER TO THIS ISRIB 


426 


00000282 


4B68 


0006 




TST 


DID THIS ISR CHOOSE TO SERVICE THE INTERRUPT? 


427 
428 
429 


00000236 


6742 






BEQ.S 


RESTORE 


BRANCH IF SO; OTHERWISE. . . 


00000238 


2068 


0010 


NEXT 


MOVER. L 


LINK (RO) ,no 
PLOOP 


POINT TO THE NEXT ISRIB IN THE LINKED LIST 


430 


0000023C 


eocpi 






BRA 


AND POLL IT'S associated interrupt bit 
















1-309 



PftGE 


9 [3.0] 12/26/84 20: 


59:24 f 


3SEMBLY 


OF POUERUP.TEXT 


*** File name: 


POLJERUP *»* 


432 


0OO002BE 


4 0C0 




NOISR 


MOVE 


SR,D0 


CHECK INTERRUPT LEVEL JS 9/12/83 




433 


0OO002CO 


EC48 






LSR 


♦8, DO 


JS 9/12/83 




434 


000002C2 


0240 


0007 




HNDI 


*7,D0 


MASK ALL BUT LEVEL BITS JS 9/12/83 




435 


0OO002C6 


OC40 


0007 




CMPI 


#7,00 


IS IT AN NMI ? JS 9/12/83 




436 


000002CA 


66.36 






BNE.5 


NOISRB 


NO, TREAT AS BEFORE JS 9/12/83 
PARITY ERROR? JS 9/12/83 




437 


0OO002CC 


4E3A 


02AE 




JSR 


P CHECK 




438 


00000200 


6720 






BEQ.S 


NtJlSRB 


NO, SOMETHING ELSE JS 9/12/83 
POP ISR RECOVER AODR JS 9/12/83 




439 


000002D2 


633F 






ADDQ.L 


*4,SP 

(SP)*,REC0VERBL0CK(A5) 
(SPj.,ESCAPEC0DE(A5) 




440 


000002D4 


2B5F 


FFF6 




MOVE.L 


RESTORE OLD RECOVERBLOCK JS 9/12/83 




441 


00000208 


3B5F 


FFFE 




MOVE.LJ 


ESCAPECODE BND IORESULT JS 9/12/83 




442 


0000020C 


2B)F 


FFEB 




MOVE.L 


(SP)« , I0RESULT(B5) 


FROM USER CONTEXT JS 9/12/83 




443 


000002E0 


4 CDF 


7FFF 




MOVEM.L 


(SP *,D0-D7/S0-B6 
#-28,ESCflPEC0DE(B5) 


BND LOOK AS IF UE DID A JS 9/12/83 




444 


000002E4 


3P-C 


FFE4 




MOVE.LJ 


ESCAPE (-28) FROM THE JS 9/12/83 








FFFE 














445 


0OOO02EA 


«2.-; 8 


FBOO 




CLR.L 


FAULT fiDDR 


USER PROGRAM JS 9/12/83 




446 
447 
448 


0OO002EE 


6000 


013C 




BRA 


ESCN 


JS 9/12/83 




0OO002F2 


2F08 




NOISRB 


MOVE.L 


BO.-(SP) 
INITUNITS_NOISR 


NILL POINTER 




449 


000002F4 


4EB9 


OOOO 




JSR 










0000 














450 


















451 


















452 


000002FA 


588F 




RESTORE 


ADDQ.L 


#4,SP 

(SP)+,RECOVERBL0CK(BS) 
(SP)*,ESCBPEC0DE(B5) 
(SP)*, IORESULT (PS) 
ENDISRH00K(B5),A0 


POP OFF THE RECOVER BLOCK ADDRESS 




453 


000002FC 


2B5F 


FFF6 


REC0V_1 


MOVE.L 


RESTORE THE ORIGINAL RECOVER SLOCK 




454 


00000300 


3B6F 


FFFE 




MOVE.LJ 


RESTORE THE ORIGINAL ESCAPE CODE 




455 


00000304 


2B.SF 


FFEfi 




MOVE.L 


RESTORE IORESULT 




456 


00000308 


206D 


FFBE 




MOVEA.L 


CALL ISR HOOK TO ALLOW MULTI -TASKING 




457 


0000030C 


4ED0 






JMP 


(AO) 






458 


















459 


0000030E 


4CDF 


7FFF 


ENDISR 


MOVEM.L 


(SP)*,D0-D7/A0-A6 


RESTORE THE ORIGINAL CONTEXT 




460 
461 
462 


00000312 


4E73 






RTE 




END OF INTERRUPT SERVICE 






0000 


0314 


CBLLPRC 


C EQU » 




PROCEDURE CALL 




463 


00000314 


2 069 






MOVEA.L 


(HI)*, no 


PROC ADDRESS 




464 


00000316 


2919 






MOVE.L 


HI *.D0 
CFILLIT 


STATIC LINK 




46S 


00000318 


6 "06 






BEQ.S 


SKIP IF THERE IS NO STATIC LINK 




466 


0000031A 


225F 






MOVEA 


•L (SP)»,A1 
L D0,-(SP) 


SHUFFLE RETURN ADDRESS 




467 


0000031C 


2F00 






MOVE. 


PUSH STATIC LINK ON THE STACK 




468 


0000031E 


2F09 






MOVE. 


L fil,-(SP) 






469 
470 


00000320 


4ED0 




CfiLLIT 


JMP 


(AO) 


CALL THE PROCEDURE 




471 
472 








* 










473 








* RECOVER BLOCK 


ROUTINES TO CBTCH ESCAPES FROM ISR'S 




474 








* 










475 


00000322 


7046 




REC0V_2 


MOVEQ 


#70,00 
0(SP,DO),SRTEMP 


SETUP TO ENTER DEBUGGER (rdq) 




476 


00000324 


31F7 


0000 




MOVE.LJ 


SAVE THE STATUS REGISTER (rdq) 








FB6E 














477 


0000032A 


3 rue 

OOilO 
2 2 38 


2100 




MOVE.LJ 


#$2100,0(SP,D0) 


DUMMY STATUS (rdq) 




478 


00000330 


FB6B 




MOVE.L 


PCTEMP,D1 


SAVE THE TARGET ADDRESS (rdq) 




479 


00000334 


21F7 

FS6H 
2F81 


0002 




MOVE.L 


2(SP,D0) .PCTEMP 


SWITCH PCTEMP (rdq) 




480 


0OO0033A 


0002 




MOVE.L 


01,2(SP,DO) 


(rdq) 




481 


0000033E 


60BC 






BRA.S 


REC0V_1 






482 


















PAGE 
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20:59:24 A 


SSEMBLY 


OF POUERUP.TEXT 


*** File name: 


POUERUP *** 


483 


00000340 


0C6D 

FFFE 
67LB 


FFEfi 


RECOVER 


CMPI.U 


»-22,ESCBPEC0DE(H5) 


TEST FOR DEBUGGER CALL 




484 


00000346 






BEQ 


RECOV 2 






485 


00000348 


0C6D 
FFFE 

!}■■■■( e 


FFE4 




CMPI.U 


#-28,E"SCBPEC0DE(A5) 


CHECK FOR PARITY ERROR JS 9/12/83 




486 


0000034E 






BEQ.S 


RECOVRX 


SAME TREATMENT BS STOP JS 9/12/83 




487 


00000350 


OF.ED 
FFFE 
66B4 


FFEC 




CMPI.U 


#-20,ESCAPEC00E(A5) 


TEST FOR STOP KEY 




488 


00000356 






BNE 


REC0V_1 






489 


















490 








* 


STOP KEY PRESSED 


SIMULATE BN ESCBPE(-20) 

RESTORE THE ORIGINAL RECOVER BLOCK 




491 


00000358 


2B6F 


FFF6 


RECOVRX 


MOVE.L 


(SP)»,REC0VERBL0CK(B5) 

(SP)*, IORESULT IAS) 

STOP.AO 

BO,62(SP) REDIRECT 

ENDISRHOOK(AS) ,B0 




492 


0000035C 


54SF 






ADDQ.L 


GET RID OF SAVED ESCAPECODE 




493 


0000035E 


2BJF 


FFEfl 




MOVE.L 


RESTORE IORESULT 




494 


00000362 


41 FR 


oooc 




LEA 






495 


00000366 


2 F £ 8 


C031E 


RECOVERFl MOVE.L 


INTERRUPTED PROGRAM TO STOP (rdq) 




496 


0000036P 


2c;d 


FFBE 




MOVEA.L 


CALL ISR HOOK TO ALLOLJ MULTI -TASKING 




497 
498 
499 
500 

501 


0000036E 


4EC0 






JMP 


(AO) 






00000370 


4E4A 




STOP 


TRAP 


#10 






00000372 


2R78 


FB7C 


RDD_ERR 


MOVEA.L 


G DOLLAR, B5 
#-ll,ESCAPEC0DE(A5) 


FIX AS 




502 


00000376 


3B7C 
FFFE 

soos 


FFFS 




MOVE.LJ 


SET ESCAPE CODE 




503 


00O0037C 






8RA.S 


BE INFO 






S04 


0000037E 


2B7R 


FB7C 


BUSJRR 


MOVEA.L 


G COLLAR, AS 
#-12,ESCAPEC0DE(A5) 


FIX H5 




SOS 


00000382 


3B7C 


FFF4 




MOVE.LJ 


SET ESCAPE CODE 








FFFE 














506 


00000388 


4A38 


FB98 


BE_INFO 


TST.B 


M68KTYPE 


(rdq) 




507 


O0O0038C 


6778 






BEQ.S 


BE_INFOR 


(rdq) 




S08 








*-(rdq) 


-new cod 












509 


0000038E 


31DF 


FBS4 




MOVE.LJ 


(SP)*,EXCP STATUS 


SAVE RELEVANT DIAGNOSTIC INFO 680xx 




510 


00000392 


210F 


FB56 




MOVE.L 


SP)*,EXCP PC 






511 


00000396 


31CF 


FF35P) 


E680XX 


MOVE.LJ 


SP]*,EXCP VOFFSET 
#7,EXCP_V0FFSET 


other 680xx EXCEPTIONS enter here 




512 


0000039R 


Of 3 8 
FRSll 
613:2 


0007 




BTST 


?OXX note: bit 6 is assumed 




513 


000003A0 






BNE.S 


BE02 






514 


000003A2 


C8-38 
3B6B 


0005 




BTST 


#5,EXCP_V0FFSET 


00?X 




515 


00C003B8 


67C0 


0096 




BEQ 


ESCNA 


OOOX either 0000 or 0001 




516 


000003BC 


21CF 


F3O0 




MOVE.L 


|SP)*,ERR PC 
ESCNP 


001X assumed to be 0010 




517 


000003BO 


6000 


008E 




BRA 






518 








* 










S19 


000003B4 


48F8 


0101 


BE02 


MOVEM.L 


BO/DO, BE_END-8 SAVE SCRATCH REGS 








FB4C 














520 


0OO003BB 


41F8 


FBOO 




LEA 


ERR INFO, BO FRONT OF SAVE BREB 




621 


000003BE 


7002 






MOVEQ 


#2, BO SET FOR 


1001 




522 


0OC003CO 


5833 
FB6A 


0004 




BTST 


#4,EXCP_V0FFSET 


10X? 




523 


000003C6 


6720 






BEQ.S 


BE04 






524 


000003C8 


3-33 
F3 5A 


00C5 




BTST 


#S,EXCP_VOFFSET 


1021 




525 


000003CE 


6728 






BEQ.S 


BE06 IF THEN HAVE 


1001 




626 


00000300 


7012 






MOVEQ 


#18, DO 1011 (LONG 68020 EXECPTION) 




527 


00000302 


2CJF 




BE03 


MOVE.L 


(SP)* (AO)* 
00,BE03 






528 


000003D4 


51C8 


FFFC 




DBRfi 






















1-310 
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OF POUERUP.TEXT «** File name. 


POUERUP *«» 


529 


000003138 4CF8 

FB4C 

000003DE 21DF 


0101 


MOVEM.L 


BE_END-8, RO/DC RESTORE SCRATCH REGS 




530 


FB4C 


MOVE.L 


(SP)+,BE END L 20-8 SAVE LAST 2 LONG UORDS 




531 


000003E2 21DF 


FBSO 


MOVE.L 


SP)+,BE END L 20-4 
ESCNA 




532 


000003E6 6058 




BRB.S 




533 






* 






534 


000003E8 7005 




BE04 MOVES 


#5, DO SET FOR 1010 




535 


000003EP) 0838 
FBSA 


0005 


BTST 


»5,EXCP_V0FFSET 10?0 




536 


000003=0 6600 


0006 


BNE 


BE06 




537 


000003=4 300F 




MOVE.U 


(SP)+,(BO)* HAVE 1000 MUST BE 68010 




538 


000003i=6 700B 




MOVEQ. 


#11, DO 




539 


OOO003FS 20DF 




BE06 MOVE.L 


(SPJ+,(AO)* MOVE FROM STACK TO SRVE AREA 
DO,BE06 




540 


OO0003FA 51C8 


FFFC 


DBRA 




541 


000003FE 4CF8 
FB4C 


0101 


MOVEM.L 


BE_END-8,P0/D0 RESTORE SCRATCH REGS 




542 


00000404 603H 




BRA.S 


ESCNfl 




S43 












544 
545 












00000406 31DF 


FBOO 


BE INFOR MOVE.UI 


(SP)+,BE SSU SAVE RELEVANT DIAGNOSTIC INFO 68000 




546 


0000040B 21DF 


FB02 


MOVE . L 


(SP)+,BE FAULT RODR 




547 


O000040E 310F 


FB06 


MOVE.U 


ISP)*, BE INSTR 

ESCN THE REST IS LIKE OTHER EXCEPTIONS 




548 
549 
550 


000004 L2 6018 




BRA.S 




000004L4 2F0D 




ESC MOVE.L 


AS,-(SPJ SRVE R5 
4(SP),AS GET CODE POINTER 
(A5) ,6(SP) SRVE CODE 
G DOLLAR. AS 




SSI 


00000416 2A6F 


0004 


MOVER. L 




SS2 


0000041R 3F55 


0006 


MOVE.U 




553 


0000041E 2R78 


FB7C 


MOVER. L 




554 


00000422 3B6F 

FFFE 

00000428 2ASF 


0008 


MOVE.U 


6TSP),ESCAPEC0DE(A5) SET ERROR CODE 




555 




MOVER. L 


(SP)*,A5 RESTORE AS 

#4,SP POP SCRATCH SPACE 




556 


0000042R S88F 




AODQ.L 




557 












558 


0000042C 31DF 


FB54 


ESCN MOVE.U) 


(SP)*,EXCP STATUS SAVE EXCEPTION DIAGNOSTIC INFO 




559 


00000430 21DF 


FBS6 


MOVE . L 


|SP)*,EXCP~PC 




560 


00000434 4A38 


FB98 


TST.B 


M68KTYPE (rdq) 




561 


00000438 6600 


FF5C 


BNE 


E680XX rdq) 




562 


0000043C 4278 


FB5A 


CLR.U 


EXCP VOFFSET rdq 




563 


00000440 2F08 




ESCNA MOVE.L 


AO.-TSP) SRVE AO (rdq) 
#-l,EXCP_LINE TRY TO GET LINE # 




564 


00000442 21 FC 


FFFF 


MOVE.L 






FFFF 


FB5C 








56 S 


0000044R 2078 


FB60 


MOVER. L 


LRSTLINE,AO 




566 


0000044E 0C58 


4E40 


CMPI.U 


*$4E40, (A0) + TRAP ? 




567 


000004S2 6608 




BNE.S 


NO LINE 




568 


00000454 4278 


FB5C 


CLR.U 


EXCP LINE 




569 


00000458 31D0 


FB5E 


novE.u 


(AO).EXCP LINE*2 FOUND LINE # 




570 


0000045C 205F 




NO LINE MOVER. L 


jSPj+.AO RESTORE AO 




571 


0000045E 4EB8 


FB86 


JSR 


DEBUGESCRPE DEBUGGER HOOK 




572 


00000462 4E4B 




TRAP 


#11 




573 


00000464 648F 




fiODO.L 


#2,SP (rdq) 




574 


00000466 2R78 


FB7C 


MOVER. L 


G_DOLLAR,RS FIX AS 




575 












576 






* TRY TO DETECT 


CASES OF INTERRUPTED SUPERVISOR CALLS DURING USER PROGRAM 




577 


0000046R 2060 


FFF6 


MOVER. L 


RECOVERBLOCK(AS) , AO 




578 


000004BE B1CF 




CMPR . L 


SP.AO 

TEST_2 




579 


00000470 6C08 




BGE.S 




PAGE 
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20:59:24 ASSEMBLY 


3F POUERUP.TEXT *** File name: 


POUERUP *** 


580 


000004''2 08B8 
FBS4 


0005 


BCLR 


#5,EXCP_STATUS MOVE BACK TO USER MODE BECAUSE USER 




581 


000004''8 600C 




BRA.S 


NORMAL RECOVER STACK IS BELOU SUPERVISOR STACK 




582 


O00004''fl B1F8 


FB78 


TEST 2 CMPfl.L 


INITRECOVER.AO 




S83 


O000047E 6606 




BNE.S 


NORMAL RECOVER 




584 


00000480 31F8 
FB54 


FB96 


MOVE 


INITSR,EXCP_STATUS INITSR UAS SAVED UHEN INITRECOVER UAS 




585 












586 


0000 


0486 


NORMAL RECOVER 


EQU * 




587 


00000486 46F8 


FB54 


MOVE 


EXCP STATUS, SR RETURN TO USER MODE 




588 


0000048H 2F2D 


FFF6 


MOVE.L 


REC0"7ERBL0CK(RS),-[SP) GO CLOSE ALL FILES ABOVE NEU (SP) 
ASM CLOSEFILES 




589 


O000048E 6100 


FD26 


BSR 




590 


00000492 2E6D 


FFF6 


MOVER. L 


REC0~VERBL0CK[fl5) ,SP CUT BACK USER'S stack 




591 


00000496 4E75 




RTS 






592 












593 


00000498 55AF 


0002 


P BREAK SUBQ.L 


#2,2 (SP) BACKUP TO OPCODE 
2(SP],LASTLINE SAVE THE PC 




594 


OOO0049C 21EF 


0002 


MOVE . L 






FB60 










595 


000004A2 58AF 


0002 


ADDQ.L 


#4,2(SP) BUMP RETURN ADDRESS TO SKIP LINE NUMBER 




596 


000004A6 4E73 




RTE 


RETURN FROM TRAP #0 




597 












598 


000004(18 4EB8 


FB64 


ESCAPE_PROTO 


JSR ESCAPE 
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*** File name: 


POUERUP *** 


600 






, 












601 






» HANDLING 


LEVEL 7 KEYBOARD RESE1 


INTERUPTS 




602 






* 












603 




FF88 0024 


MONITOR 




EOU $FF860024 








604 




0042 8003 


KBDSTATUS 


EQU $00428003 








605 




0042 8001 


KBDDATF 




EQU $00428001 








606 




0042 8003 


KBDCOMMAND 


EQU $00428003 








607 






* 












608 


000004AC 


48E7 FFFE 


RESET_ISR 


MOVEM.L D0-07/B0-A6, 


(SP) 


SAVE REGISTERS 




609 


000004B0 


13FC 00B2 






MOVE.B #$B2, KBDCOMMAND 


TURN OFF INTERRUPT 








0042 8003 














610 


00000488 


6150 






BSR.S GETCTRL 








611 


000004BA 


614E 






BSR.S GETCTRL 








612 


000004BC 


0801 0001 






BTST #1,D1 
BNE.S RESETX 








613 


000004C0 


6618 












614 


000004C2 


4CDF 7FFF 






MOVEM.L (SP)+,DO 
JMP CTL_RESETV 


D7/A0- 


A6 RESTORE REGISTERS 




615 


000004C6 


4EF8 FB80 






UIATCH IF OUT OF RANGE 




616 


















617 


000004CA 


4879 FF88 


TRYMONITOR 


PEA MONITOR 












0024 














618 


000004DO 


4EB8 01A0 






JSR RTN TO MONITOR 




UILL RETURN IF NO MONITOR 




619 


000004D4 


S84F 






ADDQ #4,5P 




POP MONITOR ADDRESS <rdq) 




620 


000004D6 


48E7 FFFE 






MOVEM.L D0-D7/A0-A6, 


(SP) 


SAVE REGISTERS 




621 






* 












622 




0000 04DA 


RESETX 




EQU « 








623 


000004DA 


4878 0007 






PEA 7 




DEBUGGERS, 0,0) 




624 


000004DE 


42A7 






CLR.L -(SP) 








625 


000004EO 


42A7 






CLR.L -(SP) 








626 


000004E2 


2A78 FB7C 






MOVEA.L G DOLLAR 


AS 






627 


000004E6 


43ED FEEC 






LEA DEBUGGER (AS ),A1 






628 


000004EA 


6100 FE28 






BSR CALLPROC 








629 


000004EE 


4C0F 7FFF 






MOVEM.L (SP)*,DO 


D7/A0- 


A6 RESTORE REGISTERS 




630 


000004F2 


4EB8 FB86 






JSR DEBUGESCAPE 


GIVE DEBUGGER ANOTHER SHOT 




631 


















632 


000004F6 


4E70 






RESET 




NO DEBUGGER, GIVE UP, CLEAR I/O 
WAIT 1 . .2 SECONDS 




633 


000004 F8 


7010 






MOVEQ #16, DO 
DBRA D1.LP1 






634 


000004 Ffi 


51C9 FFFE 


LP1 










635 


000004 FE 


51C8 FFFA 






DBRA D0.LP1 
CLR -574 








636 


00000502 


4278 FDC2 








THEN REBOOT FROM SCRATCH 




637 


00000506 


4EF8 01CO 






JMP 448 




CALL BOOT ROM TO BOOT A SYSTEM 




638 






* 












639 


OOOOOSOA 


6122 


GETCTRL 




BSR.S STALL 








640 


0000050C 


13FC 0005 
0042 80O3 






MOVE.B #5, KBDCOMMAND 








641 


00000514 


6118 


GA 




BSR.S STALL 








642 


00000516 


0800 OOOO 






BTST #0,D0 








643 


O0O00S1A 


67F8 






BEQ GA 








644 


0000051C 


1239 0042 
8001 






MOVE.B KBDDATA,D1 








64S 


00000522 


C07C OOFO 






AND #$F0,DO 








646 


00000526 


B07C 0040 






CMP #$40, DO 








647 


00000S2A 


66E8 






BNE GA 








648 


0000052C 


4E75 






RTS 








649 


0000052E 


1039 0042 
8003 


STALL 




MOVE.B KBDSTATUS, DO 








650 


00000534 


0800 0001 






BTST #1,00 
BNE STALL 








651 


00000538 


66F4 
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*** File name: 


POUERUP *»* 


652 


0000053A 


4E75 






RTS 








6S3 






* 




SUPERCALL CODE MOVED TO ASM POUERUP (rdq) 




654 






* 












655 




0000 053C 


ASM_INTLEVEL EOU « 




FUNCTION TO RETURN INTERRUPT LEVEL 




656 


0000053C 


4E4B 




TRAP #11 




SHIFT TO SUPERVISOR MODE (rdq) 




6S7 


0000053E 


301F 




MOVE.U ISP)*. DO 




POP OFF STATUS REGISTER rdq 




658 


00000540 


46C0 




MOV 


DO,SR 
L #$00000700, DO 




RETURN TO PREVIOUS MODE rdq 




659 


00000542 


COBC 0000 




AND 




EXTRACT LEVEL 








0700 














660 


00000548 


E048 




LSR 


#8, DO 




MOVE IT OVER 




661 


0OO0054A 


2F40 0004 




MOV! 


.L D0,4(SP) 




RETURN INTEGER RESULT 




662 


00O0054E 


4E75 




RTS 










663 


















664 




0000 0550 


ASM_SETINTLEVEL EQU * 




PROCEDURE TO SET INTERRUPT LEVEL 




665 


00000550 


20SF 




MOVEA.L (SP)*,AO 




RETURN ADDRESS 




666 


00000552 


201F 




MOVE 


.L SP)*,DO 
#7, DO 




INTEGER PARAMETER 




667 


00000554 


C07C 0007 




AND 




TAKE MOD 8 FOR SAFETY 




668 


00000558 


E148 




LSL 


#8, DO 




MOVE IT OVER 




669 


0000055A 


4E4B 




TRAP #11 




MOVE INTO SUPERVISOR MODE 




670 


0000055C 


321F 




MOVE 


(SP)«,D1 
#$F8FF,D1 




GET CURRENT STATUS REGISTER 




671 


0OO0055E 


C27C F8FF 




AND 




CLEAR CURRENT LEVEL 




672 


00000562 


8041 




OR 


Dl.DO 




COMBINE WITH NEU LEVEL 




673 


00O00S64 


46C0 




MOVE 


00, SR 




RESTORE STATUS 




674 


00000566 


4E00 




JMP 


(B6) 








675 


















676 


00000568 


205F 


ASM_IAND MOVrl.L (SP)*.AO 








677 


0000056A 


201F 




MOVE 


.L (SP)*,DO 








678 


0000056C 


C09F 




AND 


L SP)+,DO 








679 


0000056E 


2E80 




MOVE 


.L DO.(SP) 








680 


00000570 


4ED0 




JMP 


(AO) 








661 


















682 


00000572 


205F 


ASrt_IOR 


MOVEA.L (SPi-,QO 








683 


00000574 


201F 




MOVE 


.L (SP;-,DO 








684 


00000576 


8 09F 




OR.L 


(SP)«.DO 
.L DO, [SP) 
(AO) 








685 


00000578 


2E80 




MOVE 








686 


0000057A 


4ED0 




JMP 
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691 
692 
693 

694 
695 

696 
697 
698 
699 
700 
701 

702 
703 
704 
705 



707 
708 
709 
710 
711 
712 
713 
714 



******************* PARITY ERROR CHECKER ***** 
RETURNS WITH CC=EQ IF NOT PARITY ERROR, 



0000057C 
00000530 

OOOOOS36 
00000538 

00000S3E 
00000590 
00000594 
00000596 
0000059A 
0000059E 

000005A4 
000005A6 
000005A8 
000005AA 

000005B2 

000005BB 
OOOOOSBC 
000005BE 
000005CO 

000005C4 



48E7 

20 n: 

FFFC 
2F10 
20EC 
01F2 
3F20 
30BC 
7001 
487A 
21CF 
3239 
0000 
588F 
4P.40 
6710 
33FC 
005B 
33 FC 
005B 
30DF 
209F 
4A40 
4CDF 
4E7S 



C080 
l-FFF 



002E 
FB8C 

OOSB 



0000 
0000 
0001 
0000 



000005C6 7000 
000005C8 4EFA FFDC 



CHECK MOVEM.L 
MOVES. L 

MOVE.L 

move.l 

MOVE.U 

move.u 
moveq. 

PEA 
MOVE.L 

novE.u 

ADOQ.L 
P_CHECK1 TST 
BEQ.S 
MOVE.U 

MOVE.U 

MOVE.U 
MOVE. I 
TST 

MOVEM.L 
RTS 

MOVEQ 

jnp 



D0-D1/B0,- (SP) 
*-4,A0 



(AC) 



(A0),-(SP) 
♦IGNOREBUS, 

-(HO),-(SPj 

*jmp, (AO) 

#1,D0 

PBERR 

SP.BESPTEMP 

P_STATUS,D1 

♦4,SP 

DO 

P RTS 

tO",P_STATUS 

#1,P_STATUS 



(SP)+, (AO)* 

io 

(SP)+,D0-01/A0 



SAVE REGS UE UIILL USE 
SETUP FOR VECTOR SWAPPING 



SAVE OLD BERR VECTOR 

SETUP DUMMY BUS ERROR VECTOR 



#0,DO 
P_CHECK1 



ASSUME UE HAVE A PARITY ERROR 



TRY TO READ STATUS WORD 

IF READ OK WE HAVE PARITY ERROR 
DID UE HAVE A PARITY ERROR? 
IF NOT THEN RESTORE AND RETURN 
ELSE UE MUST CLEAR THE INTERRUPT 

AND RE-ENABLE IT 

RESTORE OLD BERR VECTOR 

SET THE CC 
RESTORE REGS 
AND RETURN 

CLEAR DO -- NO PARITY ERR 

AND RETURN FROM BUS ERR ROUTINE 



*** File name: POUERUP *** 



JS 9/12/83 
JS 9/12/83 
JS 9/12/83 
JS 9/12/83 
JS 9/13/83 

JS 9/12/83 
JS 1/23/84 

JS 9/13/83 
JS 9/13/83 
JS 9/12/83 



JS 9/12/83 

JS 9/12/83 
JS 9/12/83 
JS 9/12/83 
JS 9/12/83 

JS 9/12/83 

JS 9/12/83 
JS 9/13/83 
JS 9/12/83 
JS 9/12/83 
JS 9/12/83 
JS 9/12/83 
JS 9/12/83 
JS 1/23/84 
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*** File name: POUERUP *** 



716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
7 33 
734 
735 
736 
737 
738 
739 
740 
741 
742 



744 
74S 
746 

747 
748 

749 
760 
751 
752 

753 
7S4 
755 
756 
757 
758 
7S9 
760 
761 
762 
763 
764 
76S 
766 
767 



********** TIMER JUNK ************************************* 



def 
def 
def 
def 

smode 

0000 0001 time represent 



FFFF FEDH sysflag2 
FFFF FFFA buserrvec 



init timer 
checlc_timer 
delay timer 
asm_tTcker 

sysflag2 

equ 1 



initialize timer: call at powerup/scratch a 
call after ~lms to check w/ bpl 
wait for x microseconds 
read timer in itcs 



equ 
equ 



Ifffffeda 
Ifffffffa 



1 if there is a timer, if not 



bus error vector 



OOOOOSCC 
OOOOOSDO 
0000051)4 



OO0OOSE2 
OO0OOSE6 
OOOOOSGA 

OOOOOSFO 
O00OOSF2 



00000600 
00000604 
00000608 



0000 05CC 
2F38 FFFC 
3F38 FFFA 
31 FC 4EF9 
FFFA 

21FC 0000 
01A2 FFFC 
487A 0016 
21CF FB8C 
4A39 005F 
8003 
588F 

08B8 0001 
FEDA 
6006 

0000 05FA 

08F8 0001 
FEDA 

31DF FFFA 
21DF FFFC 
4E75 



************************ 

* look_for T timer 

* DetermTne if you have a timer chip on the processor board. 

* Try to read from the status register of the chip and see if you get 

* a bus error . 
************************************************************************* 

look_for_t imer equ * 

move.l buserrvec+2, - (sp) 
move.w buserrvec, -(sp) 
move.w #$4ef9, buserrvec 



************************************* 



save old bus error vector 



move.l ttignorebus, buserrvec+2 point buserr vector to service routine 

pea buserr_serv 

move.l sp,besptemp 

tst.b $5f8003 test for the timer 

addq.l *4,sp 

bclr #t imer_present , sysf lag2 there is a timer 

bra.s skipl 

buserr_serv equ * 

bset #t imer_present , sysf lag2 there is no timer 



restore original bus error vector 



skipl move.w (sp) +, buserrvec 

move.l [spJ+jbuserrvec+2 

rts 

************************************************************* 

* init_timer initialize the timer 

* outputs enabled 

* no interrupts 

* continuous operating mode 

* 16 bit for counter 1 and 2, 8 bit for counter 3 

* external clock source 

* divide by 8 (temporary) 



i*********** 



CR1 



xOOOOOOr 
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768 
769 
770 
771 
772 
773 
774 
775 
776 
777 

778 
779 

780 

781 

782 

783 

784 

785 

786 



789 
790 
791 
792 
793 
794 
795 
796 
797 
798 

799 
800 

801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 



CR2 xOOOOOOa 
CR3 10000101 

x - don't care 

r - counter reset 

a - address bit (selects CR1 or CR3) 
* ********************** ********************* 



0000060B 
00OO06OC 

00000612 
00000614 

0000061R 

00000620 

00000626 

3OO0062C 

00000632 

00000638 

0000063E 

00000644 

0000064P 

00000650 



00000652 
00000656 

0000065C 
0000065E 

00000664 
00000668 
0000066C 
0000066E 
00000670 
00000672 
00000674 
00000676 
00000678 
0000067C 



G300 
51CO 
0338 
FEDH 
S33C 
41F9 
8 000 
117C 
0303 
117C 
0001 
117C 
3 303 
U7C 
0001 
117C 
0009 
U7C 
0O0B 
117C 
OOOD 
117C 
OOOF 
117C 

oooi 

4E7S 



OOOO 
420F 
0338 
FEOA 
631E 
41F9 
8000 
0148 
!48 
B 181 
4 841 
41141 
6704 
4841 
3380 
2F40 
4E75 



060P, init_timer equ 

bsr 
0001 btst 



OOSF 
0000 
0084 
0001 
0001 
OOFF 
OOFF 
OOFF 
OOFF 
0000 



look_f ort imer look for hardware timer 

#t imer_present , sysf lag2 if hardware timer present 



aO = address of timer 

address CR3 

set up CR3 ($84 for no divide by 8) 

set up CR2 (address CR1) 

set up CR1, stop timer 

set timer 2 to Jffff 

set tinier 3 to Sffff 

start timer 



bne . 
lea 




itskp 
$5f8000,a0 


move 


b 


#$00,3|a0) 


move 


b 


#$84,1 (aO) 


move 


b 


t$01 ,3(a0) 


move 


b 


*$01 ,1 (aO) 


move 


b 


#Sff ,9(a0) 


move 


b 


#$ff,ll(aO) 


move 


b 


#$ff,13(a0) 


move 


b 


#$ff,15(a0) 


move 


b 


»$00,1 (aO) 


rts 







*********************************************************** 

* asm_ticker function ticker : integer 

* sp+4 is the long word to contain the current timer 



**************** 
0652 asm_ticker equ * 



************* 



********* 



00O4 
0001 



OOSF 



clr.l 
btst 



bne . s 
lea 



4(sp) default value 

#t imer_present , sysf lag2 if hardware timer present 

rtskp2 
$Sf8000,aO 



O0O9 movep.l 9(aO),dO 

O0O9 movep.l 9(a0),dl 

eor.l dO.dl 
swap dl 
tst.w dl 
beq.s rtskpl 
swap dl 

eor.l dl.dO 
0004 rtskpl move.l d0,4(sp) 
rtskp2 rts 
********************************* 



address of timer counter 2 

read counter 2 and 3 

read them again 

see if the upper word has changed 



use second reading if MSU has changed 






:************ 



;******** 
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812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
837 
828 

829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 

841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
956 
3 5? 
858 
SS9 
360 
361 
862 
863 
864 
365 
■366 



* check timer 



check the timer 
Assumes timer is present! 



sp+4 contains a pointer to the timer control data structure: 
t imer_cont rol_var : long word 

first_time: boolean (first byte after timer^control var) 
if first time then timer control_var contains the timeout In millisecond 
if not flrst_time then timer_cont rol_var contains timeout clock image 
use bpl or bmi to check for timeout (bpl will branch if not timed out yet) 



************* 



0000 067E check_timer equ 



0OO0067E 4SE7 f030 

00000682 1 : F9 O06F 

5(00 
00000688 :; 148 O0O9 
000006RC 0348 O009 
00000690 B181 
00000692 4841 
00000694 4(141 
00000696 6704 
00000698 4841 
0000069R 8380 

0000 069C ctskpl 
0000069C 206F 0010 
000006fl0 2f6F 000C 

0010 
000006B6 4P.28 0004 
000006P.fi 5600 000C 
000006P.E B090 
000006BO 4CDF 0103 
000006B4 568F 
00000686 4E75 



movem.l dO-dl/aO, - (sp) 

lea $Sf8000,aO 

movep.l 9(aO),dO 
movep.l 9(a0),dl 
eor.l dO,dl 
swap dl 
tst.w dl 
beq.s ctskpl 

swap dl 

eor.l dl.dO 



equ 


* 




movea . ] 


letsp) 


,a0 


move. I 


12[spj 


,16(sp 



tst.b 4(a0) 

bne setup timer 

cmp.l (aO"),dO 

movem.l (sp)* ,dO-dl/aO 

addq . 1 #4,sp 

rts 



OOOO 06B8 setup timer equ 
000006B8 2210 ~ move.l 

000006BB ED89 lsl.l 

000006BC 9290 sub.l 

000006BE E389 lsl.l 

000006CO 9290 sub.l 

000006C2 E389 lsl.l 

000006C4 9081 sub.l 

000006C6 20C0 move. 1 

000006C8 4210 clr ,b 

000006CB 4CDF 0103 movem.l 

000006CE 588F addq.l 

00000600 4E75 rts 



(aO),dl 
#6,dl 
(aC 
ttl.m 

i a6 >! 

#l,di 



dl 

l,di 
dl.dO 

dO, (aO)* 
6) 

p)+,dO-dl/aO 
sp 



ou, i 
(aO) 
(sp) 
♦4,s 



save registers 

read timer 

address of timer counter 2 

read counter 2 and 3 

read them again 

see if the upper word has changed 



use second reading if MSU has changed 

timer value in dO 
aO = ~timeout value 
move up return address 

first time? 

branch" if first_time 

check for timeout [test with bpl) 

restore registers 

fix up stack 



dl = delay in milliseconds 
multiply by 250 



dl = delay in tics (1 tic = 4 us) 

do = timeout value 

store timeout value at a0~ 

first_time = false 

restore registers 

fix up stack 



********** ** 



************* 



****************************** 

* delay timer wait for specified amount of time 

* sp+4 contains the amount of time to wait in microseconds (long integer) 
************************************************************************* 
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86" 
868 



870 
871 
872 
873 
874 
875 
876 

877 
878 
879 
880 
881 
882 
883 
884 
885 



890 
891 
892 
893 
894 



900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 



0000 0602 delay_timer equ * 
000006D2 48E7 C080 movem.l dO-dl/aO , - (sp) 
0000061)6 0838 0001 btst #timer present , sysflag2 check for hardware timer 

FEDA 

* Use the timer to measure delay. 

* There is 218 cycles of overhead in addition to the timer amount. 

* It takes 351 cycles to go through the routine once. 



000006DC 6634 

000006DE 41F9 OOSF 

8000 

000006E4 0148 0009 

000006E8 0348 0009 

000006EC B181 

000006EE 4841 

000006KO 4B41 

000006K2 6704 

000006F4 4841 

000006F6 B380 

000006F8 222F 0010 dlskpl 

0O000SFC E489 

000006FE 5781 

00000700 9081 

00000702 0348 0009 dlloopl movep.l 9(a0),dl 

00000706 B280 cmp.l dO.dl 

00000708 6BF8 bpl.s dlloopl 

0000070A 4CDF 0103 movem.l (sp) +,d0-dl/a0 

0000070E 2E9F move.l (sp)+,(sp) 

00000710 4E75 rts 

* Use timing loop if no timer is present. 

* Number of cycles - 230+31n 



bne . s 


dlskp2 


lea 


$5f8000,a0 


movep. 1 


9(a0),d0 


movep. 1 


9(a0) ,dl 


eor . 1 


dO,dl 


swap 


dl 


tst .V 


dl 


beq.s 


dlskpl 


swap 


dl 


eor . 1 


dl.dO 


move . 1 


16(sp),dl 


lsr.l 


*2,dl 


subq . 1 


»3,dl 


sub.l 


dl.dO 



address of timer 

read counter 2 and 3 

read them again 

see if the upper word has changed 



use second reading if MSU has changed 
dl = delay in microseconds 
dl = delay in tics (1 tic = 4 us) 
subtract overhead outside timing loop 
dO = timeout value 

read counter 2 and 3 

compare timer value to timeout value 



00000712 222F O01O dlskp2 move.l 
00000716 E489 lsr.l 

00000718 5F81 subq.l 

0000071A 5381 dlloop2 subq.l 
000O07:.C 4E71 nop 

000007:.E 4E71 nop 

00000720 6BF8 bpl.s 

00000722 4CDF 0103 movem.l 
00000726 2E9F move.l 

00000728 4E7S rts 



16(sp) 
#2,dl 
#7,dl 
ttl.dl 



dlloop2 

(sp)+,d0-dl/a0 

(sp)*,(sp) 



dl = delay in microseconds 
dl = number of loops (1 loop = 4 us) 
subtract overhead outside loop (230/31) 
timing loop 



pop parameter 
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913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 



937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
PASS 1 
PASS 2 
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*** File name: POUIERUP *»* 



ADDRESS 


TRAP 


ESCAPEC0DE 


USUAL MEANING 


SFFFFFF3A 


15 


(NONE) 




DEBUGGER 


SFFFFFF40 


14 


-21 




UNBSSIGNED 


SFFFFFF46 


13 


-21 




UNASSIGNED 


SFFFFFF4C 


12 


-21 




UNASSIGNED 


JFFFFFF52 


11 


(NONE) 




SUPERVISOR MODE 


SFFFFFFS8 


10 


■V 




ESCAPE N 


SFFFFFFSE 


9 


(NONE) 




NON LOCAL GOTO 


SFFFFFF64 


8 


-3 




DEREFERENCE NIL POINTER 


SFFFFFF6B 


7 


-8 




VALUE RANGE ERROR 


SFFFFFF70 


6 


-9 




CASE STATEMENT ERROR 


SFFFFFF76 


5 


-5 




DIVIDE BY ZERO 


IFFFFFF7C 


4 


-4 




INTEGER OVERFLOW 


IFFFFFF82 


3 


-10 




IORESULT <> 


SFFFFFF88 


2 


-2 




STACK OVERFLOW 


$FFFFFF8E 


1 


(-2 IF 


ANY) 


LINK A6 EMULATOR UITH STACK CHECK 


$FFFFFF94 





(NONE) 




PASCAL LINE BREAKPOINT 



ERRORS: 
ERRORS: I) 



SYSTEM EXCEPTIONS: 

ADDRESS 

SFFFFFFC4 
SFFFFFFCA 
SFFFFFFDO 
SFFFFFFD6 
SFFFFFFDC 
SFFFFFFE2 
SFFFFFFE8 
JFFFFFFEE 
SFFFFFFF4 
$FFFFFFFfl 

NOSYMS 
END . 



ESCAPECODE 


USUAL MEANING 


-13 


1111 OPCODE 


-13 


1010 OPCODE 


(NONE) 


TRACE 


-14 


PRIVILEGE VIOLATION 


-4 


INTEGER OVERFLOW (TRAPV) 


-8 


CHK INSTRUCTION 


-5 


DIVIDE BY ZERO (HARDWARE) 
ILLECU INSTRUCTION 


-13 


-11 


ADDRESS ERROR 


-12 


BUS ERROR 
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RANDOM 



Description 

RANDOM provides pseudo-random number sequences. 



Usage 

RANDOM is part of LIBRARY and is accessible by IMPORTing RND. 



Requirements 

The user must declare and initialize his own seed, which should be a positive 32-bit integer. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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File name: RANDOM »** 



PASS 1 COMPLETE. ERRORS: 
1 
2 
3 
4 
5 
6 
7 



9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



51 
52 
S3 
54 
55 
56 
57 



src 
src 

src 
src 

src 
src 
Src 

def 

def 
def 
def 
def 

***** 



rnd 

module rnd; 
import sysglobals; 
export 

procedure randomfvar seed : integer); 

function rand( var seed : integer; 

range : shortint) : shortint; 
end; 

rnd_rnd 
rnd_random 
rnd rand 
random 
rand 



i**************** 



x******** 



************* 



Procedure RAN00M(VAR SEED: INTEGER) 

Description : 

Generate a pseudo-random number with the formula 

Xn <- (16807 * Xn-1) MOD [2-31 - 1), where Xn-1 is the 

previous random number. A shortcut computation is: 

C <- 16807 * Xn-1 . 

Xn <- C MOD 2-31 + C DIV 2-31 . 

If Xn > 2'31 - 1, then Xn <- Xn - (2-31 - 1) 



Pa rameters : 

rndseed 



the previous random number 



* Error conditions: 

* There are 
************************** 

00000000 4E75 rnd_rnd rts 

0000 0002 rnd random equ * 

00000002 205F random movea.l (sp)*,aO 

00000004 225F movea.l (sp)+,al 

00000006 2011 move.l (al),dO 

00000008 2200 

O00O0OOA 4841 

OOO0OO0C COFC 41A7 

00000010 C2FC 41A7 

00000014 4841 

00000016 D241 

00000018 D081 

0000001B 6402 

0000001C 5480 

0000001E 6A06 rndl 

00000020 90BC 7FFF 
FFFF 

rnd2 



00000026 2280 
00000028 4ED0 



move . 1 


dO.dl 


swap 


dl 


mulu 


#16807, dO 


mulu 


#16807, dl 


swap 


dl 


add.w 


dl.dl 


add.l 


dl.dO 


bcc . s 


rndl 


addq. 1 


#2,d0 


bpl.s 


rnd2 


sub.l 


#$7FFFFFFF,dO 


move . 1 


dO.(al) 
(a6) 


•jmp 



return address 
address of seed 

?et previous random seed Xn 
eave bottom 16 bits in dO 
get top 16 bits into dl 
get one partial product in do 
nigh order partial product in dl 
align middle 16 bits of product in high dl 
most of (product div 2-31) is in low dl 
compute (product mod 2-31) + (product div 2-31) 
any carries out of 32nd bit are part of the div 
(so propagate into appropriate position) 
bit 31 is also part of the div 

so remove it and add it back to bit 



***************** 



********** 



Function RRND(VRR SEED: INTEGER: 

RANGE: SHORTINT): SHORTINT 
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58 
59 
60 
61 
62 
63 
64 
65 



69 
70 
71 
72 

73 



*** File name: RANDOM *** 



Returns a 16 bit integer which is scaled 

to the range 0. .RANGE-1 

(RANGE is treated as unsigned!) 



********************* 



0000 002A rnd rand equ * 

0OO00O2A 245F rand" movea.l (sp) + ,a2 

0OO00O2C 341F move.w (sp)»,d2 

0000002E 61D2 bsr.s rnd random 

00000030 E380 asl.l #1,<J0 

00000032 4840 swap dO 

00000034 CCC2 mulu d2,d0 

00000036 4840 swap dO 

00000038 3E80 move.w dO.(sp) 

0000003A 4ED2 jmp (a2) 



return address 
range parameter 
compute into dO 
normalize 

to 16 bits 
scale to range 

return result 



PASS 1 ERRORS: 
PASS 2 ERRORS: 



end 
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*«* 68000 ASSEMBLER SvnBOL TfiBLE DUMP »«* 

EXTERNAL SYMBOLS 
*«* NO EXTERNAL SYMBOLS *«* 

INTERNAL SYM30LS 



File name: RANDOM »** 



SYMBOL 


TYPE 


DEF EQU SYM YPLLE 


PO 


RREG 





ooooocoo 


fil 


RREG 





0C0QOCP1 


H2 


PREG 





00000C02 


R3 


fiREG 





00000C03 


A4 


RREG 





00000C04 


A5 


PREG 





00000C05 


A6 


RREG 





OOOOOC06 


P7 


RREG 





00000C07 


CCR 


STREG 





00000005 


DO 


DREG 





OOOOOCOO 


01 


DREG 





00000001 


D2 


DREG 





00000002 


D3 


DREG 





OO0OOCO3 


D4 


DREG 





OO0O0C04 


D5 


DREG 





ooooocos 


D6 


DREG 





00000006 


D7 


DREG 





00000007 


DFC 


STREG 





00000008 


RRND 


REL 


65 


0000002P 


RANDOM" 


REL 


37 


00000002 


RND1 


REL 


49 


0000001E 


RND2 


REL 


51 


00000026 


RND RPND 


REL 


64 


0000002P 


RNO"RflNDOM 


REL 


36 


00000002 


RND RND 


REL 


35 


00000000 


SFC 


STREG 





00000009 


SP 


RREG 





00000007 


SR 


STREG 





00000006 


USP 


STREG 





00000007 


VBR 


STREG 





OOOOOOOP 
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ROMCALL 



Description 

ROMCALL provides an interface to several Boot ROM routines, swapping environments appropri- 
ately. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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File name: ROMCALL *» 



PASS 1 COMPLETE. ERRORS: 
1 
2 
3 
4 
6 



9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 



mname ROMcall 

def asm_f pwr_on, asm_f lpyread, asm_flpy_wrt , asm_flpyinit 

def asm_fTpymread, asm_f lpymwr ite,asm_cache_on, a"sm_cache_of f 

def boot_lif head, boot findfile 

def boot minit,boot m?open,boot_mfclose,boot_mread 

refa sysgTobals ,msysTlags 



FFFF FFFE escapecode equ sysglobals-2 

FFFF FFF6 recoverblock equ sy sglobals-10 

FFFF FFB8 intvec2 equ -72 

0000 3FFE boot_id equ $3FFE 



vector for interrupt level 2 



0000 0120 flpyread 
0000 0124 flpy_wrt 
0000 0128 fintrupt 



* hard coded addresses: 



0000 012C 
0000 0130 
0000 0134 
0000 0144 
0000 018C 



f lpyinit 
f lpymread 
f lpymwrite 
f pwr_on 
lTfhead 
*findf lie 



0000 4004 minit 

0000 4008 mfopen 

0000 4010 mfclose 

0000 400C mread 



equ $120 

equ $124 

equ $128 

equ $12C 

equ $130 

equ $134 

equ $144 
equ 
equ 

equ 
equ 
equ 
equ 



S18C 

$190 

$4004 

$4008 
$4010 
S400C 



288 
292 
296 
300 
304 
308 
324 



0000 0000 

0000 0004 
0000 0004 



equ 
equ 
equ 



aO 
a4 
d4 



address of boot ROM routine 
return address 
function result 



0000 0000 bootjnfopen 



00000000 4 1F8 4008 

00000004 285F 
0C000006 4CDF 001E 
O0OO00OB 2F0C 
0000000C 613C 
O0OO00OE 4267 
O0O0O010 48E7 7800 
00000014 6010 



lea 

movea . 1 
movem . 1 
move . 1 
bs r . s 

clr.v 



equ * 
mfopen ,fl 



(sp)+,dl-d4 

R,-|sp) 

fixit 

<5P) 



movem. 1 dl-d4, 



3ra . 5 



rom fun 



(sp) 



0000 0016 
00000016 41F8 4004 

0OOO0O1A 285F 
0000001C 221F 
0000001E 2F3C 
00000020 6128 
00000022 4267 
00000024 2F01 

00000026 4E90 
00000028 381 F 



boot minit 
lea 



movea . 1 
move. 1 
move. 1 
bsr .5 
cl r .w 
move. 1 



rom_fun jsr 



(sp)*,R 

]spS*,dl 

R,-(sp) 

fixit 

-(sp) 

dl,-(sp) 

(A) 

Up)*,f 



get return address 

get parameters 

put return address back 

?et into boot ROM environment 
unction result 
push parameters 



get return address 

get parameters 

put return address back 

?et into boot ROM environment 
unction result 
push parameters 

call boot ROM 

get function result 



59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 



bsr .5 


unfix 


move.w 


F,4Esp 


rts 
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0000002B 614E 
0000002C 3F44 0004 
00000030 4E7S 

0000 O032 asm_flpyinit equ * 

00000032 41 F8 01 2C "" lea flpyinit.B 

00000036 285F movea. 1 (spW.R 

00000038 4C9F OOOE movem. w (sp)*,dl-d3 

0000003C 2F0C move.l R.-(sp) 

O0O00O3E 610B BSR.S FIXIT 



File name: ROMCfiLL *** 



00000040 48A7 7000 



movem .w dl -d3, - ( sp) 



71 


00000044 


4E90 




rom is r 


jsr 


(f>) 


72 


00000046 


6132 




R0M_XIT 


bsr . s 


unfix 


73 
74 
75 


00000048 


4E75 






rts 




0000004B 


4 3FB 


OOBE 


fixit 


LEB 


ROM RECOVER, fil 


76 


0000004E 


2 85F 






movea . ] 


(spT*,R 
#11 


77 


00000050 


4E43 






trap 


78 


00000052 


47F8 


FFB8 




lea 


intvec2,a3 


79 


00000056 


3F1B 






move .w 


(a3)*,-[spl 


80 


00000058 


2F1B 






move , 1 


a3j*,-(5p) 


81 


0000005A 


273C 
0128 


0000 




move . 1 


♦fintrupt, -(a3 


82 


00000060 


373C 


4EF9 




move.w 


t$4EF9,- (a3) 


83 


00000064 


4E55 


FFFE 




link 


a5,#-2 


84 


00000068 


4851 






PEA 


(fill 


85 


0000006P, 


4857 






pea 


M 


86 


0000006C 


OC78 
3FFE 


0003 




CMPI.U 


#3,B00T_ID 


87 


00000072 


6604 






BNE.S 


FIXIT1 


88 


00000074 


6 100 


00E6 




BSR 


ASM CACHE OFF 


89 
90 
91 


00000078 


4ED4 




FIXIT1 


jmp 


(R) 


0000007B 


0C78 


0003 


UNFIX 


CMPI.U 


#3,B0OT_ID 






3FFE 










92 


00000080 


6 604 






BNE.S 


UNFIX1 


93 


00000082 


6100 


OOEfi 




BSR 


BSM CBCHE ON 


94 


00000086 


231.F 




UNFIX1 


movea . 1 


(spT*,R 


95 


00000088 


4E5D 






unlk 


aS 


96 


0000008B 


47F8 


FFBE 




lea 


intvec2+6, a3 
(sp)+, -(a3) 


97 


0OO00O8E 


271F 






move. 1 


98 


00000090 


371F 






move.w 


sp *,-(a3) 


99 


00000092 


46DF 






move 


sp) + , sr 


100 


00000094 


4ED4 






jmp 


(R) 


101 














102 














103 














104 




0000 


0096 


boot__mr 


ead 


equ * 


105 


00000096 


4 1F8 


400C 




lea 


mread, fl 


106 














107 


00000O9B 


28SF 




byte_14 


movea . 1 


(sp)*,R 


108 


0OO00O9C 


4C9F 


00 FE 




movem . w 


sp)*,dl-d7 


109 


0O0O0OAO 


2FOC 






move. 1 


R,-(sp) 


110 


O0O00OA2 


61H6 






bsr .s 


fixit 


111 


000000A4 


4 3117 


7FO0 




movem . w 


dl-d7,-(sp) 


112 


0OOO0OB8 


609B 






bra . s 


rorn_jsr 



return to user environment 
put back function result 
return 



get return address 
get parameters 
put return address back 
(rdq) get into boot ROM environment 
push parameters 

call boot ROM 

restore user envirnornent 

return to user 

frdq) 

fetch return address 

get into supervisor mode 

save floppy vector 

save jmp/jsr 

save address 

set up boot ROrt floppy vector 

(jmp) 

primitive try/recover 

(rdq) RECOVEft ADDRESS 

3.0 BUG FIX jws 

3.0 BUG FIX jws 
3.0 BUG FIX iws 
return to call 

3.0 BUG FIX jws 

3.0 BUG FIX iws 

3.0 BUG FIX jws 

fetch return address 

pop recover stuff 

restore floppy vector 

address 

jmp 

restore user mode 

return to call 



get return address 

get parameters 

put return address back 

get into boot ROM environment 

push parameters 
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**» File name: ROMCALL 



113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
i 27 
128 
129 
130 
131 
.132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 



COOO OOAfl boor mfclose equ * 
OOOOOOBfi 41F8 4010 lea mfclose, fi 
OO000OAE 6004 bra. 5 no_parm 

0000 O0B0 asm f pwr on equ * 
OO0O0OBO 41F8 0144 ' "" lea f_pwr_on,A 



OO0O0OB4 6194 
OO0OOOB6 608C 



no_parm bsr . s 
b r a . 5 



fixit 
rom_jsr 



0000 00B8 boot lifhead equ * 
OO0OOOB8 41F8 018C lea lifhead, fi 
OOOOOOBC 600A bra.s byte_8 

0000 OOBE asm flpy wrt equ * 
000O0OBE 41F8 0124 Tea flpy_wrt,A 
000000(12 6004 bra.s byte_8 

0000 00C4 asm flpyread equ * 
00000OC4 41F8 0120 ~ lea flpyread, fl 

0OOO0OC8 285F byte_8 movea.l (sp)+,R 

OOOOOOCA 4CDF 0006 ~ movem.l sp)+,dl-d2 

OOOOOOCE 2F0C move . 1 R.-(sp) 

00000000 6100 FF78 bsr fixit 

O00O0OD4 48E7 6000 movem.l dl-d2,-(sp) 

00000008 6000 FF6F1 bra rom_jsr 



OOOOOOIIC 41 F8 0134 
OO00OOEO 6004 



0000 OODC asm_flpymwrite equ * 

flpymwrite,A 



lea 
bra.s 



byte_12 



0000 00E2 asm_flpymread equ * 

OOO0OOE2 41F8 0130 lea flpymread.fi 

OO0O0OE6 28SF byte_12 rnovea . 1 (sp)*,R 

000000i:8 4CDF O00E ' movem.l jsp)*,dl-d3 

0O0OOOEC 2F0C move.l R.-(sp) 

OOOOOOEE 6100 FFSfl bsr fixit 

O000OOF2 48E7 7000 movem.l dl-d3,-(sp) 

0O0OOOF6 6000 FF4C bra rom_jsr 

0000 OOFA rom^recover equ * 

OOOOOOFfl 381F move.w (5p)*,d4 

0O00OOFC 6100 FF7C bsr unfix 

000001(10 3B44 FFFE move.w d4 .escapecode ( a5 ) 

00000104 4E4A trap tl6 



boot ROM mini reset 

get into boot ROM environment 



boot ROM single-sector write 



boot ROM single-sector read 

get return address 

get parameters 

put return address back 

get into boot ROM environment 

push parameters 



boot ROM multisector write 



boot ROM multisector read 

get return address 

get parameters 

put return address back 

get into boot ROM environment 

push parameters 



escape from boot ROM 

get escapecode 

return to user environment 

restore escapecode 

esc ape {escapecode) 
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*** File name: ROMCALL **» 



170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
18S 
186 

187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 

206 
207 
208 
20 S 
210 
211 
212 

213 
214 

215 
216 
217 

218 
219 
220 
221 



FFFF FDD2 FUBUFFER EQU 



FLOPPY UNIVERSAL BUFFER <RQ> 



000001C6 
OO0001C8 
000001CA 
000001CC 
000001CE 
00000110 
00000112 
00000116 
0000011A 
0000011C 
O000O11E 
00000120 
00000124 
00000126 

0000012C 
0000012E 
00000132 
00000134 
00000136 
00000138 
0000013A 
0000013C 
00000140 
00000142 
00000144 



0000 0106 

225F 

241F 

261F 

205F 

285F 

2F09 

45F8 FDD2 

48E7 30A8 

2F02 

2F0fi 

61A4 

4C0F 1S0C 

7208 

OC6A FFFF 

O00A 

6726 

4P.6A OOOH 

6712 

2248 

264A 

7804 

B749 

S6CC FFFC 

6604 

288A 

4E75 



B0OT_FINDFILE 

MOVEA.L 

MOVE.L 

MOVE.L 

MOVEA.L 

MOVEA.L 

MOVE.L 

NXTDSECTOR LEPI 

MOVEM.L 
MOVE . L 
MOVE . L 
BSR.S 
MOVEM.L 
MOVEQ 

CHECKTYPE CMPI .10 



EQU 



SP)+,A1 
(SP)+,D2 

SP *,D3 

SP)+,AO 
(SP)*,A4 
fll, -ISP) 

FUBUFFER, A 2 

D2/D3/00/fi2/A4,-(SP) 

02, -(SP) 

A2, -ISP) 

ASM FLPYREAD 

(SPT*,D2/D3/A0/A2/A4 

#8,D1 

#-i,10(H2) 



BEQ.S NOT FOUND 
TST.U 10(A2) 
BEQ.S NXTDENTRY 
A0.A1 
A2.A3 
#4,04 

(filK(A3) + 
D4.CHKNAME 
NXTDENTRY 
A2, (A4; 



MOVEA.L 

MOVEA.L 

MOVEQ 

CMPM.U 

OBNE 

BNE.S 

MOVE.L 

RTS 



RETURN ADDRESS 

GET OIR START 

GET OIR LEN 

GET FILE NAME ADDR 

GET ADDR OF CAT ENTRY 

RESTORE RETURN ADDRESS 

SAVE REGS 

READ THE NEXT 
DIRECTORY SECTOR 
RESTORE REGS 
(8 ENTRIES/SECTOR) 
CHECK LOGICAL EOD 



IGNORE PURGED FILES 

SAVE NAME POINTER 
COPY ENTRY POINTER 
SET CHARACTER COUNTER 
MATCH CHARACTERS 



STORE THE CAT ENTRY ADDR. 



00000146 D4FC 002O NXTDENTRY ADDA 

0000014A 5381 SUBQ.L 

0000014C 6ED8 BGT.S 

0000014E 5282 ADDQ.L 

00000150 S383 SUBQ.L 

00000152 6E8E BGT.S 

00000154 3B7C FFFF NOTFOUND MOVE M 

FFFE 

0000015A 4E4A TRAP 



♦32, A2 

#1,01 

CHECKTYPE 

#1,D2 

#1.D3 

NXTDSECTOR 

#-l,ESCAPEC0DE(A5) 



INCREMENT 

TO NEXT ENTRY 

INCREMENT 

TO NEXT DIRECTORY 

SECTOR 

ESCAPECODE := -1 



*---rdq---R0UTINES TO TURN CACHE OFF AND ON- 
005F 400E CflCHEJCTL EQU I5F400E 



0000 015C ASM CACHE OFF 

0000015C 0838 0000 BTST 

0000 

00000162 67C8 BEQ.S 

00000164 0273 0003 ANDI.U 

005F 400E 

0000016C 4E7S XIT RTS 

0000 016E ASM CACHE ON 

0000016E 0833 0000 BTST 

0000 

00000174 67F6 BEQ 

00000176 91C8 SUBA.L 

00000178 303C OFFF MOVE.u) 

0000017C 2220 CflCHEOl MOVE.L 



EQU » 
#0,MSYSFLAGS 



XIT 
#$0003,CACHE_CTL 



EQU » 
HO.MSYSFLAGS 



CLEAR TST, ERR AND CACHE ENABLE BITS 



XIT 
AO.flO 
#4095, DC 
-(A0),D1 



READ 16K BYTES FROM HIGH MEM DOUN 
TO FLUSH THE CACHE 
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QBRfi OO.CBCHEOl 

LEfi CACHE_CTL,A0 

rlOVE.U (BO), DO FETCH CURRENT STATUS 

HNDI.U #$0007,00 CLEBR TST BND ERR BITS 

BSET *2,D0 SET CBCHE ENABLE BIT 

MOVE.U 00, (RO) PUT IT BfiCK 

RTS 



222 


0000017E 


51C8 


FhFC 


223 


00000182 


41F9 
4 00E 


OOSF 


224 


00000188 


3010 




225 


0OO0O18B 


0250 


0007 


226 


0000018E 


08C0 


0002 


227 


00000192 


3080 




228 


00000194 


4E75 




229 








230 








231 








232 








PRSS 1 


ERRORS: 






PfiSS 2 


ERRORS: 
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RS 



Description 

RS contains assembly language low-level I/O drivers. 



Usage 

RS is used for the 98626 interface and the Model 216/217 computers' built-in RS-232 interface. 



Requirements 

RS_DRV and COMASM. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PASS 1 
2 

3 



i [3.0] 12/26/84 21:34:08 ASSEMBLY OF RS.TEXT 
COMPLETE. ERRORS: 



File name: RS *** 



***********************************X************X********KX* 

* COPYRIGHT (C) 1984 BY HEWLETT-PACKARD COMPANY 

************************************************************ 



<X************* 



******** 



9 
10 

1 1 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 



IOLIE RS 






*****XX*****X* 



**************** 



Library - IOLIB 

Purpose - This set of assembly language code is intended to be used as 
a PASCAL module for I/O drivers for use by the external I/O 
procedures library. 



Date - 8-6-82 
Update - 5-3-84 SY 
Release - 3.0 



Source - RS : RS.TEXT 
Object - RS: RS.CODE 



********* 



****************************************** 



VERSION 3.0 



**************.******-**#*********** 



************************************** 



CHANGES (since 2.0) : 

(aaa) -- changes for ignore parity error register 20. 

<ttt> -- timing changes for 680xx -- JS 8/3/83, 5/3/84 
**************************************************************** 



49 
50 
51 
52 
S3 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
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*** File name: RS 
********************* 



The following lines are used to tell the LINKER/LOADER what this 
module looks like in PASCAL terms. 

Note that it is possible to create assembly modules that are functions. 
These routines are called through an indirect pointer using the CALL 
facility which does NOT permit functions. 

This module is called 'RS' ( upper or lower case - doesn't matter ) 
independent of the file name ( by use of the MNAME pseudo-op ). 

All the externally used procedures are called 'RS_(S@@@@<?@@' in 
this module. If you are using assembly to access them use the 
'RS_^@@@@@' name. If you are using Pascal use the ----- 

name . 



**************** 



******* 



******** 



********** 



MNAME RS 














SRC 


MODULE 


RS; 












SRC 


IMPORT 


iodeclarat ions : 










SRC 


EXPORT 














SRC 
















SRC 




PROCEDURE 


rs init 


temp 


ANYPTR 


; 




SRC 




PROCEDURE 


rs isr 


temp 


PISRIB 


; 




SRC 




PROCEDURE 


rs rdb 


temp 


ANYPTR 


VAR x 


CHAR ); 


SRC 




PROCEDURE 


rs_wtb 


temp 


ANYPTR 


val 


CHAR ); 


SRC 




PROCEDURE 


rs_rdw 


temp 


ANYPTR 


VAR X 


io_word 


SRC 




PROCEDURE 


rs~wtw 


temp 


ANYPTR 


val 


io_word 


SRC 




PROCEDURE 


rs_rds 


temp 


ANYPTR 


reg 


io~word 


SRC 












VAR x 


io~wo rd 


SRC 




PROCEDURE 


rs_wtc 


temp 


ANYPTR 


reg 
val 


io word 


SRC 












io word 


SRC 




PROCEDURE 


rs_tfr 


temp 


ANYPTR 


bcb 


AN7PTR) 


SRC 


END; < 


of RS ) 
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97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 



3 [3.0] 12/26/84 21:34:08 IOLIB RS - RS232 DRIVERS »** File 

************************** ************************************************ 

* 

* SYMBOLS FOR EXPORT AS PROCEDURE NAMES 

* 

************************************************************************** 

DEF RS_RS 

DEF RS_RS_INIT 

DEF RS_RS_ISR 

DEF RS RS RDB 

DEF RS RS UTB 

DEF RS RS_ROW 

DEF RS RSJJTU 

DEF RS RS RDS 

DEF RS~RS UITC 

DEF RS RS TFR 



lame: RS *** 



******************************************* 

SYMBOLS FOR IMPORT 

************************************* 

LMODE ABORT IO,LOGEOT 

REFA ABORT_I0,LOGEOT 

REFA DELHY_TIMER,CHECK_TMER 

LMODE DELAY_TIMER,CHECK_TIMER 

INCLUDE IOLIB :COMDCL 



**************************** 



**************************** 



ttt JS 8/3/83 
ttt JS 8/3/83 



121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
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******************************************************** 



*** File name: RS *** 

********************* 



added parm to user EOT & ISR proc's 
added t imer_present and sysflag2 equ's 






modified: 02/22/82 JPC 
08/01/83 JS 



******************** 
HPL CONVENTIONS 



Much of this code is taken intact from the 9826 HPL 
language system EIO ROM ( extended I/O ROM ). 

The Pascal that will be calling this code uses 
the stack for parameter passage. The HPL code 
uses the Ax and Dx registers for all parameters. 
The Pascal driver entry points on the previous pages 
take care of getting the parameters into the correct 
registers. 

GENERAL HPL ENTRY/EXIT CONDITIONS: 

ALL = CARD ADDRESS 

H2.L =■ DRIVER TEMP ADDRESS 

UNLESS OTHERUISE INDICATED, THESE REGISTERS ARE UNALTERED. 

NEW ENTRY/EXIT CONDITIONS FOR PASCAL USE : 

A3.L = BUFFER CONTROL BLOCK ADDRESS 

In addition to the A1/A2 convention, Pascal will use 
A3 for a pointer to the buffer control block. 
The HPL system kept much of the transfer 
information in the s.c. temps. 

TIME0UTJA2) = contains timeout information 

Timeout was a global temp in HPL and a timeout 

generated an error. 

In PASCAL each card has a timeout value stored in 

its temporary area. A timeout error 

generates an ESCAPE ( which can be trapped ). 









************* 



********** 



********** 
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167 
168 
169 
170 
171 
17 2 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 



COMMON EQUATES AND DEFINITIONS 
******* ********** ***************** 



*** File name : RS 



DRIVER TEMPS TEMPLATE 
OFFSET FROM R2 
HPL DECLARATIONS ( MODIFIED 



0000 0000 ISR ENTRY 
0000 0014 USER" ISR 
0000 0014 H_ISR"_PR 
0000 0018 H ISR SL 
0000 001C H ISR PM 
0000 0020 C RDR 
0000 0024 BUFI OFF 
0000 0028 8UF0 OFF 
0000 002C EIRB OFF 
0000 002D 10 SC 
0000 002E TIMEOUT 



0000 0032 MA U 

0000 0033 MP, 

0000 0034 AVAIL OFF 



EQU 


19 


EQU 20 




EQU 20 


23 


EQU 24 


.27 


EQU 28 


31 


EQU 32 


3S 


EQU 36 


.39 


EQU 40 


.43 


EQU 44 




EQU 45 




EQU 46 


.49 


EQU SO 


.SI 


EQU 51 




EQU 52 


•?? 


52 


.83 


52 


.179 



************************************************** 
PASCAL ISR LINK & UNLINK area 
user ISR: do NOT change the proc/stat link/parm ordering! 

procedure ptr 

static link 

parameter 
card address 
buffer pointer offset 
buffer pointer offset 
eir byte 

select code ( i.e. 7, 22, etc. ) 
timeout value 

=0 : no timeout 
#0 : value of timeout 
word access to my address 
byte access to my address 
standard space taken from temps 
normal cards ( 32 bytes ) 
98628 card ( 128 bytes 



197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
24 5 
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******************************************************************************** 



TRANSFER OFFSETS IN BUFFER CONTROL BLOCK 
OFFSET FROM A3 



PRSCAL DECLARATION 



****************** 
0000 00OO TTrIP OFF EQU 
0000 0005 T SC OFF EQU S 
0000 0007 TffCOFF EQU 7 
0000 0009 TUSR OFF EQU 9 



****** 
. .3 



0000 


000R 


T_BU_OFF 


EQU 


10 




0000 


OOOB 


TEND OFF 

* 

TDIR OFF 

* 

TCHR OFF' 

* 

TCNT OFF 

TBUF OFF 

TBSZ"OFF 

TEMP OFF 

TFIL~OFF 

T PR OFF 

* 

T SL OFF 

T PM OFF 

T_DMFiPRI 


EQU 


11 




0000 


OOOD 


EQU 


13 




0000 


OOOE 


EQU 


14 


. .15 


oooo 

oooo 

0000 

oooo 

oooo 
oooo 


0010 

0014 
0018 
001C 
0020 
0024 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


16 
20 
24 
28 
32 
36 


..19 
..23 
..27 
. .31 
. .35 
. .39 


oooo 
oooo 
oooo 


0028 

002C 
0030 


EQU 
EQU 
EQU 


40 
44 
48 


. .43 
. .47 






* TRANSFER EQUATES 


oooo 
oooo 

oooo 
oooo 


0001 
0002 

0003 
0004 


TT INT 
TT DMA 
TT BURST 
TT FHS 


EQU 
EQU 
EQU 
EQU 


1 
2 
3 
4 





********************************************** 
pointer to driver temp offset 
transfer select code 
actual transfer mode 
transfer mode 
00 

serial DMA 
serial FHS 
serial FASTEST 



01 
02 
03 
04 



OS 

06 

07 

08 

09 
transfer 

= 
t ransfer 

= 
t ransfer 

= 
t ransfer 

-1 = 
t ransfer 
t ransfer 
t ransfer 
t ransfer 
t ransfer 
t ransfer 
NIL no 
t ransfer 
t ransfer 
dma prio 



not used 



( DMA or FHS 
not used 



overlp INTR 

overlp DMA 

overlp FHS ( BURST ) 

overlp FASTEST ( DMA or BURST ) 

overlp OVERLAP f DMA or INTR ) 

byte/word indicator 
byte /1 s word 

EOI/END indicator 
no eoi / 1 = eoi sent or searched for 

direction 
input / 1 = output 

terminate character 

no termination character 

count 

buffer pointer 

buffer maximum size 

empty pointer pointer 

fill pointer 

pointer to eot procedure 
procedure 

eot proc static link 

eot proc parameter 
rity request 



interrupt 

DMA 

burst 

fast handshake 
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248 
249 
2S0 
251 
252 
253 
254 
2S5 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
284 
284 
285 
286 
286 
286 
287 
288 
289 
289 
289 
290 
291 
292 
293 
294 
295 



7 [3.0] 12/26/84 21:34:08 I0LI6 I0COMASM - 
*********************. 



ESCAPE SUPPORT 



******************* 



*** File name: RS 
************************** 



EXTERNAL REFERBNCES 'or escape 



************************** 
REFA iodeclarations 
REFA sysglobals 



********************************************* 
reference the io lib var. area 






************** 



*********************** 







* E 


scape 


code 






*************** 


**** 


0000 


0001 


NO CARD 


EQU 


1 


0000 


0002 


NOT HPIB 


EQU 


2 


oooo 


0003 


NO A"CTL 


EQU 


3 


oooo 


0004 


NO DVC 


EQU 


4 


0000 


0005 


NO SPACE 


EQU 


S 


oooo 


0006 


NO DATA 


EQU 


6 


oooo 


0007 


TFR" ERR 


EQU 


7 


oooo 


0008 


SC EUSY 


EQU 


S 


oooo 


0009 


BUF 8USY 


EQU 


s 


0001) 


ooon 


TCNTERR 


EQU 


10 


1)000 


OOOB 


BADTMO 


EQU 


11 


oooo 


OOOC 


NO DRV 


EQU 


1? 


oooo 


OOOD 


NO DMA 


EQU 


13 


oooo 


OOOE 


NO~UORD 


EQU 


14 


oooo 


OOOF 


NOT TALK 


EQU 


IS 


oooo 


0010 


NOT LSTN 


EQU 


16 


oooo 


OOll 


TMO ERR 


EQU 


17 


1)000 


0012 


NO 5CTL 


EQU 


IS 


oooo 


0013 


BAD" RDS 


EQU 


19 


oooo 


0014 


BAD SCT 


EQU 


20 


oooo 


0015 


CRD~DU)N 


EQU 


21 


oooo 


0016 


EOD SEEN 


EQU 


?? 


oooo 


0017 


10 RISC 


EQU 


23 



******************************************** 
no interface 
not an hpib interface 
no active controller 
sc ( not device ) specified 
not enough space in the buffer 
not enough data left in the buffer 
tf r er ror 



FFFF FFE6 IOE_ERROR EQU 



FFFF FFBE IOE RSLT EQU 
FFFF FFBB IOE_SC EQU 



FFFF FFFE ESC CODE EQU 
FFFF FFF6 RCVR"_BLK EQU 



OOOO 0001 TIMER PRESENT EQU 
FFFF FEDA SYSFLFTG2 EQU 



IODECLARATIONS-66 
IODECLARATICNS-70 



SYSGLOBALS-2 
SYSGLOBALS-10 



sc is currently busy 
the buffer is busy 



bad count 

bad timeout value 

no driver 

no dma installed 

no word transfers allowed 

not addressed as talker 

not addressed as listener 

timeout 

not system controller 

bad read status / write control 

bad set/clear/test 

interface is dead 

end of data has happened 

misc. error 



io sub system error escape code 



1 JS 
SFFFFFECA 



SYSFLBG2 BIT 
JS 8/1/83 



0=>TIMER PRESENT 
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297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 



REGISTER USAGE SUMMARY (of utility routines) 
Global Usage 



ROUTINE 



queue_space 

queue_empty 

queue__f ull 

inqueue 

outqueue 

init queue 

checT queue 

check_dsr__ct 5 

wait 

send 

get_char 

wait^send 

wait get 

checK_error 

soft reset* 

connect* 

disconnect 

rdivu 

check xfer_in 

check"xfer_out 

clear xfer+ 

set_xTer 

dump^buffer 



NOTATION (in order of importance) 



*** File name: RS *** 



Pascal Global Base 

Pascal Stack Frame 

Stack Pointer 

Card Address 

Driver Attributes ('temp' space) 

aO a3 a4 dO dl d2 d3 d4 d5 d6 d7 



output parameter 

input parameter 

used by routine (register has consistent meaning throughout routine 

used to pass parameter to called routines 

used by routine (temporary) 

possible usage by called routi 

not used by routine 



nes 



NOTE: the registers used by routines to do an ioescape have been 
left out since they do not effect other routines. 

*This routine calls ABORT 10 which uses other registers not listed 
♦This routine calls LOGEOT which uses other registers not listed 
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349 * 

350 * ROUTINE USAGE SUtlrlftRY 

351 * 

352 * ROUTINE CALLS 

353 * 

354 * queue_space <none> 

355 * queue_empty <none> 

356 * queue_full <none> 

357 * inqueue <none> 

358 * outqueue <none> 

359 * init queue <none> 

360 * chec!T_queue <none> 

361 * check_dsr_ct s <none> 

362 * wait check_queue , checked sr_cts (both indirect ly) 

363 * send wait, check_dsr_cts 

364 * get_char outqueue, queue_space, send 

365 * wait„send send, check_er ror 

366 * waitget wait, check_error, get_char , check_queue 

367 * chec5T_er ror ioe scape 

368 * soft_reset init_queLie, ABQRT^IO 

369 * connect soft_reset 

370 * disconnect <none> 

371 * rdivu <none> 

372 * check_xfer_in ioe scape 

373 * check_xfer_out ioescape 

374 * clear xfer~ <none> 

375 * set_x7er <none> 

376 * dump_buf fer queue_empty, get_char , clea r_xfe r, L0GE0T 

377 * ioescape <none> 

378 * init init_queite, AB0RT_I0 

379 * rdb connect, check__error, check_xfer_in, wait_get 

380 * wtb connect, check_error, check_xfer_out , wait_send 

381 * rdw connect, check_error, check_xfer_in, wait_get 

382 * wtw connect, check_error, check xfer_out , wait_send 

383 * rds queue_empty , get_char, checker ror, rdivu, ioescape, 

384 * connect 

385 * wtc check_error, soft_re set, connect, disconnect, rdivu, 

386 * ioescape 

387 * isr queue_space, queue_f ull, inqueue , check_dsr_ct s , 

388 * send, dump buffer, LOGEOT 

389 * tfr connect, cfieek_error , dump_buf fer , set_xfer 
390 
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392 * 

393 * 

394 * ROUTINE CALLED BY 

395 * 

396 * queue_space get char, isr 

397 * queue_empty dump_buffer , rds (6, 10) 

398 * queue__full isr 

399 * inqueue isr 

400 * outqueue get char 

401 * init queue iniT, soft_reset 

402 * checlT queue wait_get (with wait) 

403 * check_dsr_ct 5 isr, send [with and without wait) 

404 * wait wait_get , wait_send, send 

405 * send isr, wait _send, get _char 

406 * get_char rds(6), dump_buf fer, wait_get 

407 * wait_send wtb, wtw 

408 * waitget rdb, rdw, 

409 * checF_error rdb, wtb, rdw, wtw, rds(6), wtc(6), tfr, 

410 * wait send, wait_get 

411 * soft_reset wtc(T4), connect 

412 * connect rdb, wtb, rdw, wtw, wtc(12), tfr 

413 * disconnect wtc(12) 

414 * rdivu rds(3), wtc(3) 

415 * check_xfer_in rdb, rdw, 

416 * check_xfer~out wtb, wtw 

417 * clear xfer isr, dump_buffer 

418 * set_x7er tfr 

419 * dump_buffer tfr, isr 

420 * ioescape rds, wtc, tfr, check_erro r, check_xfer_in, 

421 * check_xfer_out 

422 * ABORT 10 init, soft reset 

423 * LOGEOT isr, dump Buffer 
424 

425 
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428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
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**** ************* ****************************************** 

* module initialization -- none required. 

* 

J*************************************,,**,*,,****,***,,,,,.,,,,,; 

0000 0000 RS RS EQU * 
00000000 4E75 ~ RTS 



*** Fu e n a me: rs 
***************** 



**************** 



******************************* 
98626 card register mnemonics 



********** 



********* 



0000 0001 RESET REG 

0000 0001 ID REE 

0000 0003 INTR SU 

0000 0005 BAUD„SU 

0O0O 0007 LINE_SU 



0000 0011 DOTS 
0000 0013 INTR EN 
0000 0011 DIVO 
0000 0013 DIV1 
0000 0015 INTR ID 
0000 0017 LINE CONT 
0000 0019 MODEF CONT 
0000 001B LINE S"TAT 
0000 001D MODEM STAT 



EQU 


• 


EQU 


1 


EQU 


3 


EQU 


S 


EQU 


7 


registers 




EQU 


17 


EQU 


1-J 


EQU 


17 


EQU 


19 


EQU 


'/I 


EQU 


y:< 


EQU 


'/>, 


EQU 


27 


EQU 


;>9 



******* ****************************************** 

write only 

read only 

interrupt switches 

baud rate switch bank 

line characteristic switches 



receive/transmit buffer (dlab=0) 
interrupt enable register (dlab»6) 
divisor latch (LSB) (DLAB=1) 
divisor latch (MSB) (DLAB=1) 
interrupt identification 
line control register 
modem control register 
line status register 
modem status register 
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464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 



**************************************************************** ******* 

ATTRIBUTE space offset mnemonics 

(do not mix -- word boundary problems) 
the word address is assumed to be EVEN 
starting at AVAIL_0FF 



******************** 



********* 
size 



(********************************* 



0000 
0000 

cooo 
coco 
ooco 

0000 
0000 
0000 

oooo 

0000 
0000 
0000 

oooo 

0000 

oooo 

oooo 

oooo 
oooo 
oooo 
oooo 
oooo 



00 34 
0038 
00 39 
00 3A 
00 3B 
003C 
0030 
00 3E 
00 3 F 
0040 
0041 
0042 
0043 
0044 
0045 
0046 

0048 

0048 
004A 
004C 
004E 



S ERROR 
IN ISR 
XIK ACT 
CONNECTED 
MODEM ON 
RECEIVING 
XMITTING 
S MODEM 
S_LINE 
S HA NOSH 
XijN CHAR 
XOFF CHAR 
ENQJTHAR 
ACK CHAR 
CONV CHAR 
IGN0R"E_PE 
*empty 

q_descript 
q_size 

Q_IN 
Q OUT 
Q BUFFER 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 



AVAIL OFF 
S ERR0"R-»4 
IN ISR+1 
XlfJ ACT*1 
CONRECTED+1 
MODEM ON+1 
RECEIVINGS 
XMITTING+1 
S MODEM+1 
S_LINE*1 
S HANDSH+1 
XUN CHAR+1 
XOFF CHARi-1 
ENQ C"HAR+1 
ACK CHAR-H 
CONV_CHBRU 

IGNORE PE*2 
Q_DESCR"IPT 
Q DESCRIPT+2 
Q_DESCRIPT+4 
QJ3ESCRIPT-6 



modem status copy 

line status copy 

contains current handshake 



4 pending error number 

1 

1 
1 
1 
1 
1 
1 
1 
1 



134 the rest is internal buffer <aaa) 
160 total space used 



***************************** 

* 

* constants (mnemonics) 

* 

***************************** 



******************************************* 



********************************************* * 



OOOO 
OOOO 
OOOO 
OOOO 
OOOO 

oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 



OOAO TEMP SIZE 
0086 BUFFER SIZE 
0011 DC1 

0013 DC3 
COOS ENQ 
0006 ACK 

COSF UNDERSCORE 
013A OVERRUN ERROR 
C050 ACK SIZE" 
C028 XOFF SIZE 
005E XON SIZE 

0014 REG MAX 



EQU 160 Pascal declaration of size of misc. space 

EQU TEnp_SIZE-Q_BUFFER+AVAIL OFF 

EQU 17 ASCII CHARACTER 17 

EQU 19 ASCII CHARACTER 19 

EQU 5 ASCII CHARACTER 5 

EQU 6 ASCII CHARACTER 6 

EQU 95 ASCII CHARACTER 95 

EQU 314 receive buffer overflow error 

EQU 80 hysteresis for ENQ/ACK handshake 

EQU 40 when to send XOFF 

EQU BUFFER_SIZE-XOFF_SIZE 

EQU 20 maximum control/status register number (aaa) 
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PAGE 


13 [3.0] 12 


2t/8« 


21:34:03 RS 


232 DRIVERS -- INITIALIZE *** File name: 


RS *** 


520 








******* 


******** 


************************************************************** 




521 








* 








522 








* 


driver 


initializat ion 




523 








* 








524 








******* 


******** 


************************************************************** 




525 
















52S 




0000 


0002 


RS_RS_j 


NIT 


EQU * 




527 
















528 








* 








529 








* Pa: 


cal inte 


rface overhead 




530 








* 








531 


00000002 


205F 






nOVEB.L 


(SP)+,AO * get return address 




532 


00000004 


24SF 






MOVEfl.L 


(SP)+,A2 * get temp address 
C BDR(B2),A1 * get card address 




533 


00000006 


2?6A 


0020 




MOVEA.L 




534 


ooooooon 


4850 






PEA 


(SO) * restore return address 




535 








* 








536 








* fls: 


embler initialize entry point 
OM ENTRY: Bl and A2 are set to card address and 




537 








* 




538 








* 




temp space address (respectively) 




539 








* 








540 
















541 




0000 


OOOC 


BSM_INIT 


EQU * 




542 
















543 








* 








544 








« St< 


p transfers and Reset the card 




545 








* 








546 
















547 


oooooooc 


4EB9 
0000 


OOOO 




JSR 


BB0RT_I0 * stop transfers 




548 








X 




-- RESET CARD -- 




549 


00000012 


50E9 


0001 




ST 


RESET REG(Bl) * write to reg 1 
#70,05 * wait AT LEAST 25 us 




550 


00000016 


7046 






novEa 




551 








* 








552 








* Courr 


changed 


from 32 to 70 to allow for 16f1Hz processors JS 8/3/83 




553 








* 








554 


00000018 


S1C8 


FFFE 




DBRB 


DO,* * ( not yet timed — #32 was initial est.) 




555 
















556 








* 








557 








* 


global 


attribute initialization 




558 








* 








559 








* 




-- init queue descriptors -- 




560 


0000001C 


6100 


0B42 




BSR 


INIT QUEUE 




561 








* 




-- init pseudo registers -- 




562 


00000020 


422B 


0039 




CLR.B 


XIN BCT(A2) 




563 


00000024 


422B 


0038 




CLR.B 


IN TSR(B2) 
S E"RR0R(B2) 




564 


00000028 


42RB 


0034 




CLR.L 




S65 


0000002C 


422B 


003E 




CLR.B 


S M0DEM(A2) 




566 


00000030 


422B 


003F 




CLR.B 


S LINE(A2) 
C0"NNECTED(B2) 




567 


00000034 


4?2fl 


0030 




CLR.B 




568 


00000038 


422B 


003B 




CLR.B 


MODEM 0N(B2) 

IGNORE" P6(B2) (aaa) 




569 


0000003C 


422B 


0046 




CLR.B 




570 








* 




-- set flags -- 




571 


00000040 


157C 

003C 


0001 




MOVE.B 


#1,RECEIVING(B2) 




S72 


00000046 


167C 
003D 


0001 




MOVE.B 


#1,XMITTING(B2) 




573 












-- default characters -- 




PAGE 
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RS *** 


574 


OO000O4C 


157C 

0041 


0011 




MOVE.B 


#DC1,X0N„CHBR(A2) 




575 


00000052 


157C 
0042 


0013 




MOVE.B 


#0C3,X0FF_CHflR(B2) 




576 


00000058 


157C 
0043 


0005 




MOVE.B 


«ENQ,ENQ_CHAR(A2) 




577 


OOOOOOSE 


157C 
0044 


0006 




MOVE . B 


#BCK,BCK_CHBR(A2) 




578 


00000064 


157C 
0045 


005F 




novE.B 


•UNDERSCORE, CONV_CHAR (B2 ) 




679 
















580 








* 








581 








* Set 


default 


s from the switches (done after attribute initialization 




582 








* 




just in case the card is not completely reset already) 




583 








* 








584 








* 




-- set baud rate from switches -- 




585 


OO00OO6B 


700B 






rlOVEQ 


#10, DO * SET UP FOR 2400 BAUD (98644 DEFAULT) 
ID REG(A1),D6 * GET ID REG 




586 


OO00OO6C 


1C29 


0001 




hove.b 




587 


00000070 


0886 


0007 




BCLR 


#7TD6 * GET RID OF REMOTE BIT 




588 


00000074 


BC3C 


0002 




CrtP.B 


#2,D6 * IS THIS A 98626 ? 
INITBLL * IF NOT THEN USE DEFAULT 




589 


00000078 


6604 






BNE.S 




590 


OO00OO7A 


1029 


0005 




nOVE.B 


BAUD SU(B1),D0 * IF 98626 THEN read switches 




591 


OO00OO7E 


E308 




INITBU 


LSL.B 


#1,00" * multiply by two to get to words 
#$1E,D0 * mask 




592 


00000080 


0200 


001E 




ANDI.B 




593 


00000084 


4880 






EXT 


DO * 




594 








* 








595 


00000086 


4lFB 


0034 




LEA 


BAUD.AO * aO := pointer to baud table 
DO, BO * entry 




596 


0000008A 


DOCO 






ADDS 




597 








* 








598 


0000008C 


08E9 

0017 


0007 




BSET 


#7,LINE_C0NT(A1) * set DLAB to get to divisor latches 




599 


00000092 


1358 


0013 




MOVE . B 


(A0)+,DIV1(A1) * 
(A0),DIV0(A1) * 




600 


00000096 


1350 


0011 




MOVE.B 




601 
















602 
















603 








* 




-- SET LINE CHARACTERISTICS -- 




604 


0O00OO9H 


7003 






MOVEQ 


#3,00 * SET DEFAULTS FOR 98644 




605 


OO00OO9C 


BC3C 


0002 




CMP.B 


#2,D6 * CHECK IF 98626 




$06 


oooooono 


6604 






BNE.S 


SETALL * IF NOT USE OEFAULTS 




607 


OO000OA2 


1029 


0007 




HOVE.B 


LINE SU(B1),D0 * get handshake and line status defaults 




608 


OO000OR6 


1200 




SETfiLl 


nOVE.B 


OO.DT * 

#$3F,00 * mask and set default line status 

DO, LINE CONT(Bl) * (also restores dlab) 




609 


OOO0OOP.8 


700 


003F 




BNOI.B 




610 


OOOOOOAC 


1340 


0017 




MOVE.B 




611 








* 




-- SBVE HANDSHAKE -- 




612 


00000080 


0201 


OOCO 




ANOI.B 


#$C0,D1 * handshake is top two bits 




613 


00000OB4 


EA09 






LSR.B 


#5,01 * adjust it (for jump tables) 




614 


OO0OOOB6 


1541 


0040 




MOVE.B 


D1,S HRNDSH(A2) * save it 




615 
















616 


OOOOOOBA 


4E75 






RTS 






617 








* 








618 








* 


baud rate table (for switches) 




619 








* 








620 


ooooooec 


OCOO 




BAUD 


DC.U 


3072 * 50 Baud 




621 


00000OBE 


0800 






DC.U 


2048 * 75 




622 


OOOOOOCO 


0574 






DC.U 


1396 * 110 




623 


OO000OC2 


0476 






DC.U 


1142 * 134.5 




624 


000OOOC4 


0400 






DC.U 


1024 * 150 
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625 0OO0OOC6 0300 

626 000000C8 0200 

627 O0O0OOCA 0100 

628 OOOOOOCC 0080 

629 OOOOOOCE 0055 

630 00000000 C040 

631 00000002 002B 

632 00000004 0O20 

633 00000006 0015 

634 00000008 0010 

635 OOOOOODPI 0008 



32 DRIVERS -- 


INITIALIZE 




DC.U 


768 


* 


20C 


OC.U 


512 


* 


300 


DC.U 


256 


* 


60C 


DC.U 


128 


* 


120C 


DC.U 


85 


* 


180C 


DC.U 


64 


* 


240C 


DC.U 


4 3 


* 


360C 


DC.U 


32 


'. 


480C 


DC.U 


21 


* 


720C 


DC.U 


16 


* 


9600 


DC .U 


8 


* 


19200 
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638 *********************** *** ************************** ************************* 

639 * 

640 * read byte 

641 * 

642 ***************************************************************************** 
643 

644 0000 OODC RS RS RDB EQU » 

645 ' 

646 * 

647 * Pascal interface overhead 

648 * 

649 OOOOOOOC 20SF HOVER. L (SP)t,flO get return address 

650 OOOOOODE 265F tlOVEA.L. (SP +,A3 get VAR address 

651 OOOOOOEO 245F MOVEO.L SPH.A2 get temp address 

652 0OOO0OE2 226A 0020 rtOVEfi . L C ADR(H2),H1 get card address 

653 0OO00OE6 4850 PEA [SO) restore return address 

654 * 

655 * Card overhead (any of the three can do an ioescape) 

656 * 

657 0OO00OE8 6100 0770 BSR CONNECT make sure the card is active 

658 OOOOOOEC 6100 07EA BSR CHECK_ERR0R check for errors saved by ISRs 

659 OOOOOOFO 6100 0726 BSR CHECK_XFER_IN make sure no input transfers active 
660 

661 OOOO0OF4 6100 0810 BSR UAIT GET get character with wait 

662 O0O00OF8 1682 MOVE.B D2, (H3) return the character 

663 0OO00OFH 4E7S RTS 
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667 ***********************************************^ 



669 








* 




write byte 


670 








* 






671 








***** 


************************ 


672 














673 




0000 


OOFC 


RS, 


J>s_ 


UTB EQU * 


674 














675 








* 






676 








* 


Pascal interface overhead 


677 








* 






678 


OOOOOOFC 


20SF 








MOVEfi.L (SP)+,RO 


679 


OOOOOOFE 


161F 








MOVE.B (SP)+,D3 


680 


00000100 


24 5 F 








MOVEfi.L (SP)*,R2 


681 


00000102 


226R 


0020 






MOVER. L C BDR(fl2) ,fll 


682 


00000106 


48S0 








PER (F70) 


683 








* 






684 








* 


C 


rd overhead 


685 








* 






686 


00000108 


6100 


0750 






BSR CONNECT 


687 


OOOOOIOC 


6100 


07CR 






BSR CHECK ERROR 


688 


OOOOOUO 


6100 


070E 






BSR CHECK"JXFER_OUT 


689 














690 


00000114 


6100 


07E2 






BSR WHIT SEND 


691 
692 


00000118 


4E75 








RTS 



4^****K**;«**#**K*********:*******:« 



get return address 
get char to be written 
get temp address 
get card address 
restore return address 



autoconnect 

check for errors found by ISRs 

make sure no output transfers are active 



send the character 



695 








*************** 


************** 


696 








* 






697 








* 


read word 


698 








* 






699 








** 


*************************** 


700 














701 




0000 


0110 


RS 


_RS_RDU 


EQU * 


702 














703 


OOOOOllfl 


20SF 






MOVEfi.L 


(SPJt.RO 


704 


0000011C 


26SF 






MOVEfi.L 


SP)*,R3 


70S 


0000011E 


245F 






MOVEfi.L 


(SP1*,R2 

C RDR(R2) ,fil 


706 


00000120 


226P, 


0020 




MOVEfi.L 


707 


00000124 


4850 






PES 


(HO) 


708 








* 






709 








* 


Card overhead (any of the 


710 








* 






711 


00000126 


6100 


0732 




BSR 


CONNECT 


712 


0000012R 


6100 


07BC 




BSR 


CHECK ERROR 


713 


0000012E 


6100 


06E8 




BSR 


CHECK_XFER_IN 


714 














715 


00000132 


6100 


07D2 




BSR 


WRIT SET 


716 


00000136 


E14fi 






LSL.U 


*8,D2" 


717 


00000138 


6100 


07CC 




BSR 


URIT GET 


718 


00000 13C 


3682 






MOVE.U 


D2,(H3) 


719 


000001 3E 


4E75 






RTS 





*** File name: RS ** 

• a;************************* He**************** 



get return address 
get VAR address 
get temp address 
get card address 
restore return address 



make sure the card is active 

check for errors saved by ISRs 

make sure no input transfers are active 



get character with wait 
shift first character 
get second character 
return the wo rd 
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722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 



***** 



**** 



************ 



*** Fi 

1******** 



le name: RS ** 
**** 



* write word 

* 

******************** 

0000 0140 RS_RS_UTU EQU 



************ 



********************************** 



00000140 20SF 

00000142 361F 

00000144 245F 

00000146 226fl 0020 

0000014P 4850 



0000014C 6100 070C 

0000015C 610O 0786 

00000154 6100 06CR 

000001S8 E05B 

0OO0015A 6100 079C 

0OO0015E EOSB 

00000160 6100 0796 

00000164 4E75 



MOVEP.L (SP)*,R0 
MOVE.U (SP)t,D3 
MOVEB.L (SP)*,R2 
HOVER. L C FlOR(fl2) 
PER (ffO) 



get return address 
get word to be written 
get temp address 
get card address 
restore return address 



Card overhead (any of the three can do an ioescape) 



BSR 
BSR 
BSR 

ROR.U 
BSR 
ROR.U 
8SR 

RTS 



CONNECT 

CHECK_ERROR 

CHECK_XFER_OUT 

#8,D3 
UflIT SEND 
#8,05" 
UflIT SEND 



make sure the card is 
check for errors saved 
make sure no output tr 

position the first cha 
send it 
position the second ch 
send it 



active 
by ISRs 
ansfers are active 

racter 

aracter 
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750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
80S 
806 



********* 



**** 



:********* 



*************************** 



File name: RS *** 



********** 



A3 



* read status 
* 

* CONVENTION: 
* 
******************* 

0000 0166 RS_RS_R0S EQU * 

* Pascal Interface Overhead 



place to put the result (word sized) 
************************************************** 



00000166 205F 
00000168 265F 
0000016R 321F 
0000016C 245F 
0000016E 226R 0020 
00000172 4850 




SP)*,flO 

SP)+,R3 

SP)*,D1 

SP)*,R2 
. ADR(R2) ,R1 
(RO) 



get return address 
get VPR address 
get register number 
get temp address 
get card address 
restore return address 



* Check for legal registers and jump to correct register handler 



00000174 4A41 
00000176 6D3E 
00000178 B27C 0014 
0OO0017C 6E38 



0000017E 4253 
00000180 528B 

00000182 E349 
00000184 323B 1006 
00000188 4EFB 1.0O2 



0000018C 
0000018E 
00000190 
00000192 
00000194 
00000196 
00000198 
O0O0019S 
0000019C 
0000019E 
000001RO 
000001R2 
000001R4 
000001R6 
000001R8 
OOOOOlRfi 
O0O0O1RC 
000001RE 
000001(10 
000001B2 



OOOO 01 8C 
0030 
0036 
0O3C 

006E 
00D6 
OOER 
00F0 
0114 
012E 
0134 
013R 
0164 
0184 
018R 
0190 
0108 
IRE 
01B4 
OlBfl 
OlCO 



TST.U 
BLT.S 
CMP.W 
BGT.S 

CLR.U 
RODO.L 

LSL.U 
MOVE.U 

JMP 

STS TfiBLE 

DC.U 
DC.U 
DC.U 
DC.U 
DC.U 
DC .U 
DC.U 
DC .U 
DC.U 
DC.U 
DC.U 
DC.U 
DC.U 
DC.U 
DC.U 
DC.U 
DC.U 
DC ,U 
DC.U 
DC.U 



Dl 

STS ERROR 

»RE5 nfiX.Dl 

sts_f;rror 

#1,A3 

#1,01 

STS TfiBLE(Dl),Dl 

STS TfiBLE Dl 



EQU * 
STS_0 
STS 1- 
STS 2 
STSJ 
STS 4 
STS_5 
STS 6 
STS 7 
STSJ 
STS 9 
STS_10 
STS 11 
STS 12 
STS 13 
STS_14 
STS 15 
STS_16 
STS 17 
STS 18 
STS 19 



check for negative register number 
if so goto common ioescape routine 
check for too large register number 



clear the top half of the return word 
point a3 to lower half byte of return word 

get ready for (word) table jump 
get offset from status table 
do the indexed jump 



STS TfiBLE 
STS TABLE 
STS~TRBLE 
STS TABLE 
STS TRBLE 
STS TABLE 
STS TRBLE 
STS'TRBLE 
STS TRBLE 
STS TRBLE 
STS" TfiBLE 
STS TfiBLE 
STS TfiBLE 
STS_TRBLE 
STS^TABLE 
STS_JflBLE 
STS TRBLE 
STS_TABLE 
STSJffiBLE 
STS_THBLE 



ID reg 

Interr 

Busy b 

Baud r 

Charac 

Modem 

Data i 

Option 

Interr 

Interr 

UflRT S 

Modem 

Connec 

Hardwa 

Error 

Cur ren 

Cur ren 

Curren 

Cur ren 

Curren 



ister 
upt stat 
its regi 
ate 

ter cont 
cont rol 
n regist 
al circu 
upt Enab 
upt Caus 
tatus re 
Status r 
t/Discon 
e hands 
status r 
t Xon Ch 
t Xoff C 
t ENQ Ch 
t flCK Ch 
t FE/PE 



us register 
ster 



ol register 
agister 



s register 
Mask register 
register 
ster 
ister 

ct register 
ke register 
ister 
acter 
racter 
acter 
acter 
nvert Character 



1-335 



809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 

857 
858 
859 
860 



[3.0] 12/26/84 

000001B4 01C6 

0000 
OO0001B6 7013 
00000188 6000 



21 :54:08 RS232 DRI 

DC.U 

0186 STS^ERROR 

MOVEQ 
0674 BRA 



VERS -- STATUS 

STS_20-STS_TABLE 

EQU « 

#BAD ROS,00 

IOESCBPE 



*** File name: RS 



Ignore FE/PE 

error number is passed in dO 



000001BC 
OOOOOICO 


OOOO 

ien9 

4E7S 

oooo 

J6B9 
4F7S 

oooo 

1E29 

CJ3C 
ECOF 


01BC 
0001 

01C2 
0003 

01C8 

COO 3 
0080 


STS_0 


nOVE.B 
RTS 


EQU * 
ID_REG(fil), (A3) 


-- ID register -- 
get id from card 


000001C2 
OO0001C6 


STS_1 


MOVE.B 
RTS 


EQU * 
INTR_SW(A1) , (B3) 


-- Interrupt Status -- 
get result from card 


OO0001C8 
OOOOOICC 
OO0O01OO 


STS_2 


MOVE.B 

AND.B 

LSR.B 


EQU » 

INTR SU(A1),D7 

#$80, D7 

#6,D7 


-- "Busy Bits" -- 

--> interrupt enabled bit (1) 

move it to correct position 


00000102 
000001D6 
00000108 
OOOOOIOC 


4RAA 
6606 
4f)AB 
6704 


0024 
0028 




TST.L 
BNE.S 
TST.L 
BEQ.S 


BUFI 0FF(B2) 
SET BIT 
BUFtJ 0Ff(B2) 
0O_BTT_4 


--> transfer active bit (0) 
neither transfer is active 


000001DE 


OOOO 
08C7 


01DE 

OOOO 


SET BIT 

BSET 


EQU * 
«0,D7 


set transfer active bit 


000001E2 
000001E6 
000001E8 


OOOO 
4A2B 
6604 
08C7 


01E2 
003D 

0004 


DO_BIT_ 


4 

" TST.B 
BNE .S 
BSET 


EQU * 

XMITTING(B2) 
DO BIT 5 
#4,D7 


--> not transmitting bit (4) 


OOOOOIEC 
OOOOOIFO 
OO0001F2 


OOOO 

4fl2B 
6604 
08C7 


01EC 
003C 

OOOS 


DO_BIT. 


5 
" TST.B 

BNE.S 
BSET 


EQU » 

RECEIVING(H2) 
END STS 2 
#S,D"7 


--> not receiving bit (5) 


000001 F6 
0O0001F8 


OOOO 

'687 
4E75 


01F6 


end_st: 


2 

MOVE.B 

RTS 


EQU * 
07, (B3) 


store away result 



OOOO 
000001FA 538B 



000001FC 1E29 
00000200 4229 

00000204 08E9 
0017 
0000020B 1029 
0000020E L148 
00000210 1029 
00000214 08B9 
0017 



01FB STS 3 



0003 
0003 



0007 
O013 



0011 
0007 



SUBQ.L 

Get divisor 

MOVE.B 
CLR.B 

BSET 

MOVE.B 
LSL.UI 
MOVE.B 
BCLR 



EQU « 

«1,A3 



-- Baud rate -- 

this routine returns a word 



(a critical section since it uses DLA8) 



INTR SU(A1),D7 
INTR_SU(fll ) 

#7,LINE_C0NT[B1) 

0IV1 (Bl) ,D0 
#8, DO 

DIVO(Bl) ,D0 
#7,LINE_C0NT(fll) 



save card interrupt status 
disable interrupts 

get access to divisor latches 

get upper half of divisor 

get lower half of divisor 

reset DlflB so normal operation can resume 
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MOVE.B D7,INTR_SU(fil) 

* Check for special divisors which 

TST.U DO 
BNE.S IS8S 

IS85 CMP.U #85,00 
BNE.S IS77 
MOVE.U #1800, (A3) 

IS77 CMP.U #77,00 
BNE.S IS43 
MOVE.U #2000, (B3) 

IS43 CMP.U #43, DO 
BNE.S IS21 
MOVE.U #3600, (A3) 

IS21 CMP.U #21, DO 

BNE.S REGULAR 
MOVE.U #7200, (A3) 
RTS 

REGULAR ' " EQU « 

* 

* Compute baud rate by: baud_rate 
* 

MOVE.L #153600, Dl 

BSR RDIVU 
MOVE.U 01, (B3) 
RTS 



»** File name: RS *»* 



862 


0O0O021B 


1347 


0003 


863 








864 








865 








866 


0000021E 


4B40 




867 


00000220 


6602 




868 


00000222 


4E7S 




869 


00000224 


BC7C 


0055 


870 


00000228 


66C6 




871 


OO00022A 


3fcEC 


0708 


872 


OO00022E 


4E75 




873 


00000230 


EC7C 


004D 


874 


00000234 


6606 




875 


00000236 


iSBC 


07DO 


876 


0O00023A 


4E75 




877 


0000023C 


BC7C 


002B 


878 


00000240 


6606 




879 


00000242 


::eec 


OE10 


880 


00000246 


4E75 




881 


00000248 


B07C 


001 S 


882 


0000024C 


6606 




883 


0000024E 


!6BC 


1C20 


884 


00000252 


4E75 




885 




OOOO 


0254 


886 








887 








888 








889 


000002S4 


223C 

5800 


0002 


890 


OO0O02SB 


6100 


0SE8 


891 


OO00025E 


3681 




892 


00000260 


4E75 




893 








894 




OOOO 


0262 


895 


00000262 


1E29 


001 1 


896 


00000266 


CE3C 


003F 


897 








898 


0000026B 


1C2B 


0040 


899 


0000026E 


EBOE 




900 








901 


00000270 


8E06 




902 


00000272 


1687 




903 


00000274 


4E75 




904 








905 




OOOO 


0276 


906 


00000276 


16B9 


0019 


907 


0000027B 


4E7S 




908 








909 




OOOO 


027C 


910 


0000027C 


6100 


065B 


911 








912 


00000280 


6100 


07EE 


913 


00000284 


6714 




914 








915 


00000286 


1B29 


0003 


916 


OO00028B 


4229 


0003 


917 









restore interrupts 
division is inexact 

- infinite baud rate ? 

return zero baud rate 

- 1800 baud ? - 

- 2000 baud ? - 

- 3600 baud ? - 



7200 baud ? 



(freq/16) / divisor 



do the division 

store away the answer (dl) 



MOVE . B 
BND.B 

MOVE.B 
LSL .B 

OR. 8 

MOVE.B 

RTS 



EQU * 

LINE C0NT(H1),07 

#$3F7D7 

S HBNDSH(B2),D6 
#5~,D6 

06, D7 
07, (A3) 



-- Character control -- 
get line control 
remove top two bits 

get handshake 

move it to top two bits 

combine to form register result 



MOVE.B M0DEM_C0NT(B1), (A3) 
RTS 



-- Modem control -- 

read directly from the UART 



BSR 
BEQ.S 



MOVE.B 
CLR.B 



EQU * 
CHECK_ERROR 



QUEUE EMPTY 
READ OfiRT 



INTR SU(B1) 
INTR_SU(B1) 



-- Data in -- 

check for errors trapped by ISRs 



read from buffer if not empty 
else read directly from UART 



save interrupt state 

disable card interrupts for critical sect 



1-336 
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918 
319 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
9 35 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 



0000028E 6100 0688 
00000292 1682 



8SR 
MOVE.B 



00000294 1345 

00000298 4E7S 

0000 

0000029R 16S9 

0000029E 4E75 



oooo 

7E00 
1C29 
0886 
BC3C 
6706 
1E29 
E80F 
1687 
4E7S 



0003 



MOVE.B 
RT5 

029A READJJART 

0011 tlOVE.B 
RTS 



02A0 STS_7 



GET CHAR 
D2.TB3) 



D5,INTR_SU(A1) 



EQU * 
DATA(Al), (A3) 



0001 
0007 
0042 



000002110 
000002A2 
000002A6 
000002AR 
000002RE 
00000260 
000002B4 
000002B6 
000002B8 



OOOO C'2Bfl STS 8 
000002BR 1699 0013 
000002BE 4E7S 



MOVEQ 

MOVE.B 

BCLR 

CMP.B 

BEQ.S 

MOVE.B 

LSR.B 

MOVE.B 

RTS 



EQU « 

#0,D7 

ID REG(Al) ,D6 

#7,DS 

#66,06 

BAUD" SUIfll ),07 

#4,D7 

D7, (93) 



MOVE.B 
RTS 



EQU * 
INTR_EN(A1), (A3) 



0000 
00000200 16A9 
000002C4 4E75 



0000 
1E29 
♦ 229 



000002C6 
000002CA 



000002CE 
000002D2 



1C2B 
422fi 



02C0 
0015 



02C6 
0003 
0003 

003F 
00 3 F 



MOVE . B 
RTS 



EQU * 
INTR_ID(A1), (A3) 



MOVE.B 
CLR.B 



MOVE.B 
CLR.B 



EQU * 

INTR_SU(fll),D7 

INTR_SU(fll) 

S LINE fR2) ,D8 
SJ.INE(A2 



0OO002CI6 1347 0003 



MOVE.B D7,INTR_SUI(R1) 



»*» File name: RS 
(get character with handshake) 

restore interrupt state 



-- Optional circuits -- 
RETURN IF 98644 
GET ID REG 
CLERR REMOTE BIT 
BRANCH IF 98644 

read from the card hardware 

right justify (and get rid of baud info) 



-- interrupt enable mask -- 
read directly from the URRT 



-- interrupt cause -- 

read directly from the URRT 



000002DR 
000002DE 

000002E2 
000002E6 
000002E8 

000002EC 
000002EE 



000002FO 
000002F4 



000002F8 
000002FC 



00000300 
00000304 



CC3C 
8C29 

6100 
$704 
08C6 
0000 
1686 
4E75 

OOOO 
1E29 
4229 

1C2S 
422R 

1347 

CC3C 



C01E 
C01B 



COOO 
C2EC 



02 FO 

0003 
0003 

003E 

003E 



AND.B 
OR.B 

BSR 
BEQ.S 
BSET 
T 
MOVE.B 
RTS 



#$1E,D6 
LINE_STRT(fll ) ,06 

QUEUE EMPTY 
OONT SET 
*0,D6" 
EQU » 
D6, (A3) 



-- URRT status — 

save card interrupt condition 

disable interrupts for critical section 

get accumulated line status 

reset it since it is read destructive 

restore interrupts (end critical section) 

only use the read destructive bits 
combine it with the current status 

use internal buffer to determine bit 

set receive buffer full bit 



MOVE.B 
CLR.B 



MOVE.B 
CLR.B 



MOVE.B 
AND.B 



EQU » 

INTR SU'fll) ,07 

INTR_SUl|fll) 

S M0DEM'A2),D6 
S_M0DEM(A2j 

D7,INTR__SU(R1) 

#$0F,D6 



-- modem status -- 

save card interrupt condition 

disable interrupts for critical section 

get accumulated copy of modem status 
clear it since it is read destructive 

restore interrupts (end critical section) 

only use the read destructive bits 
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975 
97$ 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 

992 
993 
994 
995 



1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 



OR.B MODEM STRT(Al) , 

MOVE.B D6,(A3") 

RTS 



00000308 8C29 001D 
0000030C 1686 
00O0030E 4E7S 

* 

OOOO 0310 STS_12 EQU » 
00000310 16AR 003A MOVE.B CONNECTED (R2) , (A3) 
00000314 4E7S RTS 



*** File name: RS **« 
combine it with the current status 



— connect/disconnect -- 
get the pseudo- registe r 



OOOO 0316 STS_13 EQU » 
00000316 16RA 003B MOVE.B MODEM 0N(R2),(R3) 
0OO0031R 4E75 RTS 



hardware handshake register 



OOOO 031C STS_14 EQU « 
0OO0031C 1E29 0003 tlOVE.B INTR_SUifll ) ,D7 
00000320 4229 0003 CLR.B I NT R1_SU ( A 1 ) 



00000324 376R 0036 
FFFF 



0000032A 42RR 0034 



0000032E 1347 0003 
00000332 4E75 



MOVE.U S_ERR0R*2(R2),-1 (A3) 



CLR.L S_ERR0R(A2) 



MOVE.B D7.INTR Su)(Al] 
RTS 



OOOO 0334 STS„15 EQU * 
00000334 16AA 0041 MOVE.B XON CHAR (A2) , (R3) 
00000338 4E7S RTS ~ 



-- current error status -- 
save interrupt state 
disable interrupts 

get (lower word of) the error 

this is a word register! 
the read is destructive 

restore interrupt state 

-- Current Xon character -- 



OOOO 033P, STS_16 EQU » 
00O0033A 16AA 0042 MOVE.B XOFF CHAR (A2) , (A3) 
0OO0033E 4E7S RTS 



-- Current Xoff character 



OOOO 0340 STS 17 EQU * 

00000340 16AA 0043 MOVE.B ENQ CHRR (R2) , (A3) 
00000344 4E7S RTS 



Current ENQ character 



OOOO 0346 STS 18 EQU » 
00000346 16AR 0044 ~ MOVE.B ACK CHRR (R2) , (A3) 
0000034A 4E75 RTS 



-- Current RCK character 



OOOO 034C STS_19 EQU « 
0000034C 16RR 0045 MOVE.B CONV CHRR (R2 ) , (A3 ) 
00000350 4E75 RTS 



Current FE/PE convert character 



OOOO 0352 STS_20 EQU » 
00000352 16AR 0046 MOVE.B IGNORE PE(A2),(A3) 
00000356 4E75 RTS — 



Ignore FE/PE (aaa 
(aaa 
(aaa 



1-337 



PAGE 2 


[3.0] 12 


Z26/84 21: 


34:0S 


RS232 DRIVERS -- CONTROL 


*** File name 


RS «*» 


1023 








**** 


*** ******* 


*************************************************************** 




1024 








* 










102S 








* 


write 


cont rol 






1026 


























1027 








* 


CONVENTION: CO.LJ — value of 


the control 




1028 








* 










1029 








************** 


*************************************************************** 




1030 


















1031 




0000 


0358 


RS_RS WTC 


EQU « 






1032 


















1033 








* 










1034 








* 


Pascal Interface Overhead 






1035 








* 










1036 


















1037 


00000358 


20SF 






MOVER 


L (SP)+,RO 


get return address 




1038 


000003SR 


301F 






MOVE.L. 


(SP)*,DO 


get value 




1039 


0000035C 


321F 






MOVE.L 


(SP *,D1 


get register number 




1040 


0000035E 


245 F 






MOVER 


L SP)*,A2 


get temp address 




1041 


00000360 


226R 


0020 




MOVER. 


L C RDR(A2),fll 


get card address 




1042 


00000364 


4850 






PER 


(HO) 


restore return address 




1043 


















1044 








* 










1045 








* 


Check for 


legal registers and jump to correct register handler 




1046 








* 










1047 


















1048 


00000366 


4A41 






TST.U 


01 


check for negative register number 




1049 


00000368 


66 3 R 






BMI .S 


CONT ERROR 


if so goto common ioescape routine 
check for too large register number 




1050 


0000036R 


B27C 


0014 




CMP.U 


♦ REG MRX.D1 




1051 


0000036E 


6E34 






BGT.S 


CONT_ERROR 






1052 


















1053 


00000370 


E349 






LSL.U 


tfl.Dl 


get ready for (word) table jump 




1054 


00000372 


323B 


1006 




MOVE.L, 


CONT TRBLE(D1),D1 


get offset from status table 




1056 


00000376 


4EFB 


1002 




JMP 


CONTJTRBLE(Dl) 


do the indexed jump 




1056 


















1057 




0000 


037H 


CONT 


TRBLE 


EQU * 






1058 


0000037R 


00 30 






DC.U 


CONT 0-CONT TRBLE 


Reset 




1059 


0000037C 


00J8 






DC.U 


CONT 1-CONT TABLE 


Break 




1060 


0000037E 


0023 






DC.U 


CONT ERROR-CONT TRBLE 


Register 2 Undefined 




1061 


00000380 


0062 






DC.U 


CONT 3-CONT TRBUE 


Baud rate 




1062 


00000382 


009E 






DC.U 


CONT 4-C0NT TABLE 


Character control register 




1C63 


00000384 


0032 






DC.U 


CONT 5-CONT TABLE 


Modem control register 




1064 


00000386 


0038 






DC.U 


CONT 6-CONT TRBLE 


Data out register 




1065 


00000388 


00 = 2 






DC.U 


CONT 7-CONT TRBLE 


Optional circuits register 




1066 


0000038R 


00?B 






DC.U 


CONT ERROR-CONT TRBLE 


Register 8 Undefined 




1067 


0000038C 


002A 






DC.U 


CONT ERROR-CONT TRBLE 


Register 9 Undefined 




1068 


0000038E 


0C2S 






DC.U 


CONT ERROR-CONT TABLE 


Register 10 Undefined 




1069 


00000390 


CO OR 






DC.U 


CONT ERROR-CONT TABLE 


Register 11 Undefined 




1070 


00000392 


00F8 






DC.U 


CONT 12-CONT TABLE 


Connect/Disconnect register 




1071 


00000394 


010C 






DC.U 


CONT 13-CONT TABLE 


Hardware handshake register 




1072 


00000396 


one 






DC.U 


CONT 14-CONT TABLE 


Soft reset register 
Redefine Xon Character 




1073 


00000398 


0126 






DC.U 


CONT 15-CONT TABLE 




1074 


0000039B 


012C 






DC.U 


CONT 16-CONT TRBLE 


Redefine Xoff Character 




1075 


0000039C 


0132 






DC.U 


CONT 17-CONT TABLE 


Redefine ENQ Character 




1076 


0000039E 


0138 






DC.U 


CONT 18-CONT TRBLE 


Redefine RCK Character 




1077 


000003R0 


013E 






DC.U 


CONT 19-CONT TRBLE 


Redefine FE/PE convert Character 
Ignore FE/PE <aaa> 




1078 


000003(52 


0144 






DC.U 


CONT 20-CONT TABLE 




1079 
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34:08 


RS232 DRIVERS -- CONTROL 


*** File name: 


RS *** 


1080 




0000 


03R4 


CONT 


ERROR 


EQU * 






1081 


000003R4 


7013 






MOVEQ 


#BRD RDS.00 






1082 


000003(16 


6000 


0486 




BRR 


lOESCRPE 


error number is passed in dO 




1083 


























1084 




0000 


03RR 


CONT 





EQU « 


-- reset -- 




1085 


000003RR 


4 0.40 






TST.U 


DO 






1086 


000003RC 


660-0 


FC5E 




BNE 


ASM_INIT 


initialize if any bit is set 




1087 


000003B0 


4E7S 






RTS 








1088 


























1089 




0000 


03B2 


CONT 


1 


EQU * 


-- send break -- 




1090 


000003B2 


40i0 






TST.U, 


DO 






1091 


000003B4 


6724 






BEO.S 


EXIT CI 


no-op if control value is zero 




1092 








* 










1093 








* 


set and hold break for 400ms 






1094 








* 










1095 


000003B6 


08E9 

0017 


0006 




BSET 


♦6,LINE_C0NT(fil) 


set the break bit in URRT 




1096 


000003BC 


2F3C 

lfMO 


0006 




MOVE.L 


♦400000, -(SP) 


USE DELAY ROUTINE ttt JS 8/3/83 




1097 




00 00 


03C2 


URIT 


BRERK 


EQU » 






1098 


000003C2 


4EB9 
0000 


0000 




JSR 


DELAY_TIMER 


CALL DELAY ROUTINE ttt JS 8/3/83 




1099 








* 










1100 








* 


release br 


eak and wait 60ms for br 


eak to clear 




1101 








* 










1102 


000003C8 


08R9 
0017 


0006 




BCLR 


*6,LINE_C0NT(R1) 


clear the break bit in URRT 




1103 


O000O3CE 


2F3C 
EF160 


0000 




MOVE . L 


•60000, -(SP) 


SETUP FOR DELAY ROUTINE ttt JS 8/3/83 




1104 




0000 


03D4 


URIT 


BREAK2 


EQU * 






1105 


00000304 


4EB9 
0000 


0000 




JSR 


DELRY_TIMER 


CALL DELAY ROUTINE ttt JS 8/3/83 




1106 
1107 


OO0O03DR 


4E75 




EXIT 


_C1 RTS 
























1108 




0000 


03DC 


CONT 


_3 


EQU « 


-- Baud rate -- 




1109 








* 










1110 








* 


check for 


overflow -- a baud rate 


with a resulting divisor more than 




1111 








* 




sixteen bits 


long. 




1112 








* 


(underflow 


is not checked because 


it cannot be generated with a word 




1113 








* 


length baud rate) 






1114 








* 










1115 


0000030C 


BO''C 


0005 




CMP.U 


#5, DO 


5 is the lowest baud rate possible 




1116 


000003E0 


6C00 


0008 




BGE 


CRLC_DIV 






1117 


















1118 


000003E4 


7017 






MOVEQ 


#10 fllSC.DO 


value out of range -- io misc error 




1119 


000003E6 


6000 


0446 




BRR 


IOESCAPE 






1120 








* 










1121 








* 


calculate 


iivisor : div = (freq/16) / baud_rate 




1122 








* 










1123 




0000 


03ER 


CALC 


CIV 


EQU » 






1124 


000003ER 


223C 

5800 


0002 




MOVE.L 


♦153600,01 


dl := freq/16 




1125 


000003FO 


6100 


0452 




BSR 


RDIVU 


dl.w := dl.l / dO.w ( freq/16 / baud ) 




1126 








* 










1127 








* move the d 


wisor to hardware (critical section: uses DLflB) 




1128 








* 










1129 


000003F4 


1E29 


0003 




MOVE.B 


INTR_SU(R1) ,D7 


save card interrupt state 


1-338 
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1130 000003F8 4229 0003 CLR.B INTR SU(B1) disable card interrupts 
1131 

1132 000003FC 08E9 0007 BSET #7, LINE CONT(Al) set DLAB to get access to divisor latches 

0017 

1133 00000402 1341 0011 MOVE.B 01,DIV0[fU) set lower half of divisor latch 

1134 00000406 E049 LSR.U #8,01 

1135 00000408 1341 O013 MOVE.B D1,DIV1(A1) set upper half of divisor latch 

1136 0OOO04OC 0809 0007 BCLR #7, LINE CONT(Bl) clear DLAB for normal use 

0017 
1137 

1138 00000412 1347 O0O3 MOVE.B D7.INTR SU(fil) restore card interrupt state 
1139 

1140 00000416 4E7S RTS 

1141 » - 

1142 0000 0418 C0NT_4 EQU « -- Character Control -- 

1143 00000418 1E00 MOVE.B D0,D7 save a copy of control value 
1144 

1145 00O0041A C03C O03F AND.B #$3F,D0 use only bottom 6 bits 

1146 0OO0041E 1340 0017 MOVE.B DO, LINE CONT(Al) for line control 
1147 

1148 00000422 CE3C 00C0 AND.B #JC0,D7 handshake is top two bits 

1149 00000426 EfiOF LSR.B #5 , D7 shift it for later use 

1150 00000428 BE2A 0040 CMP.B S HANDSH (A2) ,D7 if handshake changed 

1151 0000042C 671C BEQ.S EX"IT_C4 
1152 

1153 00O0042E 1C29 0003 MOVE.B INTR_SU (HI ) , D6 save interrupt state 

1154 00000432 4229 0003 CLR.B INTR_SU(A1) disable interrupts 
1155 

1156 00000436 1547 0040 MOVE.B D7,S HANDSH(A2) save new handshake 

1157 0000043A 157C 0001 MOVE.B #1 , RECEIVING (A2 ) \ 

003C 

1158 00000440 157C 0001 MOVE.B #1 ,XMITTING(A2) / reset the handshake flags 

003D 
1159 

1160 00000446 1346 0003 MOVE.B D6.INTR SUI(Al) restore interrupt state 

1161 0OOO044A 4E7S EXIT_C4 RTS 

1162 « - 

1163 0O0O 044C CONT 5 EQU » -- modem control -- 

1164 0000044C 1340 0019 MOVE.B DO, MODEM CONT(Al) write directly to UART 

1165 00000450 4E7S RTS 

1166 * 

1167 0000 0452 CONT 6 EQU « -- Data out -- 

1168 00000452 6100 0484 BSR CHECK ERROR check for errors trapped by ISRs 
1169 

1170 00000456 1340 0011 MOVE.B 00,0ATA(A1) write directly to JBRT 

1171 0000045B 4E75 RTS 

1172 * - - - 

1173 0000 04SC C0NT_7 EOU » -- Optional Circuits -- 

1174 0OO004SC 1C29 0001 MOVE.B ID_REG(B1 ) ,06 GET ID REG 

1175 00000460 0886 0007 BCLR «7,D6 CLEAR REMOTE BIT 

1176 00000464 BC3C 0042 CMP.B #66, D6 IS THIS A 98644 7 

1177 00O00468 6706 BEQ.S CONT 7R VES, NO OP 

1178 00O0046A E908 LSL.B #4, DO" left justify 

1179 0000046C 1340 0005 MOVE.B 00, BAUD SU(fll) write directly to card hardware 

1180 00000470 4E75 CONT 7R RTS 

1181 *---' 

1182 0000 0472 C0NT_12 ECLU « -- connect/disconnect -- 
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1183 00000472 4A00 TST.B DO check for d0=0 

1184 00000474 6700 0408 BEQ DISCONNECT disconnect will do return 

1185 00000478 B03C 0001 CMP.B #1,D0 

1186 0000047C 6700 03DC BEQ CONNECT connect will return 

1187 0000 0480 VAL_ERR EQU « 

1188 00000480 7017 MOVEQ #10 MISC.DO illegal value for register 

1189 00000482 6000 03AA BRA IOESCAPE 

1190 « 

1191 0000 0486 C0NT_13 EQU * -- hardware handshake -- 

1192 00000486 4A00 TST.B DO check for too small value 

1193 00000488 6DF6 8LT.S VPL ERR (located in cont 12) 

1194 0000048A B03C 0001 CMP.B #1,150 check for too large value 

1195 0000048E 6EF0 BGT.S VAL ERR 

1196 00000490 1S40 003B MOVE.B DO, F10DEM_0N[A2 ) assign modem flag 

1197 00000494 4E75 RTS 

1199 0000 0496 C0NT_14 EQU * -- soft reset -- 

1200 00000496 4A40 TST.U DO any bit will do reset 

1201 00000498 6704 BEQ.S EXIT 14 zero value does nothing 
1202 

1203 0000049A 6100 03FA BSR SOFT RESET 

1204 0OO0049E 4E7S EXIT 14 RTS 

1205 * 

1206 0000 04H0 CONT 15 EQU « — redefine Xon character -- 

1207 000004AO 1540 0041 MOVE.B 00, XON CHAR(A2) 

1208 000004(14 4E75 RTS 

1209 * 

1210 0000 04H6 CONT 16 EQU * -- redefine Xoff character -- 

1211 000004(16 1540 0042 - MOVE.B 00, XOFF CHAR(A2) 

1212 000004HA 4E7S RTS 

1213 » - - - -- 

1214 0000 04AC CONT 17 EQU » — redefine ENQ character -- 

1215 000004HC 1540 0043 MOVE.B DO, ENQ CHPR(A2) 

1216 000004BO 4E7S RTS 

1217 « - - - - 

1218 0000 04B2 CONT 18 EQU * -- redefine ACK character -- 

1219 000004B2 1540 0044 MOVE.B DO, ACK CHAR(A2) 

1220 000004B6 4E7S RTS 

1221 * - - - -- 

1222 0000 04B8 CONT 19 EQU * -- redefine FE/PE convert character -- 

1223 000004B8 1540 0045 MOVE.B DO,C0NV CHAR(A2) 

1224 000004BC 4E7S RTS 

1225 * --- - - 

1226 0000 04BE C0NT_20 EQU * -- Ignore PE/FE -- (aaa) 

1227 000004BE 4H0O TST.B DO check for too small value (aaa) 

1228 000004CO 6D0C BLT.S VAL ERR2 (aaa) 

1229 000004C2 B03C 0001 CMP.B #1,D~0 check for too large value {aaai 

1230 000004C6 6E06 BGT.S VAL ERR2 (aaa) 

1231 000004C8 1540 0046 MOVE.B DO, IGNORE PE(A2) assign modem flag (aaa) 

1232 000004CC 4E75 RTS (aaai 

1233 0000 04CE VftL_ERR2 EQU * (aaai 

1234 000004CE 7017 MOVEQ #10 MISC.DO illegal value for register(aaa) 

1235 000004DO 6000 03SC BRA IOESCAPE ' (aaa) 



1-339 



1269 

1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 



******** 



******************* 

* interrupt service routine 
********************************** 

0000 04D4 RS_RS_ISR EQU » 

* pascal interface overhead 
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1238 
1233 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 



INTERRUPT SERVICE ROUTINES 



»** File name: RS 



000004D4 205F 

000004D6 245F 

000004D8 22SA 0020 

000004DC 4850 



000004DE 1029 0015 
000004E2 0800 0000 
000004E6 6702 
000004E8 4E75 



MOVES. L (SP) *, P10 

MOVER. L (SP)+,A2 

MOVER. 1 C ADR(A2),A1 

PER (HO) 



verify there is an interrupt 



MOVE.B INTR I0(A1),D0 

BTST ttO.DO" 

BEQ.S INTR EXIST 
RTS 



get return address 
get temp address 
get card address 
restore return address 



get interrupt cause 

make sure an interrupt is pending 



no interrupt- 
jump to appropriate interrupt handler 



0000 04EA INTR EXIST EQU « 
000004EB 157C 0001 ~ MOVE.B #1,IN ISR(A2) 
0038 



000004FO 4880 
000004F2 303B 0006 
000O04F6 4EFB 0002 

0000 04FA 
000004FA 001A 
000004FC 0038 
000004FE 0000 
00000500 0008 



EXT.U DO 

MOVE.W INTR_TRBLE(D0),D0 

JMP INTR_TABLE(DO) 

_TA8LE EQU » 

DC.U MODEM INTR-INTR TABLE 

DC.U OUTPUT INTR-INTR" TABLE 

DC.U INPUT TNTR-INTR TABLE 

DC.U ERROR~INTR-INTR TABLE 



mark isr processing 



(get appropriate address) 
(jump to the proper case) 



modem change interrupt 
output empty interrupt 
input available interrupt 
error interrupt 
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File name : RS *** 



1280 








* 






1281 








* Cr 


ec k f o r 


possible unexpected 


1282 








* 


(differ 


;nt for each type o 


1283 








* 


i n t e r r u 


Dt . 


1284 














1285 




0000 


0502 


ERROR. 


INTR 


EQU » 


1286 


00000502 


1029 


001B 




MOVE.B 


LINE STRT(A1),D0 


1287 


00000506 


812A 


003F 




OR.B 


DO,S LINE(A2) 


1288 


0000050A 


C8fi8 

co:3 


0002 




BCLR 


#2,IRTR_EN(A1) 


1289 


O000OS1O 


6000 


01C0 




BRA 


END_ISR 


1290 














1291 




0000 


0514 


MODEM, 


INTR 


EQU « 


1292 


00000514 


4A2A 


003B 




TST.B 


MODEM 0N(A2) 


1293 


00000518 


67C6 






BEQ.S 


ABORT MOCEM 


1294 


0000051B 


2E2R 


0028 




MOVE . L 


BUFO 0"FF(A2),D7 


1295 


0000051E 


6622 






BNE.S 


XFER_OUT 


1296 














1297 




0000 


OS20 


AB0RT_ 


MODEM 


EQU * 


1298 


00000520 


1029 


001D 




MOVE.B 


MODEM STAT (Al ) , DO 


1299 


00000524 


81 2A 


003E 




OR.B 


DO,S H0DEn(A2) 


1300 


00000528 


08F9 
0013 


0003 




BCLR 


»3,lRTR_EN(fll) 


1301 


0000052E 


6000 


01A2 




BRA 


END_ISR 


1302 














1303 




0000 


0532 


OUTPUT 


INTR 


EQU » 


1304 


00000532 


2F2A 


0028 




MOVE.L 


BUFO 0FF(A2),D7 


1305 


00000536 


660A 






BNE.S 


XFERJ3UT 


1306 














1307 


00000538 


08A9 

0C13 


0001 




BCLR 


*1,INTR_EN(A1) 


1308 


0000053E 


6000 


0192 




BRfl 


END_ISR 



clear the interrupt (by reading line status) 

save line status for user 

disable interrupts since it should not happen 



modem handshake on? 

-- no abort 
output transfer active? 

-- yes do transfer 



clear the interrupt (by reading modem status) 

save modem status for user 

disable interrupt so it won't happen again 



output interrupt transfer active 
-- yes do t ransfer 



-- no disable interrupt 



1-340 
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RS232 DRIVERS — INTERRUPT SERVICE 


ROUTINES **« File name: RS 


*»* 


13)0 








s 










1311 








* 


Do the output interrupt transfer 






1312 








* 


(but on 


ly if the THRE and the modem lines are high) 




1313 








* 










1314 


















131S 




0000 


0542 


XFER 


OUT 


EQU « 






1316 


00000542 


2647 






MOVER. L 


D7.B3 


a3 := buffer control block 




1317 


00000544 


1E29 


00 IB 




MOVE.B 


LINE STAT(fll ),D7 


check for THRE 




1318 


00000548 


8F2B 


00 3 F 




OR.B 


D7,S LINE(R2) 


save line status for user 




1319 


OOO00S4C 


0807 


0005 




BTST 


#5,DT 






1320 


00000550 


6700 


0180 




BEQ 


END_ISR 






1321 


















1322 


00000554 


4B2A 


00 3B 




TST.B 


MOOEM 0N(A2) 






1323 


00000558 


$708 






BEQ.S 


MOVE CUT 






1324 


0000055H 


6100 


04 F2 




BSR 


CHECK DSR CTS 






132S 


0000055E 


6600 


0172 




BNE 


END_IS"R 






1326 


















1327 




0000 


0562 


MOVE 


OUT 


EQU » 






1328 


00000562 


4247 






CLR.U 


D7 


clear d7.w 




1329 


00000534 


206B 


00 1C 




MOVER. L 


TEMP 0FF(B3) ,00 


aO := buffer empty pointer 




1330 


00000558 


1 El 8 






nOVE.B 


(A0)*,D7 
D7,DATA(A1 ) 
A0,TEMP_0FF(fl3) 


d7 := character 




1331 


00000S6B 


1347 


0011 




MOVE.B 


write the character 




1332 
1333 
1334 


00000S5E 


2748 


00 1C 




MOVE.L 


update empty pointer 




0OOO0S72 


53BB 


0010 




SUBQ.L 


tl.TCNT 0FF(A3) 
END XOUT 


decrement the count 




1335 


00000576 


6F08 






BLE.S 


count=0, transfer ends 




1336 


00000578 


BE6B 


OOOE 




CMP.U 


TCHR" 0FF(R3) ,D7 


character = term, char ? 




1337 


0OOO0S7C 


6600 


0154 




BNE 


ENO_TSR 






1338 


















1339 




0000 


0580 


END_ 


XOUT 


EQU » 






1340 


00000580 


4B28 


OOOB 




TST.B 


TEND 0FF(B3) 


end condition enabled ? 




1341 


000005B4 


6730 






BEQ.S 


CLR STOUT 






1342 


00000586 


4B2B 


0038 




TST.B 


MOOE"M 0N(A2) 


modem handshake on ? 




1343 


0000058B 


672B 






BEQ.S 


CLR XCUT 






1344 


0000053C 


0229 

0013 


OOFS 




BNOI.B 


#tFS",INTR_EN(fll) 


disable output and modem interrupts 




1345 




0000 


0592 


LOOP 


LAST 


EQU * 






1346 


00000592 


1E29 


00 IB 




MOVE.B 


LINE STRT(A1),D7 


wait for everything transferred 




1347 


00000596 


8F2A 


00 3 F 




OR.B 


07,S - LINE(B2) 


before dropping RTS 




1348 


0000053B 


4607 






NOT.B 


07 






1349 


0000059C 


CE3C 


0060 




BND.B 


#J60,D7 






1350 


000005AO 


66F0 






BNE.S 


LOOP LAST 






1351 


0OO00SA2 


08A9 
0019 


0001 




BCLR 


*l,M0"DEM_C0NT(fil) 


drop RTS is the EDI condition 




1352 


















1353 


000005F18 


6100 


02 3A 




BSR 


CLEAR XFER 


clear the transfer 




1354 


OOOOOSAC 


4EB9 
0000 


OOOO 




JSR 


LOGEOT 


call the eot procedure 




1355 


00000582 


6000 


01 IE 




BRH 


ENDJSR 






1356 


















1357 




0000 


05B6 


CLR_ 


XOUT 


EQU * 






1358 


00000536 


0229 

0013 


00 F5 




BNDI.B 


*$F5,INTR_EN(A1) 


disable output and modem interrupts 




1359 


0OOO058C 


6100 


0226 




BSR 


CLEAR XFER 


clear the transfer 




1360 


000005CO 


4EB9 
0000 


0000 




JSR 


LOGEOT 


call the eot procedure 




1361 


00OO05C6 


6000 


oi on 




BRfi 


END_ISR 
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ROUTINES »** File name: RS 


*** 


1363 








* 










1364 








* 


Input interrupts are normally active in order to fill the internal 




1365 








* 


buffer 








1366 








* 










1367 




0000 


OSCA 


INPUT_ INTR 


EQU « 






1368 


000005CB 


1229 


00 IB 




MOVE.B 


LINE STAT(R1),D1 






1369 


000005CE 


1429 


0011 




MOVE.B 


DATflTAl),Q2 
D1,S_LINE(A2) 


get the input byte (clears interrupt) 




1370 
1371 
1372 


000005D2 


832B 


00 3 F 




OR.B 


preserve line status for user 




000005D6 


4A2B 


0038 




TST.B 


MODEM 0N(R2) 
CHECK_BREAK 






1373 


000005DFI 


6712 






BEQ.S 


skip modem stuff if handshake off 




1374 








* 










1375 








* 


check for b 


oth CD and DSR 






1376 








* 










1377 


000005DC 


1029 


00 ID 




MOVE.B 


MODEM STAT(Rl) ,00 






1378 


000005E0 


B12R 


003E 




OR.B 


DO.S F)0DEM(B2) 


preserve modem status for user 




1379 


000005E4 


464C 






NOT 


DO 






1380 


000005E6 


024C 


00 BO 




RNDI 


tSBO.DO 
INPUT END 


mask appropriate bits 




1381 


000005EA 


660C 


00 C A 




BNE 


if zero then they were set previously 




1382 








* 










1383 








* 


ignore character if break received 






1384 








* 










1385 




0000 


05EE 


CHECK.BREBK 


EQU * 






1386 


000005EE 


0801 


3004 




BTST 


*4.D1 
INPUT END 


if break received. 




1387 


000005F2 


6600 


O0C2 




BNE 


then ignore character 




1388 








* 










1389 








* 


convert Framing and Parity errors to specified character 




1390 








* 










1391 


000005F6 


1001 






MOVE.B 


D1.00 


save line status for later use 




1392 


000005F8 


0240 


00 OC 




AND I 


»$OC,DO 
NO CONVERT 


check for PARITY and FRBM1NG errors 




1393 


000005FC 


670B 






BEQ.S 






1394 


000005FE 


4B2B 


0046 




TST.B 


IGNORE PE(A2) 
NO C0N7ERT 


<aaa) 
(aaa) 




1395 


00000602 


6604 






BNE.S 




1396 


00000604 


142B 


0045 




MOVE.B 


C0RV_CHBR(A2),02 


convert the character 




1397 


















1398 




0000 


0608 


NO CONVERT 


EQU » 






1399 








* 










1400 








* 


jump to 


appropriate handshake h 


andler 




1401 








* 










1402 


00000608 


102B 


0040 




MOVE.B 


S HANDSH(B2) ,D0 






1403 


0000060C 


4880 






EXT.U 


DO" 






1404 


O0O006OE 


303B 


0OO6 




MOVE.U 


HAND TABLE (DC) ,D0 


get address to jump 




1405 


00000612 


4EFB 


0002 




JMP 


HAND'TABLE (DO) 






1406 


















1407 




0000 


0616 


HAND 


TABLE 


EQU * 






1408 


00000616 


0068 






DC.U 


ENQ HAND-HAND TABLE 






1409 


00000618 


0008 






DC.U 


XON HAND-HRNC TABLE 






1410 


0000061A 


0096 






DC.LJ 


no frnc-hand Table 






1411 


0000061C 


0096 






DC.U 


NO HflNC-HAND TABLE 




1-341 



PPGE 3 


- [3.0] 12 


/26/84 21: 


34:08 RS232 DRI 


/ERS -- INTERRUPT SERVICE ROUTINES ««* File name: RS 


«« 


1413 




0000 


061E 


XON HAND 


EQU * 




1414 








* 






1415 








* Do host pa 


rt of the handshake -- check for Xon and Xoff 




1416 








* 






1417 


0000061E 


B42P. 


0041 


CMP.B 


XON CHBR(A2) , D2 




1418 


00000622 


66 26 




BNE .S 


CHECK XOFF 




1419 


00000624 


157C 
003D 


0001 


MOVE.B 


#1,XMTTTING(B2) turn transmitting back on 




1420 












1421 


0000062P, 


4AAP, 


0028 


TST.L 


BUFO 0FF(B2) \ 




1422 


0000062E 


6700 


0086 


BEQ 


INPUT END \ 




1423 


00000632 


08E9 

C013 
4B2P 


0001 


BSET 


#1,INTR_EN(A1) \ enable interrupts if output 




1424 


00000638 


003B 


TST.B 


MODEM 0N(A2) / transfer is active 




1425 


0000063C 


6700 


0079 


BEQ 


INPUT END / 




1426 


00000640 


08E9 
0013 


0003 


BSET 


#3,INTR_EN(B1) / 




1427 


00000646 


6000 


006E 


BRB 


INPUT_END 




1428 














1429 




0000 


064H 


CHECK XOFF 


EQU « 




1430 


0000064H 


B42B 


0042 


CMP.B 


XOFF CHBR(B2) ,D2 




1431 


0000064E 


660E 




BNE.S 


TERM HAND 




1432 

1433 


00000650 


422P, 


0030 


CLR.B 


XMITTING(A2) turn transmitting off 




1434 


00000654 


137C 
0013 
6000 


0001 


tlOVE.B 


tt$l , INTR_EN(B1) turn any possible output interrupts off 




1435 


000006SP, 


005B 


BRB 


INPUT_END 




1436 














1437 








* 






1438 








* Do terminal part of the handshake 




1439 








* 






1440 




0000 


065E 


TERM Hfi^JD 


EQU » 




1441 


0000065E 


4B2P, 


003C 


TST.B 


RECEIVING(P2) if receiving is on, might have 
PUTINQ to turn it off 




1442 


00000662 


6748 




BEQ.S 




1443 


00000664 


6100 


0468 


BSR 


QUEUE SPACE d3 := space left in queue 




1444 


00000668 


66 "C 


0028 


CMP.U 


#X0FF SIZE, 03 




1445 


0000066C 


6C3E 




BGE.S 


PUTINQ" 




1446 








* 






1447 








* Have to turn receivinq off 




1448 








* 






1449 


0000066E 


162P 


0042 


IIOVE.B 


XOFF CHAR(B2),D3 prepare to send Xoff 




1450 


00000672 


6100 


0320 


BSR 


SEND send character 




1451 


00000676 


66.34 




BNE.S 


PUTINQ send did not succeed 




1452 


00000678 


422R 


003C 


CLR.B 


RECEIVING(B2) no longer expecting input 




1453 


0000067C 


602E 




BRB.S 


PUTINQ but put present char in queue 




1454 
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[3.0] 12/26/84 


21:34:08 RS232 DRIVERS -- INTERRUPT SERVICE ROUTINES *** File name: RS 


*** 


1456 














1457 




0000 


067E 


ENQ HAND 


EQU » 




1458 


0000067E 


B'.TP 


0043 


CMP.B 


ENQ CHPR(A2),D2 IF char <> ENQ 




1459 


00000682 


eeco 


0028 


BNE 


PUTTNQ THEN put char in queue 




1460 


00000686 


61(0 


0446 


BSR 


QUEUE SPACE ELSE 




1461 


0000068fi 


B67C 


0050 


CMP.U 


»BCK 5"IZE,D3 IF queue space <= 80 




1462 


0000068E 


6 CO B 




BGE.S 


SEND ACK 




1463 


00000690 


422fi 


003C 


CLR.B 


RECETVING(A2) receiving := false 




1464 


00000694 


6000 


0020 


BRB 


INPUT_END 




1465 














1466 




0000 


0698 


send ack 


EQU * 




1467 


00000698 


162P 


0044 


MOVE.B 


BCK CHHR(B2),03 set up parameter in 03 
SEND" send BCK 




1468 


O00O069C 


6100 


02Fc 


BSR 




1469 


000006AO 


6700 


0014 


BEQ 


INPUT_END 




1470 














1471 


000006B4 


422P, 


003C 


CLR.B 


RECEIVING(A2) not receiving since ACK not sent 




1472 


000006B8 


6000 


OOOC 


BRfl 


INPUT_END 




1473 














1474 








* 






1475 








* Put character (d2) in queue, and check for overrun. 




1476 








* 






1477 




0000 


06RC 


NO HHND 


EQU * 




1478 




OOCO 


06PC 


PUTINQ. 


EQU * 




1479 


000006BC 


6100 


03CC 


BSR 


QUEUE FULL IF gueue full 
OVERRUN THEN overrun error 




1480 


00000660 


67 CB 




BEQ.S 




1481 
1482 
1483 


00000662 


6100 


03E2 


BSR 


INQUEUE ELSE inqueuelchar) 






0000 


06B6 


INPUT END 


EQU * 




1484 


000006B6 


0241 


0002 


P.NDI 


#$02, Dl check for overrun error 




1485 


000006BS 


6708 




BEQ.S 


CHECK_XIN 




1486 














1487 




0000 


06BC 


OVERRUN 


EQU » 




1488 


000006BC 


257C 
0130 


0000 
0034 


MOVE.L 


*OVERRUN_ERR0R,S_ERR0R(B2) 




1489 














1490 








* 






1491 








* If transfer 


in is active then do the transfer 




1492 








* 






1493 




0000 


06C4 


CHECK XIN 


EQU « 




1494 


000006C4 


4(42 A 


0039 


TST.B 


XIN BCT(A2) check for transfer active 




1495 


OOC006C8 


6708 




BEQ.S 


END_ISR 




1496 














1497 


000006CP 


266P, 


0024 


MOVER. L 


BUFI 0FF(A2),A3 a3 := buffer control block pointer 
DUMP BUFFER 




1498 


000006CE 


6100 


00D3 


BSR 




1499 










~" 




1500 




0000 


0602 


END ISR 


EQU » 




1501 


000006D2 


422A 


0038 


CLR.B 


IN_ISR(B2) not in isr any longer 




1502 


000006D6 


4E75 




RTS 




1-342 
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J SOS 






***» 


** *********** *********************************************** ************* 




1506 






* 










1507 






* 


t ransfe 


r 






1508 






* 










1S09 






**** 


********************************** 


*************************************** 




1510 
















1511 


0000 


06D8 


RS_RS TFR 


EQU * 






1512 
















1513 






* 










1514 






* 


Pascal interface overhead 






ISIS 






* 










1516 


000006D8 205F 






MOVEA.L 


(SP)+,BO 


get return address 




1S17 


000006DA 26SF 






MOVEA.L 


(SP)+,B3 


get buffer control block address 




1518 


000006DC 245F 






MOVEA.L 


(SPj*,A2 

C ADR(B2) ,A1 


get temp address 




1519 


000006DE 226A 


0020 




MOVEA.L 


get card address 




1520 


000006E2 4850 






PEA 


(HO) 


restore return address 




1521 






* 










1522 






* 


Card overhead 






1S23 






* 










1524 


0000061:4 6100 


0174 




BSR 


CONNECT 






1S25 


000006E8 6100 


01EE 




BSR 


CHECK_ERROR 






1S26 






* 










1527 






* 


Check for unsupported transfer modes 




1528 






* 


( done 


3y table jump also ) 






1529 






* 










1530 


000006EC 4A2B 


ooon 




TST.B 


T BU 0FF(A3) 


word mode? 




1531 


000006F0 $62E 






BNE.S 


UO"RD_ERR 


-- is unsupported 




1532 
















1533 


0000061=2 122B 


0009 




MOVE.B 


TUSR 0FF(A3) ,D1 


dl .w := offset into transfer table 




1534 


000006l : 6 4881 






EXT.U 


01 " 






1S35 


000006F8 D241 






ADD.UI 


01, Dl 


dl .w := word offset into table 




1536 


000006FA 323B 


1006 




move.u 


XFER TABLE(Dl) ,D1 






1537 


000006FE 4EFB 


1002 




JMP 


XFER_TABLE(D1) 






1538 
















1S39 


0000 


0702 


XFER 


TABLE 


EQU « 






1540 


00000702 0014 






DC.U 


XFER ERR-XFER TABLE 


not used 




1541 


00000704 0014 






DC.U 


dma Frr-xfer Table 


serial DMA -- not supported 




1542 


00000706 0028 






DC.W 


SER~FHS-XFER~TABLE 


serial FHS 




1543 


00000708 0028 






DC.U 


SER FHS-XFER TABLE 


serial fastest -- same as serial FHS 




1544 


0000070A 0014 






DC.U 


XFER"_ERR-XFER"_TABLE 


not used 




1545 
















1546 


0000070C 0036 






DC .U 


INTR XFER-XFER TABLE 


overlap INTR 




1S47 


0000070E 0014 






DC.U 


DMA FRR-XFER THBLE 


overlap DMA -- not supported 




1648 


00000710 0014 






DC.U 


XFER" ERR-XFER" TABLE 


overlap FHS -- not supported 




1549 


00000712 0036 






DC.U 


INTR XFER-XFER" TABLE 


overlap FASTEST -- same as overlap INTR 




1550 


0000071.4 0036 






DC.U 


INTR XFER-XFER TABLE 


overlap overlap -- same as overlap INTR 
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*** File name: RS *** 




1552 






* 










1553 






* 


Error escapes 






1554 






* 










1555 


OOOO 


0716 


END 


ERR 


EQU * 






1556 


0000 


0716 


DMA 


ERR 


EQU * 






1557 


OOOO 


0716 


XFER" ERR 


EQU * 






1558 


00000716 6100 


OOCC 




BSR 


CLEAR XFER 






15S9 


0000071.A 7007 






MOVEQ 


*TFR FRR.DO 






1560 


0000071.C 6000 


0110 




BRA 


I OE SCAPE 






1561 
















1562 


OOOO 


0720 


UORC 


_ERR 


EQU « 






1563 
















1S64 


00000720 6ioo 


00C2 




BSR 


CLEAR XFER 






156S 


00000724 700E 






MOVEQ 


♦ NO UO"RD,DO 






1568 


00000726 6000 


0106 




BRA 


IOESCAPE 






1S67 






* 










1568 






* 


Set the actual mode for transfers 






1569 






* 










1570 


OOOO 


07 2B 


SER_ 


FHS 


EQU * 






1571 


0000072A 177C 
0007 


0004 




MOVE.B 


*TT_FHS,TACT_0FF(A3) 


set the actual mode 




1572 


00000730 4A2B 


OOOD 




TST.B 


TDIR 0FF(A3) 
OUTPUT XFER 


jump to correct direction handler 




1573 


00000734 6634 






BNE.S 






1574 


00000736 600C 






BRA.S 


INPUTJJFER 






1575 
















1S76 


OOOO 


0738 


INTR 


XFER 


EQU * 






1S77 


00000738 177C 
0007 


0001 




MOVE.B 


tTT_INT,TACT_0FF(A3) 


set actual mode to INTR 




1578 


0000073E 4A2B 


OOOD 




TST.B 


TOIR 0FF(A3) 

OUTPUT XFER 


jump to correct direction handler 




1579 


00000742 6626 






BNE.S 






1580 






* 


BRA.S 


INPUT XFER 






1S81 
















1S82 






* 










1583 






* 


Input transfer setup. 






1584 






* 










1585 
















1586 


OOOO 


0744 


INPUT XFER 


EQU * 






1S87 


00000744 4A28 


OOOB 




TST.B 


TEND 0FF(A3) 


end condition not allowed on input xfers 




1588 


00000748 66CC 






BNE.S 


END_E~RR 






1589 
















1590 


0000074A 6100 


005C 




BSR 


DUMP BUFFER 


do most of transfers with intr enabled 




1591 


0000074E 6756 






BEQ.S 


EXITfJTFR 


if transfer done, then exit 




1S92 
















1593 


000007S0 4229 


0003 




CLR.B 


INTR SU(A1) 


disable interrupts for critical section 




1594 


00000754 157C 
0039 


0001 




MOVE.B 


#1,XT/N_ACT(A2) 






1595 


0000075A 6100 


00A4 




BSR 


SET XFER 


set interface busy 




1596 


0O0O07SE 6100 


0048 




BSR 


DUMP"_BUFFER 


make sure that buffer is empty (prevent deadloc 
if eot the following code will exit 


k) 


1597 






* 








1598 






* 






so no explicit exit is done 




1599 


C0000762 08E9 
0003 


0007 




BSET 


#7, INTR_SU(A1) 


end of critical section 




1600 
















1601 


00000768 6026 






BRA.S 


CHECK_FHS 


end of input transfer setup 


1-343 



1603 
16C4 
16C5 
1606 
1607 
1608 
16C9 
1610 
1611 
1612 

1613 
1614 
ISIS 

1616 
1617 
1618 

1619 

1620 
1621 
1622 
1623 
1624 

1625 
1626 

1627 
1628 
1629 

1630 
1631 
1632 



[3.0] 12/26/84 21:34:08 RS232 DRIVERS -- TRANSFER 
* Output transfer setup 



0000 076A OUTPUT„XFER 



0000076H 4229 0003 

0000076E 6100 0090 
00000772 08E9 0001 

0019 
00000778 4R2A 003D 
0000077C 6712 
0000077E 08E9 0001 

0013 
00000784 4R2A 003B 
00000788 6706 
0000078R 08S9 0003 

0013 



EQU * 

INTR_SU(fil) 

SET XFER 
*l,M0DEM_C0NT(fll) 



BSR 
8SET 



TST.B XMITTING(PI2) 
BEQ.S CHECK FHS 
BSET #l,INTR_EN(fll) 



TST.B 

BEQ.S CHECK FHS 

BSET *3,INTR_EN(R1) 



MODEM 0N(fl2) 
-H3 



*** File name: RS 



disable interrupts for critical section 

set interface busy 
set RTS 

if not transmitting, don't enable interrupts 

enable output interrupts 

if modem handshake 

enable modem interrupts 



* IF serial transfer THEM wait until transfer is done 

0000 0790 CHECK_FHS EQU * 

00000790 08E9 0007 ~ BSET #7,INTR SU(B1) end of critical section 
0003 



#TT_FHS,TRCT_0FF(R3) 



00000796 0C2B 0004 CMPI . 

0007 

0000079C 6608 BNE.S EXIT TFR 

0000 079E UflIT_FHS EQU * 

0000079E 0C2B OOFF CMPI.B #255, T SC 0FFIR3) 

0005 

000007R4 66F8 BNE.S WRIT FHS 

0000 07R6 EXIT TFR EQU * 

0O0OO7R6 4E75 RTS 



wait until buffer is not busy 



PAGE 
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1636 
1637 
1638 
1639 
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1641 
1642 
1643 
1644 
1645 
1646 
1647 
164 8 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 

1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
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****************************************************************************** 

* TRRNSFER SUPPORT ROUTINES 
****************************************************************************** 

* DUMP BUFFER 

* transfer from the internal queue to user queue 
* 

* ON ENTRY: a3 - points to buffer control block 

* ON EXIT : IF transfer was completed 

* THEN d2.L=0 and 2=1 

* ELSE d2.L=l and Z«0 

* USES: aO - current fill pointer to user input buffer 

* d2 - character being transfered 



0000 07(18 CUMP_BUFFER EQU * 
000007R8 206B 0020 MOVER. L TFIL 0FF(fl3),A0 
000007RC 4242 CLR.U D2 



0000 07AE DUMP LOOP 

000007RE 6100 02C0 ~ BSR 

OOO007B2 6728 BEQ.S 

000007B4 6100 0162 BSR 

000007B8 10C2 MOVE.B 

000007BA 53AB 0010 SUBQ.L 

000007BE 6F06 BLE.S 

000007CO B46B OOOE CMP.U 

000007C4 66E8 BNE.S 

0000 07C6 END XIN 

OO0O07C6 2748 0020 MOVE . L 

000007CR 422A 0039 CLR.B 

000007CE 6100 0014 BSR 

000007D2 4EB9 0000 JSR 

0000 



000007D8 4262 
000007DR 4E7S 



CLR.L 
RTS 



0000 07DC EXIT DUMP 
0000070C 2748 0020 MOVE.L 



EQU * 

Q.UEUE EMPTY 
EXIT DUMP 
GET CHAR 
02.TR0I* 
ttl.TCNT 0FFIA3) 
END XIN 

TCHl?_0FF(fi3),D2 
DUMPJ.00P 

EQU * 

RO,TFIL 0FF(A3) 
XIN ACTTR2) 
CLEA"R XFER 
LOGEOT 



EQU * 
A0,TFIL_0FF(A3) 



get fill pointer 

clear top half of D2 (for later compares) 



d2 := character 

put it in the linear buffer 

decrement count 



000007EO 74C1 
000007E2 4E75 



MOVEQ 
RTS 



update fill pointer 



set Z flag to mark transfer ended 



update fill pointer 

clear Z flage to mark transfer still active 
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File name: RS 



1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 

1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 

1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
171S 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 



CLEAR XFER 

mak~e a transfer inactive (unlink temp space and buffer control block) 
ON ENTRY: a3 - points to the buffer control block 



0000 07E4 CLEAR XFER EQU « 

000007E4 422B 0007 CLR.B TRCT 0FF(A3) 

000007E8 177C OOFF MOVE.B #2557T SC OFF(R3) 

000S . - - 

000007EE 4R2B OOOD TST.B TDIR 0FF(B3) 

000007F2 6606 BNE.S CLEAR" OUT 

000007F4 42AP, 0024 CLR.L BUFI 0"FF(A2) 

000007F8 4E7S RTS 

0000 07FA CLEAR OUT EQU » 

000007FA 42AP 0028 CLR.L BUFO 0FF[A2) 

000007FE 4E7S RTS ~ 



clear actual transfer mode 
set the buffer not busy 



clear input transfer 
clear output transfer 



SET_XFER 

make a transfer active (link temp space with buffer control block) 
ON ENTRY: a3 - the buffer control block 



0000 0800 SET_XFER EQU * 

00000800 176H 002D MOVE.B IO_SC (R2 ) , T_SC_0FF(H3) set the buffer busy 

00000806 4R28 OOOD TST.B TDIR 0FF(A3) 

0OO008OR 6606 BNE.S SET (TUT 

0000080C 254B 0024 MOVE.L A3,B"UFI 0FF(R2) set sc's input active 

00000810 4E7S RTS " 

0000 0812 SET OUT EQU * 

00000812 254B 0028 ~ MOVE.L A3, BUFO OFF(R2) 
00000816 4E7S RTS " 



set sc's output active 



CHECK_XFER_IN, CHECK_XFER_OUT 

gives an error if a transfer is active 
USES: dO -- only if an ioescape is to be given 



0000 0818 CHECK_XFER IN EQU » 

00000818 4RAR 0024 TST.L BUFI 0FF(A2) 

0000061C 660R BNE.S BUSY~ERR 

0000081E 4E75 RTS 

0000 0820 CHECK_XFER OUT EQU » 

00000820 4RAR 0028 TST.L BUFO 0FF(A2) 

00000824 6602 BNE.S BUSY - ERR 

00000826 4E7S RTS 

0000 0828 BUSY ERR EQU * 

00000828 7008 ~ MOVEQ #SC BUSY, DO 

0000082R 6000 0002 BRR I0E5CRPE 
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1735 

1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 



COMMON UTILITIES 



*** File name: RS *** 



1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 



**X*X*XX***********************X****** ******* 



***************************** 

* 

* Useful Subroutines 

********************************************** ****************************** 

» IOESCRPE 

» ON ENTRY: dO . L -- contains the escape code 



0000 082E IOESCAPE 
0000082E 2B40 FFBE MOVE.L 
00000832 4280 CLR.L 

00000834 102A 0020 MOVE.B 
00000838 2B40 FFBA MOVE 
0000083C 3B7C FFE6 

FFFE 
00000842 4E4P, 



EQU » 

D0,I0E_RSLT(fi5) 

DO 

10 SC(fi2) ,D0 

DO IOE SCifiS) 



MOVEiu #I<5e_ER"R0R,ESC_C0DE(A5) 



* put ioe result 
*<« BUG FTX >» 

* get select code of card 

* put ioe_sc 

* escapecode := ioe_error 

* do Pascal escape 



RDIVU 

unsigned integer 
ON ENTRY: dO.w 
dl.l 
ON EXIT: dl.w 



divide rounded. 
•- divisor (unchanged by this routine) 

- dividend 

- rounded quotient 



0000 0844 ROIVU EQU * 

00000844 82C0 DIVU D0.D1 

00000846 4841 SURP Dl 

00000848 E349 LSL.UI tl Dl 

0000084A 6508 BCS.S ROUNO 

0000084C B041 CMP.U 01,00 

0000084E 6F04 BLE.S ROUND 

* 

00000850 4841 SURP Dl 

00000852 4E75 RTS 

0000 0854 ROUND EQU * 

00000854 4841 SURP Dl 

00000856 5241 RDDQ.U #1,D1 

00000858 4E75 RTS 



do truncated division 

get access to remainder 

multiply remainder by 2 

if carry then remainder*2>divisor 

remainder*2 > divisor 2 

round up if so . 

--do not round -- 

get quotient 

--round up-- 

get old quotient 

increment (do the rounding) 
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1775 
1776 
1777 
1778 
1779 
17S0 
1781 
1782 
1783 
1784 
1765 
1786 

1787 

17? 8 



1790 

1791 
1792 
1793 
1794 

1795 
1796 
1797 
1798 
1799 
1800 
1801 

1802 
1803 

1804 
1805 
18C6 



CONNECT 

connects the card if not connected already. 

uses : d6,d7 by called routines 



0000 085fi CONNECT 
0000085R 4B2B 003B 
0000085E 661C 



TST.B 
BNE.5 



00000860 08E9 0000 BSET 

0C19 
00000866 6100 002E BSR 
0000086B 137C 0001 tlOVE.B 

0C13 
00000870 157C 0001 MOVE.B 

003B 
00000876 08E9 0007 BSET 

0003 

0000 087C EXITJXINNECT 
0000087C 4E7S RTS 



EQU * 

connected (b2) 
exit_connect 

#o,mooem_cont(B1) 

soft reset 
#1,imtr_en(fi1) 

#1, connected (b2) 

#7,INTR_SU(fll) 
EQU * 



IF connected THEN do nothing 



initialize the dynamic data 
enable receive interrupts 



set connected 

enable card interrupts 



DISCONNECT 

disconnect and disable interrupts 



0000 087E DISCONNECT 

0000087E 08FI9 0007 BCLR 

0003 

00000884 422A 003B CLR.B 

00000888 0229 OOFC BNDI.B 

0019 

0O00088E 4E71 NOP 

00000890 4229 0013 CLR.B 

00000894 4E75 RTS 



EQU * 
*7,INTR_SW(R1) 

CONNECTED (B2) 
#$FC,MODEM_CONT(Fll) 



INTR_EN(FU) 



disable card interrupts 



set disconnected 
drop DTR and RTS 



disable all UflRT interrupts 
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1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 

1818 
1819 

1320 
16? I 
1822 

1823 
1524 
1S25 
1826 
1827 
1828 
1829 
1830 
1831 
1832 

1833 

1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
184S 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 



SOFT_RESET 

initialize the 



dynamic" attributes of the drivers 
d6,d7 as temporary 



0000 0896 SOFT_RESET 
JSR 



00000896 4EB9 0000 
0000 

0000089C 1C29 0003 
000008RO 4229 0003 

000008B4 0229 0001 

0013 
000008RB 6100 01B4 
000008RE 1E29 C011 
000008B2 422B 003F 
000008B6 1E29 001B 
0O0O08BB 422B 003E 
000008BE 1E29 001D 



000008C2 42BB 0034 
000008C6 157C 0001 

003C 
000008CC 157C 0001 

0030 

000008D2 1346 0003 
00000806 4E75 



MOVE.B 
CLR.B 



HNDI.B 
BSR 



EQU * 
BB0RT_I0 



INTR SW(H1) ,D6 
INTR_SU(fil) 



*1,INTR_EN(B1) 



INIT QUEUE 
MOVE.B 0BTBTB1),D7 
CLR.B S LINEIB2) 
MOVE.B LINE STRT(fil) ,D7 
CLR.B S M0D"EM(H2) 
MOVE.B MtTDEM STBT(fll),D7 



CLR.L S ERR0R(B2) 
MOVE.B #T, RECEIVINGS) 

MOVE.B #1,XMITTING(B2) 



MOVE.B D6.INTR SU(R1) 
RTS 



abort transfers 

save interrupt state 
disable interrupts 

disable modem and transmit interrupts 

dest roy any data 

reset the line status (destructive read) 

reset the modem status (destructive read) 



restore the interrupt state 



CHECK_ERR0R 

check for errors recorded in interrupt service routines (ISRs) 
USES: D0,D7 only if doing ioescape 



0000 0808 CHECK ERROR 
00000808 4fiflfi C034 " TST.L 
000008DC 6602 BNE . S 

000008DE 4E75 RTS 

0000 08E0 ERROR EXIST 
000008EO 1E29 0003 "" MOVE.B 
000008E4 4229 COOS CLR .B 



000008E8 202B 0034 
000008EC 42BB 0034 



000008FO 1347 0003 
OO0O08F4 6C0O FF38 



MOVE.L 
CLR.L 



MOVE.B 

BRR 



EQU * 

S ERR0R(B2) 

ER"R0R_EXIST 

EQU * 

INTR SU(B1),D7 

INTR_SU(fil) 

S_ERR0R(B2) ,00 
S_ERR0R(B2) 

07, INTR SU(Pil) 
IOESCAPE" 



is error present 
return if not error 



save interrupt condition 

disable interrupt for critical section 



get error 
clear errors 



restore interrupts 
do pascal escape 
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1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 



UAIT SENO 

TTTis routine waits for the transmitting flag then sends 
a character. It escapes if SEND returns with an error 

NOTE: this routine cannot be called by ISRsi!! 

ON ENTRY: d3.B -- character to be sent 

USES : a4 -- used by called routines 

d4,d6,d7 -- by called routines 



0000 08F8 (JBIT_SEND 



Uait for xmitting flag (no timeouts 11) 

(the wait is important for Xon/Xoff as host) 



000008F8 4A2A 003D 
0OO008FC 67FR 



TST.B 
BEQ.S 



XMITTING(A2) 
UBIT_SEND 



Send the character 



0000 08 FE OK XM1T EQU * 

000008FE 6100 0094 BSR SEND 

00000902 61D4 BSR CHECK ERROR 

00000904 4E75 RTS 



send character with timeout 
check for errors found by send 



UAIT_GET 

wait until the queue is empty before getting a character 
ON EXIT: D2.B contains the character 

(the rest of D2 is not altered!) 
USES: A4.L -- parameter to UfilT 

D0,03,D4,D6,D7 -- used by called routines 



Wait (with timeout) for queue not empty 



00000908 49FA 0138 

00000900 6100 OOCC 

0000090E 61C8 

00000910 6100 0006 

00000914 61C2 

00000916 4E75 



LEA 
BSR 

BSR 

BSR 
BSR 

RTS 



CHECK_QJEUE,A4 

UAIT 

CHECK_ERROR 

GET CHAR 

CHECK ERROR 



\ call wait with the not queue empty 

/ function 

check for wait error 
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1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 



GET_CHAR 

get a character 
ON ENTRY 
ON EXIT: 



tfith software handshake. 



the queue is not empty! 
D2.8 contains the character 
(the rest of D2 is not altered!) 

D3 -- space left in queue/temporary for character 
DO.W -- handshake type & temporary 
A4,D4,D6,D7 -- temporary 



0000 0918 GET_CHAR 



ECU 



00000918 6100 01S 



0000091C 4A2A 003C 
00000920 6670 



00000922 102H 0040 
00000926 4880 
00000928 303B 0006 
0000092C 4EFB 0002 



Read the character ( and pass it back ) 

BSR OUTQUEUE get the character (into D2) 

Check for and do handshake overhead 



TST.B 
BNE.S 



RECEIVINGS) 
READ END 



if receiving 

then no overhead needed 



Jump to appropriate handshake handler 

get handshake 



MOVE.B 
EXT.UI 
MOVE.U 
JflP 



0000 0930 H TABLE 

00000930 0003 - DC .U 

00000932 0018 DC. Id 

00000934 0062 DC.U 

00000936 0062 DC.U 



S HANDSH(A2) ,00 

DO" 

H TABLE(D0),D0 

H_TABLE(D0) 

EG.U * 

ENQ_H-H TABLE 
XON H-H TABLE 
READ" END"-H_TABLE 
READ~END-H_TABLE 



no handshake (no overhead) 
no handshake 
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1345 
1346 
1947 
194 8 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
19S8 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 

1972 
1973 
1974 

1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 

1983 
1984 
1985 

1986 
1987 
1988 
1989 
1990 



ENQ/RCK handshake--send RCK if queue can handle more than 80 chars 



0000 0938 ENQ_H 
00000938 6100 0194 
0000093C B67C 0050 
00000940 6D50 



EQU » 
BSR O.UEUE SPACE 
CUP.U #ACK_5IZE,D3 
BLT.S READ END 



returns space left in D3 
space not big enough to send P.CK 
Send character to indicate card is receiving and set receiving flag 



00000942 162A 0044 
00000946 600E 



MOVE.B RCK CHAR (0.2) ,D3 
BRA.S SENC_HAND 



send ack 



00000948 
0000094C 
00000950 



oooo 
6100 
B57C 
6C40 



0948 
0184 
005E 



* Xon/Xoff handshake — send Xon if queue can handle more characters 
XON H 



00000952 162A 0041 



0000095C 
00000960 
00000962 



00000968 
0000096C 
00000970 
00000974 
00000976 
0000097A 
OO00097C 

00000982 
00000986 
00000988 



0000098E 
00000992 



oooo 

137C 
0013 
6100 
6606 
167C 
O03C 
0000 
1E29 
4229 
4ARA 
6718 
4A2A 
6712 
08E9 
0013 
4A2A 
6706 
08E9 
0013 

ocoo 

1347 

0000 
4E75 



0956 
0001 

0036 

0001 

0968 
0003 
0003 
0028 

003D 

0001 

O03B 

0003 

098E 

OO03 



BSR 

CMP.U 

BLT.S 

Send charac 

MOVE.B 

SEND_HBNO 

MOVE.B 

BSR 

BNE .5 
MOVE.B 



EQU » 

QUEUE SPACE 
#X0N_3"IZE,D3 
READ END 



d3 := space left in queue 
space not big enough to send XON 
ter to indicate card is receiving and set receiving flag 
X0N_CHRR(R2) ,03 



MOVE.B 

CLR.B 

TST.L 

BEQ.S 

TST.B 

BEQ.S 

BSET 

TST.B 
BEQ.S 
BSET 

END RESTORE 

MOVE. 8 



EQU « 
#1,INTR_EN(B1) 

SEND 

RESTORE 

#1,RECEIVING(P2) 

EQU « 

INTR_SU(R1 ),D7 
INTR SUffll 
BUFO 0FF(A2) 
END RESTORE 
XMITTING(R2) 
END RESTORE 
#1,TNTR_EN(R1) 

MODEM 0N(R2) 
END RESTORE 
#3,TNTR_EN(A1) 

EQU » 
D7,INTR_SU(A1) 



send handshake character (in D3) 
only have receive interrupt enabled 

send char which is in d2 

turn receiving back on 

recalculate interrupt enable mask 
save interrupt status 
critical section 



end critical section 



0992 READ END 
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1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 

2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 

2026 
2027 
2028 

2029 
203O 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 



SEND 

ON ENTRY: d3.B -- character to be sent 
ON EXIT : IF character sent 
THEN Z=l 

ELSE Z=0, S_ERR0R updated to newest error 
USES : a4 -- parameter to WAIT 
d7 -- temporary 
d6 -- by called routines 



0000 0994 SEND 
00000994 08E9 0001 
0019 



EQU * 
#l,M0DEt1_C0NT(fll) 



(with timeout) for transmit registers empty 



0000 099H LOOP THRE 



0000099B 1E29 001B 

0O00099E 8F2A 003F 

000009A2 CE3C 0020 

000009A6 67F2 

000009B8 4A2A 003B 

000009AC 6722 



EQU 



MOVE.B LINE STAT(A1),D7 

OR.B D7.S LINE(B2) 

SND.B *J20,D7 

BEQ.S L00P_THRE 

TST .B MODEM 0N(R2) 

BEQ.S XMIT_C"HAR 



save line status for user 
look at THRE bit 



skip modem stuff if modem handshake off 



000009RE 4R2A 0038 
000009B2 6710 

000009B4 6100 0098 
0O0009B8 6716 

000009BA 257C 0000 
013C 0034 
000009C2 4E75 



* Modem checking depends on if this routine was called from an ISR 

TST.B IN ISR(R2) 

BEQ.S N0T_ISR 

BSR CHECK 0SR_CTS 

BEQ.S XMIT_fjHAR modem lines are up, goto transmit 

MOVE.L #316,S_ERR0R(R2) CTS false error 

RTS side effect -- Z:-0 

Uait (with timeout) for DSR and CTS 



0000 09C4 NOTJSR EQU * 

000009C4 49FR 0088 LEA CHECK_DSR_CTS , A4 

000009C8 6100 OOOE BSR UAIT 

OO00O9CC 6702 BEQ.S XMIT_CHRR 

OO0009CE 4E75 RTS 

* 

* Send the character (in d3) 

0000 09DO XMIT CHAR EQU * 
000009D0 1343 0011 " MOVE.B 03,DRTH(A1) 
000009D4 4207 CLR.B 07 

000009D6 4E75 RTS 



\ call UAIT with appropriate 
/ function parameter 
no errors, goto transmit 
(Z=0 still] 



do actual transmit 

indicate no errors (Z := 1) 
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2043 
2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 

2061 

2062 

2063 

2064 

2065 OOOOOSDC 2820 002E 

2066 

2067 

2068 00O00SE2 0838 0001 



COMMON UTILITIES 
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2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 

2089 

2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 



UAIT 

this function waits with timeout for a condition to happen, 
if the condition does not happen within the timeout, then 
S ERR0R(A2) is marked with the timeout error. 
ON ENTRY: A4 . L points to the routine which will determine if 

the condition is met. This routine should have 
the following conditions: 
--uses at the most d7,d6 
--returns Z=l if the condition is met 
--all routines should have similar Timing 
ON EXIT: IF error is found 

THEN Z=0, S ERROR indicates the error 
ELSE 2=1 
D4 . L -- timeout counter 
D7,D6 -- can be used by called routine (see above) 



USES 



0000 
000009D8 4E94 
000009DA 673E 

0OO009DC 282A 
0OO009EO 672E 

00O00SE2 0838 

FEDS 

000009E8 6732 

0OO008EB 2E04 

OOOOOSEC E38F 

000009EE E58C 

000009FO D887 

000009F2 2E04 

000009F4 E78C 

000009F6 D887 

0000 
000009F8 4AAA 
OOO0O9FC 661C 
000009FE 4E94 
0OO00AOC 6718 

OOOO0AO2 5384 
OOOO0AO4 6AF2 

0OO00AO6 257C 

0011 

0OO00AOE 4E75 

0000 
00000A1C 4AAA 
0OOO0A14 6604 
0OO00B16 4E94 
0OOO0B18 66F6 



09F8 UAIT 
0034 



0000 

0034 



0A10 UAIT 
0034 



JSR 
BEQ.S 

HOVE . L 
BEQ.S 

BTST 

BEQ.S 

MOVE . L 

LSL.L 

LSL.L 

ADD.L 

TOVE.L 

LSL.L 

BDD.L 

LOOP 

TST.L 
BNE.S 
JSR 
BEQ.S 

SUB9.L 
BPL.S 

MOVE.L 

RT5 

LO0P2 
TST.L 

BNE.S 

JSR 

BNE.S 



EQU * 

(B4) 

EXITJJAIT 

TIMEOUT (B2),D4 
UflIT L00P2 



check the condition 

exit if condition met (Z=l) 



infinite timeout if value is 0. 
#TIMERJ=RESENT,SYSFLAG2 SEE IF TlnER EXISTS ttt JS 8/3/83 



IF SO GO USE IT 



ttt JS 8/3/83 



D4,D7 
#1,D7 
»2,D4 
D7,D4 
D4,D7 
#3,04 
D7,D4 

EQU » 

S ERROR (A2) 

EXIT UAIT 

(P4)- 

EXIT UflIT 



initialize counter 
(multiply by 54) 



check for errors saved during wait 
exit (Z=0) 
check the condition 
exit if conditon met (Z=l) 



#1.D4 
UBIT_LOCP 



counter := counter - 1 
#TM0_ERR,S_ERR0R(A2) save the timeout error (Z:=0) 



0000 OfilA EXIT UflIT 



EQU « 

S ERROR (A2) 

ESTlT UPIT 

(B4) 

UAIT_LC0P2 

EQU « 



wait loop for infinite timeout 
check for errors saved by ISRs 
exit (Z=0) 
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2098 


OOOOOBIB 


4E75 






RTS 






2099 
















2100 




0000 


0A1C 


UAIT 


TMR EQU 


* 




2101 


OOO00A1C 


1F3C 


0001 




MOVE.B 


#1,-(SP) 


SET UP TIMER RECORD 


2102 


00000A20 


2F04 






MOVE.L 


04, -(SP) 


D4 HAS MS TO UAIT 


2103 




0000 


0A22 


UflIT. 


TMR1 EQU 


* 




2104 


00000A22 


4AAA 


0034 




TST.L 


S ERR0R(A2) 


CHECK FOR ERRORS 


2105 


00000A26 


6614 






BNE.S 


UfflT TEXIT 


BR IF ERROR 


2106 


0OOO0A28 


4E94 






JSR 


(B41 
UAIT_TEXIT 


CHECK CONDITION 


2107 


OOO00A2A 


6710 






BEQ.S 


BR IF CONDITION MET 


2108 


00000A2C 


4857 






PEA 


CHECK_TiriER 


POINT TO TIMER REC 


2109 


00000A2E 


4EB9 

0000 
6AEC 


0000 




JSR 


AND CHECK TIMER 


2110 


0OO00A34 






BPL 


UAIT TMR1 


IF NO TIMEOUT BRANCH 


2111 


0OO00A36 


5C4F 






AODQ 


*6,SP~ 


TIMEOUT, BUT GET ONE 


2112 


0OO00A38 


7814 






MOVEQ 


*20.04 


MORE CHANCE UITH 


2113 


0OOO0A3A 


60BC 






BRA 


UAIT LOOP 


SHORT COUNT 


2114 




0000 


0B3C 


UflIT. 


TEXIT EQU 


* 




2115 


0OO00A3C 


5C4F 






ADDQ 


#6,SP 


CLEANUP STACK 


2116 


00O00A3E 4E7S 






RTS 




AND DONE! 
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ttt JS 8/3/83 

ttt JS 8/3/83 

ttt JS 8/3/83 

ttt JS 8/3/83 

ttt JS 8/3/83 

ttt JS 8/3/83 

ttt JS 8/3/83 

ttt JS 8/3/83 

ttt JS 8/3/83 

ttt JS 8/3/83 

ttt JS 5/3/84 

ttt JS 5/3/84 

ttt JS 5/3/84 

ttt JS 8/3/83 

ttt JS 8/3/83 

ttt JS 8/3/83 
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2119 
2120 
2121 
2122 
2:23 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
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********************************************** 

* 

* CHECK_DSR_CTS, CHECK_QUEUE 



File name: RS *»» 



********** 



*ith URIT, they all return Z=l wnen the 



FUNCTIONS to be used 
condition is met . 

USES: the function is allowed to use only d6 and d7 

********************************************************** 



* condition: queue is empty 

* 

0000 0B40 CHECK_QUEUE EQU » 

00O00R4O 3E2R 004C MOVE.U Q_0UT(H2),D7 

00000R44 BE6R 004R CtlP.U Q IN(R2),D7 

O0OO0R48 0A3C 0004 EORI *S04,CCR 

OO0O0B4C 4E7S RTS 



(12) 

12 Z-l if empty 
20 invert the Z bit (Z«l if full) 



-> 44 
condition: DSR-1 and CTS=1 (ok to send with modem handshake 



0000 0A4E CHECK_jSR CTS EQU » 

O0OO0A4E 1E29 001D nO"VE.B MODEM STAT (fll ) ,D7 

00000B52 8C2fl 003E OR . B D7,S_M"0DEM(B2) 

00000B56 4607 NOT.B D7 

00000B58 CE7C 0030 AND #S30,D7 

O0OO0B5C 4E71 NOP 

00000B5E 4E75 RTS 



(12) 
(16 
( 4 



save modem status 
if both DSR and CT 



for user 

S were t 



*** File name: RS *** 
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2151 ***************************************************************************** 

2152 * 

2153 * Buffer routines 

2154 * 

2155 ***************************************************************************** 

2156 

2157 
2158 
2159 
2160 
2161 
2162 
2163 



2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
218S 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 



INIT_QUEUE 

initializes the queue descriptor. 



0000 0A60 INITJIJEUE EQU » 

OO000B6O 357C 0086 ' MOVE.U »BUFFER_SIZE,Q_SIZE (B2) 

0048 

OOO00R66 4 26R 004H CLR.U Q_IN(B2) 

OOO0OR6R 4,?6B 004C CLR.U Q_0UT(R2) 

00000R6E 4E75 RTS 



initialize queue_size 



* queue_in := 

* queue_out := 



QUEUE EMPTY 

tells if queue is empty. 

ON EXIT: Z=empty (IF EMPTY THEN Z:=l ELSE Z:=0) 

USES : D7 



0000 0B70 QUEUE EMPTY EQU » 

OOO0OB7O 3E2B 004C MOVE.U Q_0UT(R2).07 

OO00OB74 BE6B 004B CMP.U Q_IM(R2),D7 
00000B78 4E75 RTS 



* RETURN( queue_in = queue_out 



QUEUE FULL 




tells if queue is full. 




ON EXIT: Z=full (IF FULL THEN Z:- 


1 ELSE Z:-0) 


USES : D7 





0000 0R7B QUEUE FULL 



EQU 



00000R7R 3E2R 004B ~ MOVE.UI Q IN(R2),D7 

OO00OR7E 5247 RDDQ.U #T,D7 

0O000B8O BE6B 004C CMP.U Q 0UT(B2),O7 

OO00OA84 6S02 BNE.S CH"ECK_0R 

00000R86 4E7S RTS 

0000 OR88 CHECKJ3R EQU « 

OO0OOR88 BE6R 0048 CMP.U Q SIZE(R2),07 

00000R8C 6702 BEQ.S CHECK_RND 

OO0OOR8E 4E7S RTS 

0000 0A90 CHECK AND EQU « 

00000A90 3E2A 004C MOVE.UI Q_0UT(R2),D7 
OO0OOR94 4E75 RTS 



* queue_out = queue_in+l ? 
* 

* ( YES so return with Z=l) 

* queue_in+l = queue_size ? 
* 

* ( NO so return with Z»0 ) 

* queue_out =0 ? 

* ( ANSUER is result of function ) 
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2201 
2202 
2203 
2204 
220S 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 



INQUEUE 

puts a character in the queue 

ON ENTRY: 02. B - character to be put in the queue 

buffer NOT full ! ! 
USES : a4 . L - queue_addr 

d7.u - queue_in 



0000 0A96 INQUEUE 
00000A96 3E2A 004A MOVE.U 
0OO00A9A 1S82 704E MOVE.B 



Eau » 

Q IN(A2),D7 
D?,Q_BJFFER(B2,D7.uJ) 



OOO0OH9E 5247 



RDDQ.U »1,D7 



OOOOOHAO BESS 0048 CMP.LJ Q SIZEIB2) D7 

0O000HA4 6C06 BGE.S RESET IN 

O0O0OBA6 3547 004B MOVE.U D7,Q TN(A2) 
OOOOOBRA 4E75 RTS " 

0000 OBAC RESET IN EQU * 

OOOOOHfiC 426B 004A CLR.W Q IN(A2] 

OOOOOfiBO 4E75 RTS " 



(queue_addr+queue_in)~ := char 
queue_in := queue_in+l 

IF queue_in >= queue_size 
THEN queue^in := 



OUTQUEUE 

take the next cha^ac 



ON ENTRV 
ON EXIT 
USES 



out of the queue 



buffer NOT full 

d2.B - character from the queue 

a4 . L - queue_addr 

d7.U - queue_in 



0000 0AB2 OUTQUEUE EQU * 

00000AB2 3E2A O04C MOVE.U Q0UT(B2j,D7 

OOO0OFIB6 1432 704E MOVE.B Q~BUFFER (B2.D7 .U) ,D2 



OOOOOflBf) 5247 



ADOQ.U «1,D7 



OOOOOflBC BE6A 0048 

OOOOOACO SC06 

0OOO0FIC2 3547 004C 

0OOO0FIC6 4E7S RTS 

0000 0RC8 RESET OUT 
00O00P.C8 426H 004C CLR.U 
OOOOOfiCC 4E7S RTS 



CMP.U 

MOVE.U D7,Q_0~UT(A2) 



Q SIZE;fl2) ,W 
RESET OUT 



EQU » 
Q_0UT(A2) 



char := (queue_addr+queue_out )- 
queue_out := queue_out+l 

IF queue_out >= queue_size 
THEN queue_out := 



QUEUE_SPACE 

returns amount of space remaining in the queue 

ON EXIT: d3.U - contains the space remaining in the queue. 
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2247 » 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 
PASS 1 
PASS 2 



*** File name: RS 



0000 OACE QUEUE SPACE EQU » 

OOOOOACE 362A 004C MOVE.U Q0UT(A2),D3 

OOO0OHD2 966B 0043 SUB.U Q~IN(B2) 03 

00000AD6 6E08 BGT.S OUT GREATER 



00000AD8 5343 SU8Q U 

OOOOOAOP, D66A 0048 ADO U 
OOOOOADE 4E75 RTS 

0000 OAEO OUT GREATER 
OOOOOAEO 5343 SUBQ U 

0OO00BE2 4E7S RTS 

END 
ERRORS: 
ERRORS: 5 



*1,D3 
Q_SIZE(fi2) ,03 

EQU * 
#1,D3 



IF queue_in >= queue__out 



* THEN queue^space := 

* queue_sTze + queue_out -queue_in - 1 



ELSE queue_space := 

queue_out-queue_in - 1 
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*** File name: RS *** 


**» 68000 ASSEMBLER SYMBOL TABLE DUMP «»* 






EXTERNAL SYMBOLS 








SYMBOL 


TYPE 


DEF 


VALUE 






ABORT 10 


ABS 


113 


00000002 






CHECK TIMER 


HBS 


114 


OOOOOOOA 






DELAY TIMER 


BBS 


114 


00000007 






IODECUfiRATIONS 


HI. 


253 


OOOOOOOD 






LOGEOT 


ABS 


113 


00000005 






SYSGLOBALS 


BBS 


254 


00000011 






INTERNAL SYMBOLS 








SYMBOL 


TYPE 


DEF 


EQU SYM 


VALUE 




AO 


ARE.} 







00000000 




Al 


are; 







00000001 




A2 


are; 







00000002 




A3 


are; 







00000003 




A4 


are; 







00000004 




B5 


are; 







00000005 




A6 


ARES 







00000006 




A7 


are; 







00000007 




ABORT MODEM 


REL 


1297 




00000520 




ACK 


BBS 


511 




00000006 




ACK CHAR 


PBS 


487 




00000044 




ACK SIZE 


BBS 


514 




00000050 




ASM INIT 


REL 


541 




OOOOOOOC 




AVAIL OFF 


BBS 


193 




00000034 




BAOTMO" 


RES 


271 




OOOOOOOB 




BAD RDS 


BBS 


279 




00000013 




BAD SCT 


BBS 


280 




00000014 




BAUD" 


REL 


620 




OOOOOOBC 




BAUD SLJ 


BBS 


447 




00000005 




BUFFER SIZE 


BBS 


507 




00000086 




BUFI OFF 


BBS 


184 




00000024 




BUFO OFF 


BBS 


185 




00000028 




buf Busy 


BBS 


269 




00000009 




BUSY" EPR 


REL 


1"'3C 




00000828 




CALC DIV 


REL 


1123 




0O0O03EA 




CCR 


STREG 







00000005 




CHECK AND 


REL 


2197 




0O0O0A90 




CHECK BREAK 


REL 


1385 




0O0O05EE 




CHECK CSR CTS 


REL 


2141 




0O0O0A4E 




CHECK ERRD"R 


REL 


1845 




0O0008D8 




CHECK l-HS 


REL 


1623 




00000790 




CHECK OR 


REL 


2193 




0O0O0A88 




CHECK QUEUE 


REL 


2132 




OOOOOA40 




CHECK XFER IN 


REL 


1720 




00000818 




CHECK~XFER~OUT 


REL 


1725 




00000820 




CHECK XIN 


REL 


1493 




000006C4 




CHECK XOFF 


REL 


1429 




0000064A 




CLEAR CUT 


REL 


1694 




000007FB 




CLEAR XFER 


REL 


1687 




000007E4 




CLR XCl'T 


REL 


1357 




000005B6 




CONNECT 


REL 


1782 




0000085A 
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CONNECTED 


BBS 


477 




0000003A 




CONT 


REL 


1084 




000003AA 




CONT 1 


PEL 


1089 




000003B2 




CONT 12 


REL 


1182 




00000472 




CONT 13 


REL 


1191 




00000486 




CONT 14 


REL 


1199 




00000496 




CONT lb 


PEL 


1206 




000004AO 




CONT 16 


REL 


1210 




000004A6 




C0NT~17 


REL 


1214 




000004AC 




CONT 18 


REL 


1218 




000004B2 




CONT 19 


REL 


1222 




000004B8 




CONT 2C 


REL 


1226 




0O0004BE 




C0NT~3 


REL 


1108 




OO0003DC 




CONT 4 


REL 


1142 




00000418 




CONT 5 


REL 


1163 




0O00044C 




CONT 6 


REL 


1167 




OO0004S2 




C0NT~7 


REL 


1173 




OO00045C 




CONT 7R 


REL 


1180 




00000470 




CONT ERROR 


REL 


1080 




000003A4 




CONT TABLE 


REL 


1057 




OO0O037A 




CONV CHAR 


BBS 


488 




00000045 




CRD DUN 


BBS 


281 




00000015 




C ADR 


BBS 


183 




00000020 




DO" 


DREG 







OOOOOOOO 




Dl 


DREG 







00000001 




D2 


DREG 







00000002 




D3 


DREG 







00000003 




D4 


DREG 







00000004 




D5 


DREG 







00000005 




D6 


DREG 







00000006 




D7 


DShG 







00000007 




DATA 


BBS 


454 




00000011 




DC1 


BBS 


508 




00000011 




DC3 


ABS 


509 




00000013 




DFC 


STREG 







00000008 




DISCONNECT 


REL 


1800 




0000087E 




DIVO 


BBS 


456 




00000011 




DIV1 


BBS 


457 




00000013 




DMA ERR 


REL 


1556 




00000716 




DONT SET 


REL' 


961 




OO0O02EC 




DO BIT 4 


REL 


834 




000001E2 




DO BIT S 


REL 


839 




000001EC 




DUffP BUFFER 


REL 


1652 




OO0O07A8 




DUMP LOOP 


REL 


1656 




000007AE 




EIRB OFF 


BBS 


186 




0000002C 




END FRR 


REL 


1555 




00000716 




END ISR 


REL 


1500 




000006D2 




END RESTORE 


REL 


1986 




OO0O098E 




END STS 2 


REL 


844 




OO0001F6 




END'XIN 


REL 


1666 




OO0007C6 




END XOUT 


REL 


1339 




00000580 




ENQ 


BBS 


510 




00000005 




ENO CHPR 


BBS 


486 




00000043 




ENQ. H 


REL 


1948 




00000938 




ENQ'HANO 


PEL 


1457 




0000067E 




EOD SEEN 


PBS 


282 




00000016 




ERRffR EXIST 


REL 


1849 




000008EO 
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ERROR INTR 

ESC CCTDE 

EXIT 14 

EXIT CI 

EXIT C* 

EXIT CONNECT 

EXIT DUMP 

EXIT TFR 

EXIT UHIT 

GET CHAR 

HAND" TABLE 

H_ISE_PM 

M ISR PR 

H ISR~SL 

H TflBtE 

ID" REG 

IGNORE PE 

INITHLC 

INIT OUEUE 

INPUT_END 

INPUT INTR 

INPUT XFER 

INQUEtJE 

INTR_EN 

INTR EXIST 

INTR~ID 

INTR_SU 

INTR_TABLE 

INTR XFER 

IN 1ST? 

IOE"SCAPE 

IOE ERROR 

TOE RSLT 

IOE SC 

IO_RlSC 

10 SC 

IS2"1 

IS43 

IS77 

IS8S 

ISR ENTRY 

LINE" CONT 

LINE_STAT 

LINE SU 

L00P~LAST 

LOOP THRE 

MR U 

MOD"EM CONT 
MODEfTlNTR 
MODEM ON 
MODEM STAT 
MOVE 0"UT 
NOT_HPIB 
NOT_ISR 
NOT LSTN 
NOT TALK 



QUEUE UTILITIES 
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REL 


1285 


00000502 


BBS 


290 SY5GL0BPLS + 


FFFFFFFE 


REL 


1204 


0000049E 


REL 


1106 


0OOO03DR 


REL 


1161 


0000044H 


REL 


1791 


0000087C 


REL 


1675 


000007DC 


REL 


1631 


000007A6 


REL 


2097 


OOOO0A1A 


REL 


1920 


00000918 


REL 


1407 


00000616 


BBS 


182 


0000001C 


ABS 


190 


00000014 


PBS 


181 


00000018 


REL 


1939 


00000930 


HBS 


445 


00000001 


HBS 


489 


00000046 


REL 


591 


0000007E 


REL 


2162 


00000A60 


REL 


1483 


000006B6 


REL 


1367 


000005CA 


REL 


1586 


00000744 


REL 


2210 


00OO0A96 


ABS 


455 


00000013 


REL 


1267 


0OOO04EA 


ABS 


458 


00000015 


ABS 


446 


00000003 


REL 


1274 


000004FA 


REL 


1576 


00000738 


AES 


475 


00000038 


REL 


1745 


0OOO082E 


AES 


285 


FFFFFFE6 


AES 


287 IODECLP.RATIONS + 


FFFFFFBE 


AES 


288 IODECLARATIONS ♦ 


FFFFFFBA 


ABS 


283 


00000017 


ABS 


187 


0000002D 


REL 


881 


00000248 


REL 


877 


0000023C 


REL 


873 


00000230 


REL 


869 


00000224 


ABS 


178 


00000000 


ABS 


459 


00000017 


ASS 


461 


0000001B 


BBS 


448 


00000007 


REL 


1345 


00000592 


REL 


2008 


0000099P 


ABS 


192 


00000033 


ABS 


191 


C0000032 


ABS 


460 


00000019 


REL 


1291 


00000514 


ABS 


478 


0000003B 


ABS 


462 


0000001D 


REL 


1327 


00000562 


ABS 


262 


00000002 


REL 


2030 


000009C4 


ABS 


276 


00000010 


ABS 


275 


OOOOOOOF 
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NO P.CTL 

NO_CARD 

NO CONVERT 

NOJATP. 

NOJMA 

NO_DRV 

NO_DVC 

NO HAND 

NO SCTL 

NO_SPHCE 

NOJJORD 

OK XMIT 

OUTPUT INTR 

OUTPUT"~XFER 

OUT QUEUE 

OUT GREATER 

OVERRUN 

OVERRUN_ERROR 

PUTINQ 

QUEUE EMPTY 

QUEUE FULL 

QUEUE SPACE 

Q BUFFER 

Q DESCRIPT 

Q IN 

Q OUT 

Q SIZE 

RCVR BLK 

ROIVU" 

READ END 

READ UART 

RECETVING 

REGULAR 

REG MAX 

RESET IN 

RESET OUT 

RESET REG 

RESTORE 

ROUND 

RS_RS 

RS„RS_INIT 

RSJRS ISR 

RS RS RDB 

RS_RS"RDS 

RS RS RDU 

RS_RS TFR 

RS_RS UTB 

RS_RS UTC 

RS RS"~UTU 

SC~BU5Y 

SEND 

SEND ACK 

SEND HAND 

SER FHS 

SETRLL 

SET BIT 

SET OUT 
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ABS 


263 


00000003 


ABS 


261 


00000001 


REL 


1398 


00000608 


ABS 


266 


00000006 


ABS 


273 


OOOOOOOD 


ABS 


272 


OOOOOOOC 


ABS 


264 


00000004 


REL 


1477 


000006PC 


ABS 


278 


00000012 


3B3 


265 


00000005 


ABS 


274 


OOOOOOOE 


REL 


1880 


000008FE 


REL 


1303 


00000532 


REL 


1607 


00O0076H 


REL 


2233 


0OOO0HB2 


REL 


2261 


OOOOOAEO 


RE. 


1487 


000006BC 


ABS 


513 


0000013A 


RE_ 


1478 


OOOO06AC 


RE- 


2175 


0OOO0A7O 


RE. 


2187 


00000A7A 


REL 


2253 


OOOOOACE 


ABS 


495 


OOOO004E 


ABS 


491 


00000048 


ABS 


493 


0000004A 


ABS 


494 


0000004C 


ABS 


492 


00000048 


ABS 


291 SYSGLOBALS 


+ FFFFFFF6 


REL 


1760 


00000844 


REL 


1989 


00000992 


REL 


923 


0000029A 


HBS 


479 


0000003C 


REL 


885 


00000254 


HBS 


517 


00000014 


REL 


2220 


OOOOOAAC 


REL 


2243 


O0OOOAC8 


PBS 


444 


00000001 


REL 


1975 


00000968 


REL 


1770 


00000854 


REL 


434 


00000000 


REL 


526 


00000002 


REL 


1.244 


000004D4 


REL 


644 


OOOOOODC 


REL 


758 


00000166 


REL 


701 


0000011A 


REL 


1511 


00000608 


REL 


673 


OOOOOOFC 


REL 


1031 


00000353 


REL 


728 


00000140 


HBS 


268 


00000008 


REL 


2003 


00000994 


REL 


1466 


00000698 


REL 


1970 


00000956 


REL 


1S70 


0000072A 


REL 


608 


0OOO0OA8 


REL 


831 


0000010E 


REL 


1710 


00000812 
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SET XFEE' 


REl 


1704 


SFC 


STREG 





SOFT RESET 


REL 


1815 


SP 


BREG 





SR 


STRFG 





STS 


REL 


313 


STS 1 


REl 


817 


STS 10 


RE. 


34 6 


STS 11 


RE 


365 


STS 12 


RE. 


979 


STS 13 


REL 


98? 


STS 14 


RE. 


387 


STS 15 


REu 


998 


STS 16 


REL 


1002 


STS 17 


REl. 


1006 


STS 18 


REl 


1010 


STS 19 


REL 


1014 


STS 2 


RE: 


821 


STS 20 


RE 


1018 


STS 3 


REl 


848 


STS"4 


REl 


894 


STS 5 


REL 


905 


STS 6 


RE. 


909 


STS 7 


RE. 


927 


STS 7B 


RE. 


935 


STS 8 


RE, 


338 


STS 9 


RE. 


942 


STS ERROR 


RE. 


809 


STS TABLE 


RE. 


786 


SVSFLBG.' 


HflS 


294 


S ERROR 


A3S 


474 


S HRNDSH 


BBS 


483 


S LINE 


ass 


432 


S~MOOEH 


BBS 


481 


TffCT OFF 


ABS 


208 


TBSZ OFF 


ABS 


231 


TBUF OFF 


P33 


230 


TCHR OFF 


R3S 


227 


TCNTERR 


«'■ 


270 


TCNT OFF 


PBS 


229 


TDIR OFF 


BBS 


225 


TEMP OFF 


rbs 


2 32 


TEMP SUE 


RBS 


606 


TEND OFF 


ASS 


223 


TERM HRND 


RE. 


1440 


TFIL OFF 


BBS 


233 


TFR FRR 


fl3? 


267 


TIMFOUT 


BBS 


188 


TIMER PRESENT 


PBS 


293 


TMO ER~R 


BBS 


277 


TTMP OFF 


BBS 


206 


TT BURST 


pas 


244 


TT DMA 


PBS 


24 3 


TT FHS 


PBS 


24b 


TT INT 


PBS 


242 


TUSR off 


PBS 


209 


T BU OFF 


PBS 


221 
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00000800 
00000009 
00000896 
00000007 
00000006 
0O0O01BC 
000001C2 
000O02C6 
000002FO 
00000310 
00000316 
0000031C 
00000334 
0000033B 
00000340 
00000346 
0000034C 
000001C8 
00000352 
000001FA 
00000262 
00000276 
0000027C 
000002A0 
000OO2B6 
000O02BA 
000002CO 
000001B6 
0O0O018C 
FFFFFEDA 
00000034 
00000040 
0000003F 
0000003E 
00000007 
00000018 
00000014 
OOOOOOOE 
OOOOOOOB 
000O0O1O 
OOOOOOOD 
0000001C 
OOOOOOAO 
OOOOOOOB 
000006SE 
00000020 
00000007 
0O0O0O2E 
00000001 
00000011 
00000000 
00000003 
00000002 
00000004 
00000001 
00000009 
OOOOOOOA 
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00000030 
0000002C 
00000024 
00000005 
00000028 
0000005F 
00000014 
00000007 
00000480 
000004CE 
OOOOOOOA 
000009D8 
000003C2 
000003D4 
0000079E 
00000906 
000009F8 
0O0O0A10 
000008F8 
0O0OOA3C 
0O0OOB1C 
0O0O0A22 
00000720 
00000716 
00000542 
00000702 
00000039 
0000003D 
000009DO 
00000042 
00000028 
00000041 
00000948 
0000061E 
0000005E 
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T DMAPRI 


PBS 


238 


T~PH OFF 


BBS 


2 37 


T PR OFF 


BBS 


234 


T SC OFF 


CBS 


207 


T SL OFF 


BBS 


236 


UNDERSCORE 


PBS 


Sit: 


USER ISR 


BBS 


179 


USP 


STREG 





VAL ERR 


REL 


1187 


VAL ERR2 


REL 


1233 


VBR 


STREG 





UAIT 


REL 


2061 


WAIT BREAK 


REL 


1097 


UAIT BREAK2 


REL 


1104 


UAIT FHS 


REL 


1628 


UAIT GET 


REL 


1895 


UAIT LOOP 


RE 


207S 


UAIT L00P2 


REL 


2 091 


UAIT SEND 


REL 


1869 


UAIT TEXIT 


REL 


2114 


UAIT TMR 


REL 


2100 


UAIT TMR1 


REL 


2103 


UORO ERR 


REL 


1562 


XFER ERR 


REL 


1557 


XFER OUT 


REL 


1315 


XFER TfiBLE 


REL 


1539 


XIN ffCT 


BBS 


476 


XMITTING 


BBS 


480 


XMIT CHAR 


REL 


203S 


XOFF CHAR 


BBS 


485 


X0FF~SI.2E 


ABS 


515 


XON CHAR 


ABS 


484 


XON H 


REL 


1961 


XON HAND 


REL 


1413 


XON SIZE 


ABS 


516 
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RSTRINT 



Description 

RSTRINT implements the conversion of a string of digits into an integer. 



Usage 

The Compiler emits a call to this routine for STRREAD of an integer. 
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PBGE 1 [3.0] 12/26/84 21:44:43 ASSEMBLY OF RSTRINT.TEXT **« File name: RSTRINT *** 

PASS 1 COMPLETE. ERRORS: 

1 def fs_f readst rint 

2 refa sysglobals 
3 

4 FFFF FFEA ioresult equ sysglobals-22 

5 0O0O OOOE ibadformat equ 14 improper syntax for an integer 
6 

7 0000 0000 error equ 00 ioresult 

8 0000 0001 remainder equ Dl characters left in string 

9 OOOO 0002 index equ D2 subscript into string 

10 0000 0003 char equ D3 character in question 

11 0000 0004 int equ D4 integer being built 

12 0000 0005 sign equ D5 minus flag 

13 0000 0006 oldindex equ D6 original value of index 

14 0000 0007 temp equ 07 
15 

16 0000 0000 return equ AO subroutine return address 

17 0000 0001 I equ PI address of integer to be returned 

18 0000 0002 aindex equ A2 address of index into string 

19 0000 0003 string equ A3 address of source string 
20 

21 0000 0000 fs_f readstrint equ * 

22 00000000 205F movea.l (sp)+, return 

23 00000002 225F movea.l sp)*,I 

24 00000004 245F movea.l (sp +, aindex 

25 00000006 265F movea.l (sp)*, string 
26 

27 00000008 7600 moveq *0,char sign extend digits 

28 0000000A 7200 moveq #0 , remainder 

29 0000000C 1213 move.b (St ring) , remainder get current length of string 

30 0000000E 2412 move.l (aindex .index get subscript into it 

31 00000010 2C02 move.l index, oldindex save in case of error 

32 00000012 6F06 ble.s LO error if < 1 

33 00000014 D6C2 adda index, string advance to first interesting character 

34 00000016 9282 sub.l index, remainder how many characters have we left? 

35 00000018 6C0A bge.s LI 

36 0000001P. 700E LO moveq #ibadf ormat ,er ror index is past end of string! 

37 0000001C 6058 bra.s endit 
38 

39 0000001E 5242 L2 addq tl, index bump user index 

40 00000020 5341 subq #1, remainder any more characters? 

41 00000022 6DF6 bit .s LO 

42 00000024 1618 LI move.b (St ring) + , char 

43 00000026 B63C 0020 cmp.b t' ',char skip spaces 

44 0000002A 6/F2 beq.s L2 

45 . . 

46 0000002C 50C0 St error assume error until see digit 

47 0000002E 7800 moveq »0,int initialize value 

48 

49 00000030 B63C 002D cmp.b #'-',char is it a minus? 

50 00000034 57C5 seq sign 

51 00000036 6706 beq.s L3 

52 00000038 B63C 002B cmp.b »'*',char is it a plus? 

53 0000003C 6608 bne.s L4 
54 

55 0000003E 5242 L3 addq tl, index bump user index 

56 00000040 5341 subq #1, remainder anymore characters? 

57 00000042 6024 bit .s L5 

58 00000044 161FJ move.b (St ring) *, char 



PBGE 2 [3.0] 12/26/84 21:44:43 ASSEMBLY OF RSTRINT.TEXT *»* File name: RSTRINT »*» 

59 00000046 963C 003Q L4 sub.b »'0',char is it a digit 

60 0000004B 6D1C bit .s L5 

61 0000004C B63C 00O9 cmp.b #9, char 

62 00000050 6E16 bgt .s L5 

63 00000052 51C0 sf error no error, at least one digit 
64 

65 00000054 0884 add . 1 int, int multiply integer by 10 

66 00000056 69C2 bvs.s LO 

67 00000058 2E04 move.l int. temp 

68 0000005A E584 asl.l #2, int 

69 0000005C 69BC bvs.s LO 

70 0000005E 0887 add.l temp, int 

71 00000060 6988 bvs.s LO 
72 

73 00000062 9883 sub.l char, int add value of digit 

74 00000064 6808 bvc.s L3 go back for more 

75 00000066 60B2 bra.s LO 
76 

77 00000068 4S00 L5 tst.b error were there any digits? 

78 0000006A 6SPIE bne.s LO 

79 OOO00O6C 4A0S tst.b sign was it positive 

80 O0O00O6E 6604 bne.s L8 

81 00000070 4484 neg.l int make it positive 

82 00000072 69A6 bvs.s LO 

83 00000074 7000 L8 moveq #0, error all done, no errors 
84 

85 

86 00000076 2B40 FFEfl endit move.l error, io result (aS) 

87 O0O00O7P, 6704 beq.s ok 

88 0000007C 2406 move.l oldindex , index 

89 0OO00O7E 7800 moveq #0,int 

90 00000080 2482 ok move.l index, (aindex) 

91 00000082 2284 move.l int, (I) 

92 00000084 4ED0 imp (return) 
93 

94 nosyms 

95 end 
PASS 1 ERRORS: 

PASS 2 ERRORS: 
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SCAN 



Description 

This routine scans a contiguous area of memory, comparing each byte against a test character. 



Usage 

The Compiler emits calls to this routine. 
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PhGE 



1 [5,0] 12/26,84 
ERRORS: 



PASS 1 COMPLETE 
1 
2 
3 
4 
5 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
25 
27 
28 
29 
30 
31 
32 
33 
3.1 
35 
36 
37 
38 
39 
40 
41 
42 
13 



44 
45 
46 
47 
48 
4 9 
50 
51 
52 
53 
54 
55 
56 
57 
PASS 1 



00000000 
00000002 
00000004 
00000006 
00000008 
OOOOOOOB 
OOOOOOOC 
OOOOOOOE 
0000001O 
00000012 
00000014 
00000016 
00000018 
0000001H 
OOOOOOIC 
0000001E 
00000020 
00000022 
00000024 
00000026 
00000028 
0000002B 
0000002C 
0000002E 
00000030 
00000032 
00000034 
00000036 
00000038 
00000O3H 
0000003C 
0000003E 
00000040 
00000042 
00000044 
00000046 
00000048 
0000004B 
0000004C 



235 F 
201F 
12 1 F 

205 F 
341F 
7600 
4660 
673B 
6D1C 
4fl42 
650C 
0218 
6730 
5283 
5380 
66 f 3 
6028 
B218 
6624 
528 i 
6383 
66F-3 
601C 
5288 
4P4 2 
5506 
6220 
6712 
5383 
6280 
6666 
6000 
B220 
660-3 
633 1 
52 63 
66 66 
2F0.J 
4ED4 



■1:44:58 ASSEMBLY OF SCAN. TEXT 


******** *mvttt^^ffftl*ttt * JSJIJJ**tt»*^l * ************ 
* 

* SCAN function -- equivalent to UCSD SCAN 

* --written for 6168000 by , 10/80 

* Parameters are: 



*** File name: SCAN 



(SP) 
4(SP) 

e(SP) 
10 SP) 
14JSP) 



return address 

count -- may be < 0, long word 

character to match 

address to start scan 

-/<> flag coded as 0/1 



Note: no range checking is performed within this function ! 
******************************************************** ********** 



OEF ASM 
ASM_SCBN MOVEA.L" 
flOVE.L 
nOVE.B 
MOVEfi.L 
MOVE 
MOVEQ 
TST.L 
BEQ.S 
BLT.S 
TST.U 
BNE.S 
CMP.B 
BEQ.S 
ADDQ.L 
SUBQ.L 
BNE 
BRB.S 
SC@N2 CMP.B 

BNE.S 
ADDQ.L 
SUBQ.L 
BNE 
BRA.S 
BACKSCHN ADDQ.L 
TST.U 



26SN1 



SC@N3 



BNE.S 

CMP.B 

BEQ.5 

SUBQ.L 

ADDQ.L 

BNE 

8RA.S 

CMP.B 

BNE.S 

SUBQ.L 

ADDQ.L 

BNE 

MOVE.L 

JMP 

END 



,D1 



,D1 



A4) 



SCAN 

"(SP)*,A4 
(SP)*,DO 
(SP)*,D1 
(SP)+,BO 
(SP +,D2 
#0,D3 
DO 

EXIT 

BACKSCHN 
D2 
SC(?N2 

&w 

#1,D3 
#1,D0 
SClSNl 
EXIT 

eSiT 

#1,D3 

#1,00 

SC@N2 

EXIT 

#1,A0 

D2 

SC@N4 

-(BO) ,D1 

EXIT 

#1,D3 

ttl.DO 

SC@N3 

EXIT 

-(A0),D1 

EXIT 

*1,D.! 

#1 .06 

SC9N4 

03, -(SP) 



GET RETURN ADDRESS 

GET COUNT 

GET CHARACTER TO MBTCH 

GET START ADDRESS OF SCAN 

GET =/<> FLAG WORD 

INITIALIZE RESULT 

CHECK FOR ZERO COUNT 

RETURN IF COUNT=0 

IF NEGATIVE COUNT SCAN BBCKUPRDS 

CHECK =/<> FLAG TO SELECT LOOP 

LOOK FOR MBTCH 
IF FOUND THEN DONE 
8UMP RESULT 
KEEP COUNT 

IF DONE THEN GET OUT 

THIS LOOP IS JUST LIKE THE ONE ABOVE 

EXCEPT FOR THIS TEST 



KLUDGE ADDRESS SINCE WE'LL DECREMENT IN LOOP 

CHECK FOR <> BACKWARD SCBN 
LOOK FOR MBTCH 
DONE IF FOUND 
DECREMENT RESULT 
KEEP COUNT 



PUT RESULT ON THE STACK 
GOTO RETURN ADDRESS 



PAGE 2 [3.0] 12/26/84 21:44:58 ASSEMBLY OF SCAN. TEXT 
PASS 2 ERRORS: 



File name : SCAN *** 
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PAGE 3 [3.0] 12/26/84 21:44:58 ASSEMBLY OF SCAN. TEXT 
«»» 68000 ASSEMBLER SYMBOL TABLE DUMP *** 

EXTERNAL SYMBOLS 
*** NO EXTERNAL SYMBOLS *«* 
INTERNAL SYMBOLS 



File name: SCAN 



SYMBOL 


TVPE 


DEF EQU SYfl VALUE 


BO 


BREG 





00000000 


Al 


BREG 





00000001 


B2 


BREG 


c 


00000002 


A3 


RREG 





00000003 


B4 


BREG 





00000004 


A5 


BREG 





00000005 


A6 


BREG 





00000006 


A7 


BREG 





00000007 


ASM SCAN 


REL 


18 


00000000 


BACKSCAN 


REL 


41 


0000002E 


CCR 


STREG 





00000005 


DO 


DREG 





00000000 


Dl 


DREG 





00000001 


D2 


DREG 





00000002 


03 


DREG 





00000003 


D4 


DREG 





00000004 


D5 


DREG 





00000005 


D6 


DREG 





00000006 


D7 


DREG 





00000007 


OFC 


STREG 





00000008 


EXIT 


REL 


55 


0000004B 


SC@N1 


REL 


29 


00000016 


SC@N2 


REL 


35 


00000022 


5MN3 


REL 


44 


00000034 


SC@N4 


REL 


50 


00000040 


SFC 


STREG 





00000009 


SP 


BREG 





00000007 


SR 


STREG 





00000006 


USP 


STREG 





00000007 


VBR 


STREG 





OOOOOOOB 
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SETSTUFF 



Description 

SETSTUFF contains assembly language to perform set assignment and adding an element to a set. 



Usage 

The Compiler emits calls to these routines. 
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PAGE 1 [5.0] 12/26/84 21:45:04 ASSEMBLY OF SETSTUFF . TEXT 



File name: SETSTUFF ** 



PASS 1 
1 
2 
3 
4 
5 
6 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 



COMPLETE. ERRORS: 



00000O0O 266F 0304 
00000004 236F 0008 

00000008 3E1B 
OOOOOOOfi 3887 
OOOOOOOC 6766 
OOOOOOOE 302F OOOC 
00000012 672C 
00000014 7400 
00000016 3607 
00000018 244B 
0000001A 4A1A 
0000001C 660A 
0000001E 5242 
00000020 5343 
00000022 6EF6 

00000024 4254 
00000026 604C 

00000028 E74A 
OO00OO2H B042 
O0000O2C 6F12 



DEF asm_SETB55IGN 



asm SETASSIGN EQU * 

* ob~tain sets from stat 

movea . 1 
moves . 1 

* place size in (37 



ioopl 



NZbyte 



00000O2E 162A FFFF 
00000032 E308 loop2 
00000034 6504 
00000036 5242 
00000038 60F8 

O0000O3A B042 NZbit 
0O000O3C 6F02 
OO0OOO3E 4E47 

00000040 322F OOOE testhigh 

00000044 3633 70FE lastwo'rd 

00000048 6608 

0000004A 5547 

0000004C 6EF6 

0000004E 4254 

00000050 6022 



00000052 3407 
00000054 E74B 
00000056 5342 
00000058 E24B 
0000005A 64FA 

OOOOOOSC B242 
0000005E 6C02 
00000060 4E47 

00000062 38C7 



NZwo rd 
loop3 



beq . s 
moveq 
move ,w 
movea . 1 
tst .b 
bne . s 
addq .w 
subq .w 
bgt .s 

clr.w 
bra . s 

lsi .w 
cmp.w 
ble.s 

move .b 
lsl.b 
bcs . s 
addq .w 
bra . s 

cmp .w 
ble.s 
t rap 

move .w 
move .w 
bne . s 
subq .w 
bgt . s 
clr.w 
bra . s 

move .w 
lsl.w 
subq .w 
lsr .w 
bcc . s 



cmp.w 
bge . s 
t rap 
* perform assignment 
ok move.w 



4(sp) ,a3 
8(sp) ,a4 

(a3)*,d7 

d7, (a4) 

done2 

12 (sp) ,dO 

testhigh 

#0,d2 

d7,d3 

a3,a2 

(a2)* 

NZbyte 

#l,d2 

#l,d3 

loopl 

(a4) 
done2 

#3,d2 
d2,d0 
testhigh 

-l(a2) ,d3 

*l,d3 

NZbit 

*l,d2 

loop2 

d2,d0 
testhigh 



14(sp) ,dl 

-2(a3,d7.w),d3 

NZword 

#2,d7 

lastword 

(a4) 

done2 

d7,d2 
*3,d2 
#l,d2 
#l,d3 
loop3 

d2,c: 
ok 

#7 

d7, (a4)t 



address of source 
address of dest 

size of source 
store size in dest 
check for zero length set 
dest min 

zero count 



find nonzero byte 



byte count * 



get first nonzero byte 
nonzero bit found 



dest max 

get last word of set 



set was empty 
byte count * 8 

last nonzero bit found 
error 
store size in dest 



GE 2 [3.0] 12/26/84 21:45:04 ASSEMBLY OF SETSTUFF .TEXT 

59 00000064 E447 

60 00000066 6406 

61 00000068 38DB 

62 0O000O6A 4A47 

63 0000006C 6706 

64 0000006E 28DB EVENN 

65 00000070 5347 

66 00000072 6EFB 

67 00000074 2C5F D0NE2 

68 00000076 DFFC 0000 

OOOC 

69 0000007C 4ED0 jmp ( aO ) 



**» File name: SETSTUFF 



asr.w 


#2,d7 


bcc . s 


evenn 


move .w 
tst .w 


(a3)+,(a4) 

d7 


beq . s 


done2 


move . 1 
subq .w 


(a3)+,(a4) 

#l,d7 


bgt.s 


evenn 


movea. 1 
adda .1 


(sp)+,aO 
#12, sp 



determine size in long words 

even number of long words 
move "odd" word 
min size single word? 

move long words 
eliminate extra bytes in stack 
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«** File name: SETSTUFF 



71 
72 
73 
74 
75 
76 
77 

78 

79 

80 

SI 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

118 

117 

118 

PASS 1 

PASS 2 



OEF asm_aDELEriENT 



0000 007E 
0000007E 205F 
00000080 201F 

00000082 0C80 0000 

OOFF 
00000088 6302 
0000008A 4E47 
0000008C 225F 
0000008E 24S7 
00000090 3E19 
00000092 34C7 
00000094 83CB 
00000096 670C 

00000098 264H 

000O0O9A 3C07 

0000009C 6F06 

0000009E 36D9 

OOOOOOPO 5546 

0OOO0OA2 6EFA 



0OO00OB4 
00OO0OB6 
OOOOOOAfl 
OOOOOOBC 
OOOOOOBE 
00O00OB2 
0OO00OB4 
0OO00OB6 
OOO00OB8 
OOOOOOBA 
OOOOOOBC 
OOOOOOCO 
O0O00OC2 
O00O0OC6 
OOOOOOCA 
OOOOOOCC 
OOOOOOCE 
00000000 
000000D4 
OOO0OCD6 
OOOOOODfl 
OOOOOODC 
OOOOOOEO 



ERRORS: 
ERRORS: 



48C0 

81FC 
2R00 
4845 
9A7C 
4445 
E340 
3200 
5441 
3401 
926A 
6F0E 
3542 
47F2 
4 263 
5541 
6EFA 
0885 
6706 
0BF2 
4ED0 
0BF2 
4ED0 



0010 
OOOF 



FFFE 

2000 



0003 
0000 

0001 



asm_aDELEMENT EQU 
movea . 1 
move . 1 
cmpi . 1 

bls.s 

trap 
si rt movea.l 

movea . 1 
move .w 
move .w 
cmpa . 1 
beq . 5 

* copy source set 
setcopy movea . 1 

move -w 
ble.s 
rept move.w 

subq .w 
bgt.s 

* insert an elemer 
insert ext . 1 

divs 
move . 1 
swap 
sub .w 
neg.w 
asl 

move .w 
addq .w 
move .w 
sub .w 
ble.s 



#7 



(sp) 

m 



St rt 



,a0 

,d0 

do 



skiipp 



lea 

clr.w 

subq .w 

bgt.s 

bclr 

beq . s 

bset 

jmp 

bset 

jmp 



(sp *,al 
(»P ,a2 
(al)+,d7 
d7,(a2)* 
a2,al 
insert 
tne destination 
a2,a3 
d7,d6 
inse r t 
(al)»,(a3)+ 
#2,d6 
rept 
in a set 
dO 

*16,d0 
d0,d5 
dS 

#15, d5 
dS 

#1 ,d0 
dO,dl 
#2,dl 
dl ,d2 
-2(a2) ,dl 
exxiit 
d2,-2(a2) 
0(a2.d2) ,a3 
-(a3 : ) 
#2,d: 
zerout 
#3,dS 
skiipp 
dS,0'a2,dO) 
(a6) 

dS.l (a2,d0) 
(a6) 



return address 
element number to add to set 



source address 

destination address 

get set size of source 

store size value 

see if source and destination ere equal 



save destination address 

save size for destination 

check for size of zero 

sets are always an even number of bytes 



adjusting the size of the destination if needed 

byte offset in low word 

bit offset from left of byte 

bit offset from right 

make dO a byte offset 

compute final size into dl 

put zeros in the two bytes containing 

the new bit if it is beyond current size 



store appropriate size for set 



< received upgrade 9/9 > 



end 
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*** 68000 ASSEMBLER SYMBOL TABLE DUMP ««» 

EXTERNAL SYMBOLS 
«»* NO EXTERNAL SYMBOLS **» 

INTERNAL SYMBOLS 



«** File name: SETSTUFF *** 



SYMBOL 


TYPE 


DEF EQU SYM VALUE 


BO 


PREG 





00000000 


Al 


AREG 





00000001 


A2 


BREG 





00000002 


A3 


AREG 





00000003 


A4 


AREG 





00000004 


AS 


AREG 





00000005 


A6 


AREG 





00000006 


A7 


AREG 





00000007 


ASM ADELEMENT 


REL 


74 


0000007E 


ASM SETASSIGN 


REL 


4 


OOOOOOOO 


CCR~ 


STREG 





00000005 


DO 


DREG 





OOOOOOOO 


Dl 


DREG 





00000001 


D2 


DREG 





00000002 


D3 


DREG 





00000003 


D4 


DREG 





00000004 


D5 


DREG 





00000005 


D6 


DREG 





00000006 


D7 


DREG 





00000007 


DFC 


STREG 





00000008 


D0NE2 


REL 


67 


00000074 


EVENN 


REL 


64 


0000006E 


EXXIIT 


REL 


111 


0O0O00DO 


INSERT 


REL 


94 


0O0000A4 


LASTUORD 


REL 


41 


00000044 


L00P1 


REL 


17 


0000001A 


L00P2 


REL 


31 


00000032 


L00P3 


REL 


50 


00000066 


NZBIT 


REL 


36 


0000003A 


NZBYTE 


REL 


26 


00000028 


NZUORD 


REL 


48 


00000052 


OK 


REL 


58 


00000062 


REPT 


REL 


90 


0000009E 


SETCOPY 


REL 


87 


00000098 


SFC 


STREG 





00000009 


SKIIPP 


REL 


115 


OOOOOODC 


SP 


BREG 





00000007 


SR 


STREG 





00000006 


STRT 


REL 


80 


0000008C 


TESTHIGH 


REL 


40 


00000040 


USP 


STREG 





00000007 


VBR 


STREG 





0OOOO0OA 


ZEROUT 


REL 


108 


OOOOOOCA 
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STRG1 



Description 

STRGl contains assembly language routines to support the standard Pascal functions: 

• STRLTRIM 

• STRRTRIM 

• STRRPT 

• STRMOVE 



Usage 

The Compiler emits calls to these routines. 
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PRGE 


1 13.0] 12 


/26/S4 21 : 


45:12 


ASSEMBLY 


OF STRG1 .TEXT 


*** File name: STRG1 »»« 


PASS 1 


COMPLETE. 


EFRORS: 










1 




0000 


0000 


RET 


EQU 


AO return address 




2 




0000 


0C01 


SflDDR 


EQU 


Al source address 




3 




0000 


0002 


DADDR 


EQU 


A2 destination address 




4 




0000 


0003 


SRCEND 


EQU 


A3 source end 




5 
6 
7 




0000 


0004 


ATEMP 


EQU 


A4 temporary A register 






0000 


0000 


SLEN 


EQU 


DO source length 




8 




0000 


0001 


SINDEX 


EQU 


Dl source index 




9 




oooo 


O0O2 


CURSLEN EQU 


D2 current source length 




10 




0000 


0003 


DINDEX 


EQU 


D3 destination index 




11 




0000 


0004 


DMAX 


EQU 


D4 destination max 




12 




[000 


0005 


COUNT 


EQU 


D5 




13 




cooo 


0005 


INDEX 


EQU 


D5 string index 




14 




rooo 


0006 


TEMPI 


EQU 


D6 temporary D register 




15 




0000 


0007 


TEMP2 


EQU 


D7 temporary D register 




18 








* 








17 










ref a 


SYSGLOBALS 




18 




FFFF 


F-FFE 


ESCAPECODF; EQU 


SYSGLOBALS-2 




19 








* 








20 








* 








21 








* 








22 








* procedure psubtopsub (dsublen : integer; 




23 








* 




var dsub: paoctype; 




24 








* 




dindex: integer; 




25 








* 




ssublen: integer; 




26 








* 




var ssub: paoctype; 




27 








* 




sindex.slen: integer); 




28 








X 








29 




0000 


0000 


ASM_PS 


UBTOPSUB 


EQU * 




30 










def 


ASM_PSUBTOPSUB 




31 








* 








32 


00000000 


206F 






movea . '. 


(sp)+,RET 




33 


00000002 


201F 






move . 1 


(sp)*,SLEN 

llLli 




34 


00000004 


6E08 






bgt . s 




35 


00000006 


OFFC 


0000 




adda.l #24, sp 








0018 












36 


oooooooc 


4ED0 






imp (RET! 




37 


0000000E 


221F 




LLLL 1 


move . 1 


(sp)*, SINDEX 




38 
39 
40 


00000010 


6F00 


0088 




ble 


error 




00000014 


225F 






movea . 1 


(sp)*,SAQDR 




41 


00000016 


241F 






move . 1 


sp)*. CURSLEN 




42 


00000018 


C48C 
0001 


0000 




add.l 


#1, CURSLEN 




43 


0000001E 


2C01 






move . 1 


SINOEX, TEMPI 




44 


00000020 


CC80 






add.l 


SLEN, TEMPI 




45 


00000022 


B486 






cmp. 1 


TEMPI, CURSLEN 




46 
47 
48 


00000024 


6D74 






bit. s 


error 




00000026 


261F 






move . 1 


(sp)*, DINDEX 




49 
SO 
51 


00000028 


6F70 






ble . s 


error 




0000002A 


2C03 






move . 1 


DINDEX, TEMPI 
SLEN, TEMPI 




52 


0000002C 


CC8C 






add.l 




53 


0000002E 


24SF 






movea . 1 


(sp)+, DADDR 




54 


00000030 


281F 






move . 1 


(sp)*,DMAX 
#1,DMAX 




55 


00000032 


S8BC 


0000 




add.l 








0001 
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56 


00000038 


B886 






cmp. 1 


TEMPI, DMAX 




57 
58 
59 


0000003A 


6D5E 






bit .5 


er ror 




0000003C 


43F1 


10FF 




lea 


-1(SA0DR, SINDEX. U) ,SADDR 




60 


00000040 


45F2 


30FF 




lea 


-KDflODR, DINDEX. U) , DADDR 




61 


00000044 


6000 


OOAO 




bra 


TRANSFER 




62 








* 








63 








* 








64 








* 








65 








* procedure ssubtopsub (dsublen : integer; 




66 








* 




var dsub: paoctype; 




67 








* 




dindex: integer; 




68 








* 




var ssub: string; 




69 








* 




sindex,slen: integer); 




70 








* 








71 




0000 


0048 


ASM_SSUBTOPSUB 


EQU » 




72 










def 


ASM_SSUBTOPSUB 




73 








* 








74 


00000048 


205F 






movea . 1 


(sp)*,RET 




75 


0000004A 


201F 






move . 1 


sp)*,SLEN 
LLL1 




76 


0000004C 


6E08 






bgt .5 




77 


0000004E 


DFFC 


0000 




adda.l #22. sp 








0016 












78 


00000054 


4ED0 






imp (SET! 




79 


00000056 


221F 




LLL1 


move . 1 


(sp)+, SINDEX 




80 
81 
82 


00000058 


6F40 






ble. 5 


error 




0000005H 


225F 






movea. 1 


(sp)+,SADDR 
#0. CURSLEN 
(SADDR), CURSLEN 
#1, CURSLEN 




83 


0000005C 


7400 






moveq 




84 


OOOOOOSE 


1411 






move.b 




85 


00000060 


5242 






addq.w 




86 


00000062 


2C01 






move . 1 


SINDEX, TEMPI 




87 


00000064 


DC80 






add.l 


SLEN, TEMPI 




88 


00000066 


B486 






cmp . 1 


TEMPI, CURSLEN 




89 
90 
91 


00000068 


6030 






bit .5 


error 




OO000O6A 


3C1F 






move . w 


(sp)*, TEMPI 




92 


0000006C 


261F 






move . 1 


(sp)*, DINDEX 




93 
94 

95 


O000OO6E 


6F2A 






ble. s 


error 




00000070 


2C03 






move . 1 


DINDEX. TEMPI 




96 


00000072 


DC80 






add.l 


SLEN, TEMPI 




97 


00000074 


245F 






movea . 1 


(sp)*, DADDR 




98 


00000076 


281 F 






move . 1 


kix nm 




99 


00000078 


5284 






addq . 1 




100 


0000007A 


B886 






cmp. 1 


TEMPI, DMAX 




101 


0000007C 


6D1C 






bit .5 


error 




102 
















103 


0000007E 


43F1 


1000 




lea 


O(SAODR.SINOEX.U) ,SA0DR 




104 


00000082 


45F2 


30FF 




lea 


-1 (DADOR, DINDEX ,U) , DADDR 




105 


00000086 


605E 






bra . s 


TRANSFER 




106 








* 








107 








* 








108 








* 








109 








* procedure ss 


jbtossub(var dsub: string; 




110 








* 




dindex: integer; 




111 








* 




var ssub: string; 
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112 
113 






* 




sindex,slen: integer 


114 


0000 


0088 


BSM_SSUBTOSSUB 


EQU * 


IIS 








def 


I1SM_SSUBT0SSUB 


116 






* 






117 


00000088 205F 






movea . 1 


(sp)*,RET 


118 


0000008H 201F 






move . 1 


(sp)+,SLEN 


119 


0000008C 6E08 






bgt ,s 


LI 


120 


0000008E DFFC 


0000 




adda.l #20. so 




0014 










121 


00000094 4ED0 






im 
move . 1 


P (RET) 


122 


00000096 221F 




LI 


(sp)*, SINDEX 


123 


00000098 6E08 






bgt .5 


L2 


124 


00000090 3B7C 
FFFE 


FFF8 


error 


mo 


ve.w #-8,ESCBPEC0DE(a5) 


125 


OOOOOOBO 4E4B 






traD #10 


126 


000000B2 225F 




L2 


movea . ] 


(sp)*,SRDDR 
tO.CURSLEN 


127 


000000B4 7400 






moveq 


128 


0OO00OH6 1411 






move. b 


(SBDDRj.CURSLEN 
#1,CUR5LEN 


129 


000000B8 S242 






addq. w 


130 


OOOOOOBB 2C01 






move. 1 


SINDEX. TEMPI 


131 


OOOOOOflC DC80 






add.l 


SLEN, TEMPI 


132 


OOOOOCBE 3486 






cm p. 1 


TEMPI, CURSLEN 


133 
134 
13S 


OOOOOOBO 6DE8 






bit .5 


er ror 


OOOO0CB2 3C1F 






move.w 


(sp)*, TEMPI 


136 


OOOOOCBI 261F 






move. 1 


(sp)+, DINDEX 


137 


00000CB6 6FE2 






ble.s 


error 


138 












139 


00000CB8 2C03 






move. 1 


DINDEX, TEMPI 


140 


00000C8FI 0C80 






add.l 


SLEN, TEMPI 


141 


OOOOOCBC 245F 






movea . 1 


(sp)*, DBDDR 
#0,DMPiX 


142 


OOOOOCBE 7800 






moveq 


143 


OOOOOCCO 181F 






move .b 


(sp)*,PMBX 
#0,TEMP2 


144 


00000CC2 7E0O 






moveq 


145 


OOO000C4 3E04 






move .w 


DMBX.TEMP2 


146 


OOO0O0C6 5287 






addq. 1 


#1,TEMP2 


147 


OOOOOOCS BE86 






cmp. 1 


TEMPI, TEMP2 


148 


OOOOOOCF. 6DCE 






bit .5 


error 


149 












ISO 


OOOOOOCC 7E00 






moveq 


#0,TEMP2 


151 


OOOOOOCE 1E12 






move.b 


(DBDDR), TEMP2 
#1.TEMP2 


152 


OOOOOODC 5287 






addq. 1 


153 


00000002 BE83 






cmp. 1 


0INDEX.TEMP2 


1S4 
155 
156 


000000D4 6DC4 






bit. 5 


error 


00000006 BE46 






cmp.w 


TEMPI, TEMP2 


157 


00000008 6C04 






bge .s 


L3 


158 


OOOOOODA S346 






subq.w 


tl, TEMPI 


159 
160 


OOOOOODC 1486 




« 


move. b 


TEMPI, (DBDDR) 


161 






* End 


of error 


checkirg . 


162 






* 






163 


OOOOOOOE 43F1 


1000 


L3 


lea 


0(SRDDR,SINDEX.U) ,SBDDR 


164 
165 
166 


OOOO00E2 45F2 


3000 




lea 


(DBDDR, DINDEX. U), DBDDR 


0000 


00E6 


TRBNSFS 


"R equ * 
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167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 

202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 



00O00OE6 B5C9 
000000E8 6E08 



OOOOOOEA 14D9 
0OO000EC 5380 
0OO000EE 6EFB 
0OO00OFO 4ED0 



cmpa.l SBDDR, DBDDR 

bgt . s topdown 
* 

* Transfer from bottom to top 
* 

L4 move.b (SBDDR)* , (DBDDR) 

subq.l (tl.SLEN 

bgt. s L4 

jmp (RET] 

* Transfer from top to bottom 



0000 00F2 topdow 
0OO00OF2 43F1 0000 
0OOO00F6 45F2 0000 
00O00OFB 1521 LS 

0OOO0OFC S380 
000000FE 6EFB 
00000100 4ED0 



n equ * 

lea 0(SADDR,SLENJ,SBDDR 

lea 0(0ADDR,SLEN),OADDR 

move.b -(SfiODR) ,- (DBDDR) 

subq.l #1,SLEN 

bgt.s LS 

jmp (RET) 



procedure psubtossub (var dsub: string; 
dindex: integer; 
ssublen: integer; 
var ssub: paoctype; 
sindex,slen: integer 



0000 0102 BSM_PSU8T0SSUB 
def 



EQU » 
BSM_PSUBTOSSUB 



00000102 205F 
00000104 201F 
00000106 6E08 
00000108 DFFC 0000 

0016 
0OO001OE 4ED0 
00000110 221F 
00000112 6F86 

000001:14 225F 
00000116 241 F 
00000118 S282 
000001 IB 2C01 
OOO0011C DC80 
0000011E B486 
00000120 6D00 FF78 

00000124 261 F 
00000126 6F00 FF72 

O0O0012B 2C03 
0000012C 0C80 
0000012E 245F 
00000130 7800 
00000132 181F 
00000134 7E00 



movea. 1 (sp) 
move.l (sp) 
bgt.s LL1 
adda. 1 



► ,RET 
i-.SLEN 



imp 



ble.s 

movea . 1 
move. 1 
addq. 1 
move. 1 
add.l 
cmp.l 
bit 

move. 1 



move. 1 
add.l 
movea . 1 
moveq 
move .b 
moveq 



#22, sp 



(RET) 
.SINDEX 



(sp)* 
error 

(sp)*, SBDDR 
spj*.CJRSLEN 
tl.CURSLEN 
SINDEX, TEMPI 
SLEN, TEMPI 
TEMPI, CURSLEN 
error 

(sp)*, DINDEX 
error 

DINDEX, TEMPI 
SLEN, TEMPI 
(sp)*, DBDDR 
#0,DMBX 
(spl*,DMBX 
#0,TEMP2 



1-367 



PAGE 


5 [3.0] 12 


26/84 


21:45:12 ASSEMBLY 


OF STRG1.TEXT 


*** File name: STRG1 *** 


223 


00000136 


3E04 






move.w 


0MAX.TEMP2 
#1,TEMP2 




224 


00000138 


5287 






addq . 1 




225 


OO00013R 


Bt86 






cmp. 1 


TEMPI, TEMP2 




226 


0000013C 


6D00 


FFSC 




bit 


error 




227 
















228 


00000140 


7E00 






moveq 


#0,TEMP2 
(DADDR) .TEMP2 
#1, TEMPS 




229 


00000142 


1E12 






move .b 




230 


00000144 


5287 






addq . 1 




231 


00000146 


Bf.83 






cmp. 1 


DIN0EX.TEMP2 




232 


00000148 


6D0O 


FF50 




bit 


error 




233 
















234 


0000014C 


BE46 






cmp.w 


TEMPI, TEMP2 




235 


0000014E 


6C04 






bge . s 


LL2 




236 


00000150 


5346 






subq -w 


tl .TEMPI 




237 


00000152 


1486 






move .b 


TEMPI, (DADDR) 




238 
















239 


00000154 


43F1 


10FF 


LL2 


lea 


- 1 (SADDR, SINOEX.U) .SADDR 
O(DADDR.DINDEX.U) , DADDR 
TRANSFER 




240 


00000158 


45F2 


3000 




lea 




241 


0000015C 


6088 






bra . s 




242 








* 








243 








* 








244 








* 








245 








* fum 


t ion st r 


rtriiu(s: stringmax): stringmax; 




246 








* 








247 








* 








248 




oooo 


015E 


ASM_STRRTRIM EQU » 




249 










DEF SSM_STRRTRin 




250 








* 








251 


0000015E 


205F 






movea . 1 


(sp +,RET 




252 


00000160 


235 F 






movea . 1 


(sp)*,SAD0R 




253 


00000162 


2«5F 






movea . 1 


(sp)*, DADDR 

#0,SLEN 

(SAD0R)*,SLEN 

0(SADOR,SLEN.U),SRCEND 




2S4 


00000164 


7000 






moveq 




255 


00000166 


1019 






move .b 




256 


00000168 


47F1 


0000 




lea 




257 


0000016C 


6240 






addq.w 


#1,SLEN 




258 


0000016E 


S340 




rt riml 


subq .w 


tl.SLEN 
null 




259 


00000170 


6F06 






ble.s 




260 


00000172 


Or,23 


0020 




cmpi .b 


#32,-(SRCEND) 




261 


00000176 


67F6 






beq . s 


rt riml 




262 
















263 


00000178 


14C0 




null 


move.b 


SLEN, (DADDR) + 




264 


0000017A 


6706 






beq . & 


ret rn 




265 
















266 


0000017C 


14D9 




rtrim2 


move.b 


(SADDR)*, (DADDR)* 
#1,SLEN 




267 


0000017E 


5340 






subq.w 




268 


00000180 


6EFA 






bgt .s 


rtrim2 




269 


00000182 


4E00 




ret rn 


jmp 


(RET) 




270 








* 








271 








* 








272 








* 








273 








» fun. 


tion strltrim£s: stringnax): stringmax; 




274 








* 








275 








* 








276 




0000 


0184 


A5M_STRLTRIM EQU » 




277 










DEF ASM_STRLTRIM 




278 








* 








279 


00000184 


20SF 






movea . 1 


(sp)+,RET 
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280 


00000186 


225F 






movea . 1 


(sp)+, SADDR 




281 


00000188 


245F 






movea. 1 


spit, DADDR 
#0,SLEN 
(SADDR)*, SLEN 




282 


0000018A 


7000 






moveq 




283 


0000018C 


1019 






move .b 




284 


0000018E 


670C 






beq . s 


ltrim2 




285 


00000190 


6004 






bra . s 


ltriml 




286 
















287 


00000192 


5340 




ltrimO 


subq .w 


#1,SLEN 




288 


00000194 


6706 






beq . s 


ltrim2 




289 
















290 


00000196 


0C19 


0020 


ltriml 


cmpi.b 


#32, (SADDR)* 




291 


0000019A 


67F6 






beq .s 


ltrimO 




292 
















293 


0000019C 


14C0 




ltrim2 


move -b 


SLEN, (DADDR)* 




294 


0000019E 


670B 






beq .s 


ret rnn 




295 
















296 


oooooino 


43E9 


FFFF 




lea 


-1 (SADDR), SADDR 




297 


000001A4 


1409 




ltrim3 


move .b 


(SADDR)*, (DADDR)* 
#1,SLEN 




298 


000001A6 


5340 






subq .w 




299 


000001A8 


6EFA 






bgt ,s 


It rim3 




300 


000001AA 


4ED0 




ret rnn 


jmp 


(RET) 




301 








* 








302 








* 








303 








* 








304 








* fun< 


tion strrpt(s: stringmax; count: integer) 




305 








* 




: stringmax; 




306 








* 








307 








* 








308 




0000 


OlfiC 


ASM_STRRPY EQU * 




309 










DEF ASM_STRRPT 




310 








* 








311 


oooooinc 


20SF 






movea . 1 


(sp)*,RET 




312 


OOOOOlflE 


2A1F 






move . 1 


(sp*, COUNT 




313 


00000180 


225F 






movea . 1 


(sp +, SADDR 




314 


000001B2 


245F 






movea . 1 


(spj*. DADDR 
#0,SLE(M 
(SADDR)*, SLEN 
COUNT, TEMPI 
#255, TEMPI 




315 


000001B4 


7000 






moveq 




316 


000001B6 


1019 






move .b 




317 


OO0001B8 


2C05 






move . 1 




318 


000001BA 


0C86 


0000 




cmpi . 1 








OCFF 












319 


OOOOOICO 


6200 


FE08 




bhi 


error 




320 
















321 


000001C4 


CDCO 






muls 


SLEN, TEMPI 




322 


000001C6 


0C86 
OOFF 


0000 




cmpi . 1 


#255, TEMPI 




323 


000001CC 


6E00 


FECC 




bgt 


error 




324 
















325 


OO0001DO 


14C6 






move . b 


TEMPI, (DflDDR)* 




326 


00000102 


670E 






beq . s 


ret r rn 




327 
















328 


000001D4 


2849 




rptO 


movea . 1 


SADDR. ATEMP 
SLEN, TEMPI 




329 


000001D6 


2C00 






move . 1 




330 


00000108 


14DC 




rptl 


move ,b 


(ATEMP)*, (DADDR)* 
#1, TEMPI 




331 


OO00010R 


5346 






subq .w 




332 


OOOOOIDC 


6EFA 






bgt .s 


rptl 




333 


000001DE 


534 5 






subq .u/ 


#1 , count 




334 


000001EO 


6EF2 






bgt .s 


rptO 
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*»« File name: STRG1 *** 



335 

336 

PASS 1 ERRORS: 
PASS 2 ERRORS: 
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*** 68000 ASSEMBLER SYMBOL TABLE DUMP ««* 
EXTERNAL SYMBOLS 



SYMBOL 


TYPE 


DEF 


VALUE 




SYSGLOBALS 


AGS 


17 


00000002 




INTERNAL SYMBOLS 






SYMBOL 


TYPE 


DEF 


EQU SYM 


VALUE 


AO 


AREG 







OOOOOOOO 


Al 


AREG 







OOOO0001 


A2 


AREG 







00000002 


A3 


AREG 







00000003 


A4 


AREG 







00000004 


A5 


AREG 







00000005 


A6 


AREG 







00000006 


A7 


AREG 







00000007 


ASM PSUBTOPSUB 


REL 


29 




OOOOOOOO 


ASM PSUBTOSSUB 


REL 


195 




00000102 


ASM SSUBTOPSUB 


REL 


71 




00000048 


ASM SSUBTOSSUB 


REL 


114 




00000088 


ASM STRLTRIM 


REL 


276 




00000184 


ASM~STRRPT 


REL 


308 




000001BC 


ASM~"STRRTRIM 


REL 


248 




0000015E 


ATERP 


AREG 


5 




00000004 


CCR 


STREG 







00000005 


COUNT 


DREG 


12 




00000005 


CURSLEN 


DREG 


9 




00000002 


DO 


DREG 







OOOOOOOO 


Dl 


DREG 







O0000O01 


D2 


DREG 







00000002 


D3 


DREG 







00000003 


D4 


DREG 







00000004 


OS 


DREG 







00000005 


D6 


DREG 







00000006 


D7 


DREG 







00000007 


DADDR 


AREG 


3 




00000002 


DFC 


STREG 







00000008 


DINDEX 


DREG 


10 




00000003 


DMAX 


DREG 


11 




00000004 


ERROR 


REL 


124 




C000008A 


ESCAPECODE 


ABS 


18 SY 


5GL0BALS 


► FFFFFFFE 


INDEX 


DREG 


13 




00000005 


11 


REL 


122 




00000096 


L2 


REL 


126 




0OO00OA2 


L3 


REL 


163 




OOOOOODE 


L4 


REL 


172 




OOOOOOEA 


LS 


REL 


182 




OOOOOOFA 


LL1 


REL 


203 




00000110 


LL2 


REL 


239 




00000154 


LLL1 


REL 


79 




00000056 


LLLL1 


REL 


37 




OOOOOOOE 


LTRIMO 


REL 


287 




00000192 


LTRIM1 


REL 


290 




00000196 


LTRIM2 


REL 


293 




0OO0019C 
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0O0OO1A4 
00000178 
OOOOOOOO 
00000182 

ooooomn 

000001E2 
0O0O01D4 
0O0OO1D8 
0000016E 
0000017C 
0O0OO001 
00000009 
00000001 
OOOOOOOO 
00000007 
00000006 
00000003 
00000006 
00000007 
0O0O00F2 
0O0OO0E6 
00000007 
OOOOOOOB 



File name: STRG1 



LTRIM3 


REL 


297 


NULL 


REL 


263 


RET 


RRFI, 


1 


RETRN 


REL 


259 


RETRNN 


REL 


800 


RETRRN 


REL 


335 


RPTO 


REl 


326 


RPT1 


REL 


330 


RTRItll 


REL 


256 


RTRIM2 


REL 


266 


SfiDDR 


BREG 


2 


SFC 


STREG 





SINDEX 


DREG 


8 


SLEN 


DREG 


7 


SP 


RREG 





SR 


STREG 





5RCEND 


HREG 


4 


TEMPI 


DREG 


14 


TEHP2 


DREG 


15 


TOPDOUN 


REL 


179 


TRANSFER 


REL 


166 


USP 


STREG 





VBR 


STREG 
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STRG2 



Description 

STRG2 contains assembly language routines to support the standard Pascal procedures: 

• STRAPPEND 

• STRINSERT 

• STRDELETE 

• APPEND 

• INSERT 

• DELETE 

• COPY 

• CONCAT 



Usage 

The Compiler emits calls to these routines. 
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21:44:50 A 
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OF STRG2.TEXT 


»** File name: STRG2 *»* 


pass i 


COMPLETE. ERRORS 


: 










1 




0000 


OOOO 


RET 


EQU 


AO return address 




2 




0000 


0001 


SfiDOR 


EQU 


Al source address 




3 




oooo 


0002 


DFlDDR 


EQU 


A2 destination address 




4 




0000 


0003 


SRCENO 


EQU 


A3 source end 




5 
6 
7 




0000 


0004 


ATEMP 


EQU 


A4 temporary A register 






0000 


OOOO 


SLEN 


EQU 


DO source length 




8 




0000 


000 i 


5INDEX 


EQU 


Dl source index 




9 




sooo 


0002 


CURSLEN 


EQU 


D2 current source length 




10 




cooo 


0003 


DINDEX 


EQU 


D3 destination index 




11 




CO 00 


0004 


DMAX 


ESU 


D4 destination max 




12 




0000 


0005 


COUNT 


EQU 


DS 




13 




oooo 


ooos 


INDEX 


EQU 


DS st ring index 




14 




cooo 


0006 


TEMPI 


EQU 


D6 temporary D register 




IS 
16 
17 




oooo 


0007 


TEMP2 


EQU 


D7 temporary register 












refa 


SYSGLOBALS 




18 
19 
20 




FFFF 


FFFE 


ESCAPECODE EQ.U 


SYSGLOBALS-2 










* 








21 








* proc 


edure S3 


ppend(var dest: string; 




22 








* 




src : st ringmax) ; 




23 








* 








24 








* 








25 




oooo 


OOOO 


ASM_SAPPENO EQU » 




26 










DEF ASM_SAPPEND 




27 








* 








28 


00000000 


205F 






movea . 


IspH.RET 




29 


00000002 


225F 






movea . 


spJt.SADDR 




30 


00000004 


245F 






movea . 


spW. DADDR 
«0,DMAX 




31 


00000006 


7800 






moveq 




32 


00000008 


181F 






move .b 


(spl+.DMAX 

»0,SLEN 

(SADDR)*,SLEN 




33 


OOOOOOOA 


7000 






moveq 




34 


OOOOOOOC 


1019 






move .b 




3S 


OOOOOOOE 


6 ''18 






beq . s 


ret r rnn 




36 


00000010 


7C00 






moveq 


*0, TEMPI 
(DADDR), TEMPI 
TEMPI, TEMP2 
SLEN.TEMP2 




37 


00000012 


1C12 






move -b 




38 


00000014 


3E06 




apendO 


move .w 




39 


00000016 


DE40 






add.w 




40 


00000018 


BE44 






cmp.w 


DMAX.TEMP2 




41 


0000001A 


6E58 






bgt ,s 


error 




42 


0000001C 


14C7 






move .b 


TEMP2, (DADDR)* 
OIDADDR, TEMPI .U) ,DA00R 
(SADDR)+, (DAD0R1+ 
il.SLEN 




43 


0000001E 


45F2 


6000 




lea 




44 


00000022 


14D9 




apendl 


move .b 




45 


00000024 


5340 






subq.w 




46 
47 


00000026 
00000028 


6EEA 
4ED0 




ret r rnn 


bgt .s 

imp 


apendl 
(RET) 




48 








* 








49 








* 








50 








* 








51 








* proc 


edure insert(src: stringmax; 




52 








* 




var dest: string; index: integer); 




53 








* 








54 








* 








55 




OOOO 


002FI 


FlSM_INSERT EQU « 




56 










DEF F 


3MJNSERT 




57 








* 








58 


0000002A 


205F 






movea . 


(sp)*,RET 
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59 


0000002C 


2A1F 






move. 1 


(sp)*, INDEX 




60 


0000002E 


6F44 






ble.s 


error 




61 


00000030 


245F 






movea . 


(sp)+, DADDR 
#0,DMAX 




62 


00000032 


7800 






moveq 




63 


00000034 


131 F 






move.b 


(sp)*,DMAX 




64 


00000036 


225F 






movea . 


spi*,SADDR 




65 


00000038 


7 COO 






moveq 


#0, TEMPI 
(DADOR), TEMPI 
(tO, SLEN 
(SADOR)*,SLEN 




66 


O0O00O3A 


1 C 12 






move.b 




67 


0000003C 


7000 






moveq 




68 


00O00O3E 


1019 






move.b 




69 
70 

71 


00000040 


6730 






beq.s 


rett r n 




00000042 


2E06 






move. 1 


TEMPI, TEMP2 




72 


00000044 


5297 






addq. 1 


#1,TEMP2 
INDEX, TEMP2 
apendO 




73 


00000046 


ectS5 






cmp .1 




74 


00000048 


67Cfi 






beq , s 




75 


0000004A 


6D28 






bit .s 


error 




76 


0000004C 


3E06 






move.w 


TEMPI, TEMP2 
SLEN.TEMP2 




77 


0000004E 


DE40 






add .w 




78 


00000050 


BE44 






cmp.w 


DMAX.TEMP2 




79 


00000052 


6E20 






bgt .s 


error 




80 


00000054 


14C7 






move.b 


TEMP2, (DADDRJ+ 
OrDADOR, TEMPI. U), DADDR 
DADDR, SLEN. U), ATEMP 
TEMPI, TEMP2 




81 


00000056 


45F2 


6000 




lea 




82 


0000005ft 


49F2 


OOOO 




lea 




83 


0000005E 


3E06 






move.w 




84 


00000060 


9E45 






sub .w 


INDEX, TEMP2 
-(DADDR) ,-(ATEMP) 
#1,TEMP2 




85 


00000062 


1922 




insert : 


move.b 




86 


00000064 


5347 






subq.w 




87 


00000066 


6CFA 






bge.s 


insert 1 




88 


00000068 


43F1 


OOOO 




lea 


0(SADDR,SLEN.U),SADDR 
-(SADDRj, -(ATEMP) 




89 


0000006C 


1921 




insert2 


move.b 




90 


0000006E 


5340 






subq.w 


#1,SLEN 




91 


00000070 


6EFR 






bgt .s 


insert2 




92 


00000072 


4E0O 




rett rn 


jmp 


[RET) 




93 








* 








94 








* 








95 


00000074 


3B7C 


FFF8 


error 


move.w #-8, ESCAPECODE (a5) 








FF^E 












96 


0000007A 


4E4F1 






t 


ap #10 




97 








* 








98 








* 








99 








* 








100 








* procedure scopyfvar dest: string; 




101 








* 




src : st ringmax; 




102 








* 




index, length: integer); 




103 








* 








104 








* 








105 




OOOO 


007C 


ASM_SCOPY EQU » 




106 










DEF ASM_SC0PY 




107 








* 








108 


0O000O7C 


205F 






movea .1 (sp) + ,RET 




109 


0000007E 


201F 






move. 1 


(sp)*,SLEN 




110 


00000080 


6E0C 






bgt .s 


copyO 




111 


00000082 


DFFC 


OOOO 




adda.l #8,sp 








0008 












112 


00000088 


245F 






movea. 1 (sp)+,DAODR 




113 


0000008A 


4212 






c 


r.b (DADDR) 
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114 
US 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 

149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
16S 
166 
167 
168 
169 



0000008C 4EDO 
OO00OO8E 2fllF 
00000090 6FE2 



00000092 
00000094 
00000096 

00000098 
00000O9A 
0O000O9C 
OO000O9E 



225F 

245F 
7400 
1411 
5242 
9485 
6DD4 



jr 
copyO move.l 
ble.s 

movea . 1 
movea. 1 
moveq 
move . b 
addq.w 
sub.l 
bit. s 



OOOOOOBO B042 
0O000OR2 6ED0 

000000R4 14C0 
OO0O0OA6 43F1 5000 
O00OOORA 14D9 
OO00OORC 5340 
OOOOOORE 6EFA 
OOOOOOBO 4E00 



copyl 



cmp.w 
bgt .5 

move .b 
lea 

move .b 
subq .w 
bgt.s 



P (RET) 
(sp)+, INDEX 
error 

(sp)*,SRDDR 
(sp)«,DRDDR 
#0, CURSLEN 
(SRDDR), CURSLEN 
#1. CURSLEN 
INDEX, CURSLEN 
error 

CURSLEN, SLEN 
er ror 

SLENj (DSD0R1+ 

(SflODR, INDEX .U) ,SBDDR 

(SRDDR)*, (DADDRJ+ 

#1,SLEN 



m 



(RET) 



procedure delete(var dest: string; 

index, length: integer) 



0000 0082 ASM DELETE 
DEF 



EQU * 
ASMJELETE 



00000082 20SF 
00000084 201 F 
OO0O0OB6 6E08 
OOOO0OB8 DFFC 0000 

0008 
0000008E 4ED0 
OOOOOOCO 2A1F delO 
OO000OC2 6FB0 

OOO0OOC4 245F 
0O000OC6 7400 
OO000OC8 1412 
OOOOOOCR 9480 
OOOOOOCC 60R6 

OOOOOOCE 3C02 
00000000 5246 
00000002 9C4S 
00000004 6D9E 

OO0O0OD6 1482 

00000008 4SF2 5000 
OOOOOODC 43F2 0000 
OOOOOOEO 14D9 dell 
OO0O0OE2 5346 
OO0O0OE4 6EFR 



movea. 1 
move . 1 
bgt.s 

adda 



sp) + : 
delO 



J' 
move . 1 

ble.s 



mp 



(sp) + 
error 



RET 
SLEN 



*8,sp 



(RET) 
INDEX 



.1 (sp)+.DRD0R 
W.CURSLE 



movea . 

moveq (tO.CURSLEN 

move.b (DflDDR) .CURSLEN 

sub.l SLEN, CURSLEN 

bit .s error 

move.w CURSLEN, TEMPI 

addq #1, TEMPI 

sub.w INDEX, TEMPI 

bit .s erro r 

move.b CURSLEN, (DfiDOR) 

lea 0(DflDDR, INDEX. U),DRDDR 

lea 0(DSDDR,SLEN.U) ,SADDR 

move.b (SADDR)* , (DflDDR )♦ 

subq.w #1 TEMPI 

bgt.s dell 
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170 0000OOE6 4ED0 

171 

172 
PASS 1 ERRORS: 3 
PASS 2 ERRORS: 
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jmp (RET) 
end 
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File name: STRG2 



SYMBOL 


TYPE 


DEF VALUE 




SYSGLOBALS 


ABS 


17 0000O0O2 






INTERNAL SYHBOLS 




SYMBOL 


TYPE 


DEF EQU SYM 


VALUE 


BO 


AREG 





00000000 


bi 


AREG 





OOOOOOOl 


R2 


AREG 





00000002 


A3 


AREG 





00000003 


B4 


AREG 





00000004 


BS 


AREG 





00000005 


B6 


BREG 





00000006 


B7 


AREG 





00000007 


RPENDO 


REL 


38 


00000014 


RPEND1 


REL 


44 


00000022 


HSM DELETE 


REL 


142 


0O0O0OB2 


BSM INSERT 


REL 


55 


0O0O0O2B 


ASM SAPPEND 


RE. 


25 


OOOOOOOO 


ASM SCOPY 


RE. 


105 


0O0O0O7C 


ATEflP 


AREG 


5 


00000004 


CCR 


STREG 





00000005 


COPYO 


REL 


115 


0000008E 


C0PY1 


REL 


131 


OOOOOOBB 


COUNT 


DREG 


12 


00000005 


CURSLEN 


DREG 


9 


00000002 


DO 


DREG 





OOOOOOOO 


Dl 


DREG 





OOOOOOOl 


D2 


DREG 





00000002 


03 


DREG 





00000003 


04 


DREG 





00000004 


OS 


DREG 





00000005 


06 


DREG 





00000006 


D7 


DREG 





00000007 


OBDDR 


AREG 


3 


00000002 


DELO 


REL 


150 


ooooooco 


DELI 


REL 


167 


OOOOOOEO 


DFC 


STREG 





00000008 


DINDEX 


DRiG 


10 


00000003 


DMBX 


DREG 


11 


00000004 


ERROR 


REL 


95 


00000074 


ESCAPECODE 


BBS 


18 SYSGLOBALS ♦ FFFFFFFE 


INDEX 


DREG 


13 


00000005 


INSERT1 


REL 


85 


00000062 


INSERT2 


REL 


89 


0O0O006C 


RET 


AREG 


1 


OOOOOOOO 


RETRRNN 


REL 


47 


00000028 


RETTRN 


RE. 


92 


00000072 


SADDR 


AREG 


2 


OOOOOOOl 


SFC 


STREG 





00000009 


SINDEX 


DREG 


8 


OOOOOOOl 


SLEN 


DREG 


7 


OOOOOOOO 
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00000007 
00000006 
00000003 
00000006 
00000007 
00000007 
OOOOOOOA 



SP 


AREG, 





SR 


STRCG 





5RCEND 


AREG 


4 


TEMPI 


DREG 


14 


TEMP2 


DREG 


IS 


USP 


STPEG 





V8R 


STREG 
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STRINT 



Description 

STRINT implements the conversion of an integer to a string of digits. 



Usage 

The Compiler emits a call to this procedure for STRWRITE of an integer. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 

1-375 



PAGE 


1 [3.0] 12/26/84 21 : 
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ASSEMBLY 
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*** File name 


STRINT *** 


PP.SS 1 
1 


COflPLETE. 


ERRORS: 




def fs 


fwritestrint 






2 

3 
4 








refa sysglobals,M68KTYPE (rdq) 






FFFF FFEfi 


ioresu 


It 


equ sysglobals 
equ 28 


22 




5 

6 
7 




0000 001C 


ist rov 


fl 








0000 0000 


sign 




equ dO 






8 
9 

10 




0000 0001 


digits 




equ dl 








0000 0002 


int 




equ d2 






11 




0000 0003 


high 




equ d3 






12 




OOOO 0004 


extend 




equ d4 






13 




OOOO 0005 


Ten 




equ d5 






14 




OOOO 0006 


zero 




equ d6 






15 
16 
17 
18 
19 




OOOO 0007 


f ieldwidt h 


equ d7 








OOOO OOOO 


max st r 


en 


equ dO 








OOOO 0002 


int len 




equ d2 






20 




OOOO 0003 


st rlen 




equ d3 






21 




OOOO 0004 


temp 




equ d4 






22 




OOOO 0005 


newindex 


equ d5 






23 
24 
25 




OOOO 0006 


index 




equ d6 








OOOO OOOO 


return 




equ aO 






26 




OOOO 0001 


st radd 


- 


equ al 






27 




OOOO 0002 


dindex 




equ a2 






28 




OOOO 0003 


sindex 




equ a3 






29 

30 
31 




OOOO 0004 


aindex 




equ a4 






oooooooo 


84C5 


10 


divu 


ten, int 






32 


00000002 


4842 




swap 


int 






33 


00000004 


D446 




add .w 


zero, int 






34 


00000006 


1502 




move.b 


int , -(dindex) 






35 


00000008 


5241 




addq 


#1, digits 






36 


ooooooos 


4242 




clr.w 


int 






37 


oooooooc 


4842 




swap 


int 






38 




OOOO OOOE 


get_digits 


equ * 






39 


OOOOOOOE 


B43S 




cmp . 1 


ten, int 






40 


00000O10 


64EE 




bcc . s 


10 






41 


00000012 


D446 




add .w 


zero , int 






42 


00000014 


1S02 




move .b 


int , - (dindex) 






43 


00000016 


5241 




addq 


#1, digits 






44 
45 
46 


00000018 


4E7S 




rts 










OOOO OOlfi 


f s_fwritest rint 


equ * 






47 


0000001B 


205F 




movea . . 


(sp) + , ret urn 






48 


0000001C 


3E1F 




move 


(spj+, fieldwidt h integer is to be right justified 




49 


0000001E 


241F 




move. 1 


f sp) +, int 


integer to be converted 




50 


00000020 


285F 




movea . . 


(sp) + , aindex 


address of index into string 




51 


00000022 


225F 




movea . . 


(sp) > , st raddr 


address of st ring 




52 


00000024 


7000 




moveq 


#0,maxst rlen 






53 
54 

55 


00000026 


101F 




move .b 


(sp)+,maxst rler 


dimensioned size of string 




00000028 


4ES6 FFF4 




link 


a6,#-12 


allocate space for local string 




56 


0000002C 


1E80 




move .b 


maxst rlen, (sp) 


save maxstrlen in local string 




57 


0000002E 


4506 




lea 


(a6) , dindex 
#0, digits 


index to tail of local string 




58 


00000030 


7200 




moveq 
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59 


00000032 


7A0A 




moveq 


#10, ten 






60 
61 
62 


00000034 


7C30 




moveq 


#'0' , zero 






00000036 


4B82 




tst .1 


int 






63 


00000038 


5DC0 




sit 


sign 


remember whether negative 




64 


OO0OOO3A 


6C02 




bge . s 


positive 






65 


0000003C 


4482 




neg.l 


int 






66 


0O000O3E 


7600 


posit iv 


e moveq 


#0,high 
*100000,int 






67 


00000040 


B4BC 0001 




cmp. 1 










86H0 












68 
69 
70 
71 
72 


00000046 


6S1C 




bcs . s 


small 


unsigned integer is less than 100000 








» divic 


e intege 


r by 100000, save high part, keep low part in integer: 




00000048 


E28P, 




lsr.l 


♦l.int 


divide by 2 




73 


0000004A 


4A38 OOOO 




TST.B 


M68KTYPE 






74 


0000004E 


6604 




BNE.S 


DIVO 






75 


00000050 


40C4 




move 


sr, extend 


remainder in extend bit 




76 


00000052 


6002 




BRU.S 


0IV1 






77 


00000054 


42C4 


OIVO 


OC.UI 


$42C4 


HOVE CCR, EXTEND ?????? (rdq) 




78 


00000056 


84FC C350 


DIV1 


divu 


•50000, int 


divide by 50000 




79 


OOOOOOSB 


3602 




move .w 


int , high 


quotient is high part 




80 


OOOOOOSC 


4242 




clr.w 


int 


zap quotient 




81 


0000005E 


4842 




swap 


int 


get remainder 




82 


00000060 


44C4 




move 


extend, ccr 


reconstruct full remainder 




83 
84 
85 
86 
87 


00000062 


E392 




roxl . 1 


♦l,int 


integer is now mod 100000 




00000064 


61A8 


small 


bsr.s 


get_digits 


extract low order digits 




00000066 


4H43 




tst .w 


high 


check for any high order digits 




88 


00000068 


6710 




beq . s 


finish 






89 


0000006B 


B27C 0005 


11 


cmp 


»S, digits 


there should be at least 5 digits 




90 


0000006E 


6706 




beq.s 


12 






91 


00000070 


1506 




move .b 


zero, -(dindex) 






92 


00000072 


5241 




addq 


•I, digits 






93 


00000074 


60F4 




bra . s 


11 






94 


00000076 


3403 


12 


move 


high, int 






95 
96 

97 
98 


00000078 


6194 




bsr .5 


get_digi t s 


get high order digits 






OOOO 007A 


finish 


equ * 








99 


0000007H 


2C14 




move. 1 


(aindex) , index 






100 


0000007C 


6F60 




ble.s 


error 


error if index < i 




101 
















102 


O0000O7E 


7600 




moveq 


*0,strlen 






103 


00000080 


1611 




move.b 


(st raddr ), st rlen current length of string 




104 
















105 


00000082 


2803 




move . 1 


st rlen, temp 






106 


00000084 


52G4 




addq. 1 


*l,temp 






107 


00000086 


BC84 




cmp. 1 


temp, index 






108 


00000088 


6E54 




bgt .s 


er ror 


error if index > strlen(s)*l 




109 
















110 


0000008A 


34 01 




move 


digits, intlen 


compute minimum size of new integer 




111 


0000008C 


4B00 




tst .b 


sign 






112 


0000008E 


6702 




beq.s 
addq 


nosign 






113 


00000090 


5242 




#1 , intlen 


add 1 for minus sign 




114 




OOOO 0092 


nosign 


equ * 






1-376 



PAGE 3 [3.0] 12/26/84 21:01:01 ASSEMBLY OF STRINT.TEXT *** File name: STRIIMT 
115 

HS SmmmI i™l I st fi«ldwidth field width is 12 if passed negative 

117 00000094 6C02 bge.s nodefajlt 

118 00000096 7E0C moveq #12, f ieldwidth 

119 0000 0098 nodefault equ * 
120 

Ml SSnnonll RrSI £ mp intlen, f ieldwidt h fieldwicth is at least size of integer 

122 0000009A 6C02 bge.s bigger 

123 0000009C 3E02 move intlen , f ieldwidth 

124 0000 009E bigger equ * 
125 

M% S2S22PS! ™?§ move.l index, newindex compute new index 

127 O0000OAO DA47 add fieldwidth , newindex 

!?n 2S2S2S15? I§?f mo " newindex, temp st ring length is maximum of 

"0 2222225S 1221 subq *l,temp oia length, newindex-1 

131 O0OOOOA6 B644 cmp temp.strlen 

132 000000PI8 6C02 bge.s longer 

133 00000CAA 3604 move temp.strlen 

134 0000 OOHC longer equ » 

136 000O00AC 4244 clr temp 

Ml SS222S5I if IT move - b ( s P). te "P retrieve strmax 

138 0OOO0CBO B644 cmp temp.strlen 

139 00OO0OB2 6E2A bgt.s error error if new length > strmax(s) 

}2i 22222SS? i5§2 move.b strlen,(straddr) set new string length 

142 0OO00OB6 288S move.l newindex, (aindex) set new index 

144 00O00CB8 47F1 6000 lea (st raddr, index) , sindex 

146 000000BC 9E42 sub intlen , fieldwidth 

147 OOO0O0BE 6708 beq.s nospaces 

148 00000CC0 16FC 0020 space move.b #' ', (sindex)* 

149 0000O0C4 5347 subq #1 , f ieldwidt h 

150 O0OO00C6 6EF8 bgt.s space 

151 0000 00C8 nospaces equ * 

152 M 

153 OOOOOOCS 4R00 tst.b sign 

154 O0OO00CP 6704 beq.s nosgn 

155 000O00CC 16FC 0020 move.b #'-*,( sindex ) * 

156 0000 00D0 nosgn equ * 
157 

158 OOOOOODO 16DB digit move.b (dindex)-f, (sindex) + 

159 OOOO0OD2 5341 subq #1, digits 

160 00000004 6EFB bgt.s digit 
161 

162 0OO00OD6 42AD FFEA clr.l ioresuJt(aS) 

163 OOOOOODA 4E5E ok unlk a6 

164 000000DC 4ED0 jmp (return) 
165 

166 OOOOOODE 701C error moveq tistrovfl.dO 

167 00O00OEO 2B40 FFEA move.l dO.ioresul t (aS ) 

168 OOO0OOE4 60F4 bra.s ok 
169 
170 



171 end 



nosyms 
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PASS 1 ERRORS: 
■PASS 2 ERRORS: 



1-377 



1-378 



STROKES 



Description 

STROKES provides the stroke table for the DGL text labelling. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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1 
2 
3 
4 
5 



9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
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File name: STROKES 



Graphics Low End 



* Module 

* Programer 

* Date 



= STROKES 

= SJS 

= 9/30/82 



Purpose : To provide stroke tables 
Rev history 



Created - 9/30/82 
Modified - 



(c) Copyright Hewlet t-PacKard Company, 1983. 
rill rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 



RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
paragraph (b) (3) (8) of the Rights in Technical 
Data and Computer Software clause in 
DflR 7-104.9 (a ) . 

HEULETT-PRCKARD C0MPRNY 
Fort Collins, Colorado 



mname OLE STROKE 



rorg O 
nosyms 

def GLE_GLE_STR0KE_T9BLE 

0000 0000 GLE_GLE_STROKE_TBBLE equ * 



00000000 0000 0018 
00000004 0000 02B8 



00000008 0000 037R 
0O000O0C 0000 0556 



00000010 0000 05C6 
00000014 0000 074E 



DC.L STD CHAR-GLE GLE STROKE TRBLE 

DC.L std_pointer-g"le_g"le_stro"ke_trble 



dc.l roman chrr-gle gle stroke table 
dc . l romrn~pointer-g"le_g'le_stro"ke_table 



DC.L KRTR CHHR-GLE GLE STROKE TABLE 
DC.L KflTfl~>OINTER-G"LE_G'LE_STRO"KE_TRBLE 



0000 0018 std char EQU 



00000018 44C4 46CC 
0000001C 3RBC 5CDR 
00000020 34BC 5C04 
00000024 17F7 7999 



DC.L S44C446CC 

DC.L $3RBC5CDR 

DC.L S34BCSCD4 

DC.L S17F77999 
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File name: STROKES *» 



59 


00000028 


2SDS 


E6E7 


DC 


L 


S25DSE6E7 


60 


0000002C 


DFB8 


B9RR 


DC 


L 


SD8B8R9RR 


61 


00000030 


B6EB 


4CC4 


DC 


L 


SBBEB4CC4 


62 


00000034 


60 F5 


E6DS 


DC 


L 


$64F5E605 


63 


00000038 


EMS 


FB2R 


DC 


L 


SE41SFB2A 


64 


0000003C 


BFP.C 


9BRR 


DC 


L 


SBBAC9BRR 


65 


00000040 


749R 


9BAC 


DC 


L 


S749R9BRC 


66 


00000044 


BCCB 


CR97 


DC 


L 


SBCCBCA97 


67 


00000048 


95R4 


B4E7 


DC 


L 


S9SA4B4E7 


68 


0000004C 


3PDC 


54B6 


DC 


L 


S3RDC54B6 


69 


00000050 


BBDC 


34D6 


DC 


L 


SBR0C34D6 


70 


00000054 


DP.BC 


2BE5 


DC 


L 


SDRBC2BES 


71 


00000058 


66AS 


18F8 


DC 


L 


S6BR618F8 


72 


OOOOOOSC 


4ECB 


18F8 


DC 


L 


S45CB18F8 


73 


00000060 


44B4 


B5C5 


DC 


L 


S44B4B5C5 


74 


00000064 


C2B2 


18F8 


DC 


L 


SC3B218F8 


75 


00000068 


44CS 


B5B4 


DC 


L 


S44C5B5B4 


76 


0000006C 


C41S 


FBI 5 


DC 


L 


SC415FB15 


77 


00000070 


F6FS 


E4R4 


DC 


L 


SFBF5E4R4 


78 


00000074 


959B 


RCEC 


DC 


L 


$959BRCEC 


79 


00000078 


FE3B 


CCC4 


DC 


L 


SFB3BCCC4 


80 


0000007C 


34D4 


1BRC 


DC 


L 


S34D41BRC 


81 


00000080 


DCEB 


E9D8 


DC 


L 


S0CEBE9D8 


82 


00000084 


B896 


94E4 


DC 


L 


SB89694E4 


83 


00000088 


1BAC 


DCEB 


DC 


L 


$1BRCDCEB 


84 


0000008C 


ESD8 


B858 


DC 


L 


JE9D8B8S8 


85 


00000090 


E7ES 


D4A4 


DC 


L 


SE7E5D4R4 


86 


00000094 


9554 


DC98 


DC 


L 


S95S4DC98 


87 


00000098 


97E7 


15R4 


DC 


L 


S97E715R4 


88 


0000009C 


D4E5 


E8D9 


DC 


L 


SD4E5E8D9 


89 


oooooono 


999C 


EC18 


DC 


L 


S999CEC18 


90 


O00O0OR4 


D8E7 


ESD4 


DC 


L 


JD8E7E5D4 


91 


000O0OA8 


H495 


9BBC 


DC 


L 


$R4959BRC 


92 


000000RC 


DCEB 


1CEC 


DC 


L 


SDCEB1CEC 


93 


ooooooeo 


Eflfi.6 


A428 


DC 


L 


$Efift6R428 


94 


000000B4 


999B 


ACDC 


DC 


L 


S999BRC0C 


95 


OOOO0OB8 


EBE9 


D8R8 


DC 


L 


SEBE9D8R8 


96 


O0OO00BC 


9795 


R4D4 


DC 


L 


S9795R4D4 


97 


ooooooeo 


E5E7 


C315 


DC 


L 


SESE7D815 


98 


000000C4 


A4D4 


E5EB 


DC 


L 


$R404E5EB 


99 


000O00C8 


DfflC 


9B99 


DC 


L 


SDCAC9B99 


100 


oooooocc 


AFE8 


48B8 


DC 


L 


SR8E848B8 


101 


OOO00ODO 


Bs'CS 


C844 


DC 


L 


SB9C9C844 


102 


OOOO0OD4 


B4B5 


C5C4 


DC 


L 


SB4B5CSC4 


103 


OOOO0OD8 


48B8 


B9C9 


DC 


L 


S48B8B9C9 


104 


OO000ODC 


CE44 


B4B5 


DC 


L 


$C844B4BS 


105 


OOOOOOEO 


C5C3 


B255 


DC 


L 


SC5C38255 


106 


OO00OOE4 


RBDB 


17F7 


DC 


L 


SR8DB17F7 


107 


OO0000E8 


19F9 


25D8 


DC 


L 


S19F92SD8 


108 


OO0000EC 


A61P 


9BRC 


DC 


L 


$R81A9BRC 


109 


OOOOOOFO 


DCEB 


EAB7 


DC 


L 


S0CEBERB7 


110 


O0O0OOF4 


Be34 


B457 


DC 


L 


IB634B4S7 


111 


OO00OOF8 


D9CO 


B9B8 


DC 


L 


SD9CRB9B8 


112 


OO0O0OFC 


C7E7 


F8FA 


DC 


L 


SC7E7FBFA 


113 


OO0O010O 


DCBC 


9R96 


DC 


L 


$DCBC9A96 


114 


00000104 


B5E4 


F514 


DC 


L 


SB4E4F514 


115 


00000108 


9ERC 


ECFB 


DC 


L 


S9BRCECFB 
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lie 


0000010C 


F478 


9824 


DC 


I 


SF4789824 


117 


00000110 


BC1C 


ECFB 


DC 


L 


SBC1CECFB 


118 


00000114 


F9E8 


R814 


DC 


L 


JF9E8B814 


119 


00000118 


E4FS 


F7E8 


DC 


L 


SE4FSF7E8 


120 


0000011C 


7BEC 


BC9B 


DC 


L 


S7BECBC9R 


121 


00000120 


96B4 


E4F5 


DC 


L 


S96B4E4F5 


122 


00000124 


14E4 


F5FB 


DC 


L 


S14E4FSFB 


123 


00000128 


EC9C 


2CR4 


DC 


L 


SEC9C2CR4 


124 


0000012C 


18C8 


7C9C 


DC 


L 


J18C87C9C 


125 


0000013C 


94F4 


149C 


DC 


L 


S94F4149C 


126 


00000134 


FC18 


C87B 


DC 


L 


SFC18C87B 


127 


00000138 


ECBC 


9R96 


DC 


L 


SECBC9B96 


128 


0000013C 


B4F4 


F7D7 


DC 


L 


SB4F4F7D7 


129 


00000140 


149C 


18F8 


DC 


L 


S149C18F8 


130 


00000144 


7CF4 


2CEC 


DC 


L 


S7CF42CEC 


131 


00000148 


4CC4 


24 E4 


DC 


L 


S4CC424E4 


132 


0OOO014C 


15B4 


C40S 


DC 


L 


S1SB4C4D5 


133 


00000150 


DC3C 


FC14 


DC 


L 


SDC3CFC14 


134 


00000154 


9C18 


B87C 


DC 


L 


S9C18B87C 


135 


00000158 


B8F4 


1C94 


DC 


L 


SB8F41C94 


136 


0000015C 


F414 


9CC8 


DC 


L 


SF4149CC8 


137 


00000160 


FCF4 


149C 


DC 


L 


JFCF4149C 


138 


00000164 


F4FC 


5C8C 


DC 


L 


SF4FC5CBC 


139 


00000168 


9096 


B4D4 


DC 


I 


S9A96B404 


140 


0000016C 


F6FR 


DC14 


DC 


L 


IF6FRDC14 


141 


00000170 


9CEC 


FBF9 


DC 


L 


S9CECFBF9 


142 


00000174 


E898 


5CBC 


DC 


L 


IE8985CBC 


143 


00000178 


9R96 


B404 


DC 


L 


S9R96B4D4 


144 


0000017C 


F6F2 


DCS6 


DC 


L 


IF6FRDCS6 


145 


00000180 


F414 


9CEC 


OC 


L 


SF4149CEC 


146 


00000184 


FBF9 


E898 


DC 


L 


JFBF9E898 


147 


00000188 


38F4 


15R4 


DC 


L 


S38F415R4 


148 


0000018C 


E4F5 


F7E8 


DC 


L 


SE4F5F7E8 


149 


00000190 


B899 


9BRC 


DC 


L 


SB8999BRC 


150 


00000194 


ECFB 


1CFC 


DC 


L 


SECFB1CFC 


151 


00000198 


4CC4 


1C95 


OC 


L 


S4CC41C95 


152 


0000019C 


B4E4 


C SFC 


DC 


L 


SB4E4F5FC 


153 


oooooiao 


1C9B 


C4FB 


DC 


L 


S1C9BC4FB 


154 


00000 1B4 


FC1C 


94C9 


DC 


L 


SFC1C94C9 


155 


000001R8 


F4FC 


HFC 


DC 


L 


SF4FC14FC 


156 


OOOOOltlC 


1CF4 


1CC8 


DC 


L 


$1CF41CC8 


157 


00000130 


FC48 


C41C 


DC 


L 


SFC48C41C 


158 


00000134 


FC94 


F4 6C 


DC 


L 


SFC94F46C 


159 


00000188 


BCB4 


E41B 


DC 


L 


SBCB4E41B 


160 


0000013C 


FS2C 


DCD4 


DC 


L 


SF52C0CD4 


161 


00000 ICO 


B417 


CRF7 


DC 


L 


SB417CRF7 


162 


000001C4 


OOFO 


3CDB 


DC 


L 


$0OFO3CDfl 


163 


000001C8 


29D9 


E8E4 


DC 


L 


S29D9E8E4 


164 


0OO001CC 


67B7 


fi$R5 


DC 


L 


$67B7B6R5 


165 


000001DO 


B4F4 


1C94 


DC 


I 


SB4F41C94 


166 


000001D4 


17B9 


D9E8 


DC 


L 


S17B9D9E8 


167 


000001D8 


E5D4 


B4 96 


DC 


L 


SESD4B496 


168 


000001DC 


68D9 


R998 


DC 


L 


I68D9B998 


169 


000001EO 


95R4 


04 E 5 


DC 


L 


J95B4D4ES 


170 


000001E4 


6CE4 


67 C9 


DC 


L 


S6CE467C9 


171 


000001E8 


B998 


95R4 


DC 


L 


$B9989SB4 


172 


000001EC 


C4E6 


17E7 


DC 


L 


SC4E617E7 
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173 


OOOOOIFO 


E8D9 


R998 


DC 


L 


JE8D9B998 


174 


000001F4 


9SB4 


D4E5 


DC 


L 


S95B404E5 


175 


000001 F8 


6BDC 


CCBB 


DC 


L 


J6BDCCCBB 


176 


OOOOOIFC 


B418 


0867 


DC 


L 


JB418D867 


177 


00000200 


C9B9 


989S 


DC 


L 


SC9R99895 


178 


00000204 


B4C4 


E669 


DC 


L 


SB4C4E669 


179 


00000208 


E2D1 


HI 92 


DC 


L 


SE2D1B192 


180 


0000020C 


1C94 


17B9 


DC 


L 


S1C9417B9 


181 


00000210 


D9E8 


E4 39 


DC 


L 


SD9E8E439 


182 


00000214 


C9C4 


4BCB 


DC 


I 


SC9C44BCB 


183 


00000218 


S9E9 


E2D1 


DC 


I 


S59E9E2D1 


184 


0000021C 


B192 


6BEB 


DC 


I 


SB1926BEB 


185 


00000220 


1C94 


599S 


DC 


L 


S1C94S995 


186 


00000224 


37E4 


3CCC 


DC 


L 


*37E43CCC 


187 


00000228 


C419 


94 18 


DC 


L 


$04199418 


188 


0000022C 


B9B9 


C8C4 


DC 


L 


S99B9C8C4 


189 


00000230 


48D9 


E9F8 


DC 


L 


J48D9E9F8 


190 


00000234 


F414 


9917 


DC 


L 


JF4149917 


191 


00000238 


B9D9 


E8E4 


DC 


L 


SB9D9E8E4 


192 


0000023C 


1895 


R4D4 


DC 


L 


S189SB4D4 


193 


00000240 


E5E8 


D9R9 


OC 


L 


IE5E8D9R9 


194 


00000244 


9811 


9917 


DC 


L 


$98119917 


195 


00000248 


B9D9 


E8ES 


DC 


L 


SB9D9E8E5 


196 


0000024C 


D4B4 


9667 


DC 


L 


SD4B49667 


197 


00000250 


D9B9 


9895 


DC 


L 


J09B99895 


198 


00000264 


B4C4 


E669 


DC 


L 


$B4C4E669 


199 


000002S8 


E129 


R427 


DC 


L 


SE129B427 


200 


000002SC 


C9D9 


E868 


OC 


I 


SC909E868 


201 


00000260 


D9B9 


98ES 


OC 


L 


SD99998E5 


202 


00000264 


D4B4 


9S3B 


DC 


L 


S04B4953B 


203 


00000268 


B5C4 


D4ES 


OC 


L 


$B5C404E5 


204 


0000026C 


19D9 


1995 


DC 


L 


S19D9199S 


205 


00000270 


B4C4 


E669 


DC 


L 


SB4C4E669 


206 


00000274 


E419 


C4F9 


DC 


L 


SE419C4F9 


207 


00000278 


199S 


R4B4 


DC 


L 


$199594 B4 


208 


0000027C 


C5C8 
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558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 



OO0OOSE6 
OOOOOSEB 
OOOOOSEE 
OO0OOSF2 
0O0O0SF6 
000005FB 
OOOOOSFE 
00000602 
00000606 
0000060B 
OO0006OE 
00000612 
00000616 
OO00061A 
OO00061E 
00000622 
00000626 
0000062A 
0000062E 
00000632 
00000636 
0000063F} 
0000063E 
00000642 
00000646 
0000064F1 
0000064E 
00000652 
00000656 
0000065H 
0000065E 
00000662 
00000666 
O000066B 
0000066E 
00000672 
00000676 
0000067A 
0000067E 
00000682 
00000686 
OO00068P 
OO00068E 
00000692 
00000696 
0O00069A 
0000069E 
000006A2 
000006A6 
000006BA 
OO0O06AE 
000006B2 
000006B6 
000006BB 
OO0006BE 
000006C2 
OO0O06C6 



C647 CSB4 
59A6 48C4 
27A8 E8E6 
C448 C938 
0848 C424 
E428 E859 
0457 B428 
E8E7 D639 
B438 D8D4 
24F4 28E8 
E4A4 36E6 
28B7 48C7 
6SE6 C418 
F81B FBF9 
C749 C5B4 
6C97 4AC4 
189A FAF7 
C44C 4CCA 
2BEB 4BC5 
15FS 5CD4 
lfiFfi 5995 
1BFA F5E4 
3CB6 944C 
C46B AA17 
F719 BBFB 
F8B4 2CAA 
992A FA5A 
D5B4 1BFB 
FS95 2CA8 
1BFA 6CE7 
B41B BB18 
B814 C4F7 
F91B FBFA 
9447 F41A 
FBF9 D72C 
ASB4 F474 
1BB9 7BF8 
B418 BABB 
FBF8 B438 
D62B DBEC 
4BC6 A418 
F81B 9949 
CB7B F7C4 
2BEB 7999 
49C6 A43C 
B43A E74C 
CEA4 1BFA 
2BEB 15F5 
1BFB FAFR 
9438 E51B 
FB9S 44C8 
F54C CB6C 
E8A4 14A5 
BB5B F9F4 
1C9S B4F4 
19E9 1BFB 
F6B4 B419 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

oc 

DC 

OC 

OC 

OC 

OC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC.L 

DC.L 

DC.L 

DC.L 

DC.L 

DC.L 

DC.L 

DC.L 

DC.L 

DC.L 

DC.L 

DC.L 

DC.L 

DC.L 

DC.L 

OC.L 

OC.L 

DC.L 

DC.L 

DC.L 

DC.L 

DC.L 



!iC647CSB4 
J1S9A648C4 
J27A8E8E6 
1IC448C938 
JD848C424 
SIE428E859 
SD457A428 
JE8E7D639 
$B438D8D4 
S24F428E8 
SE4B436E6 
$28A748C7 
S68E6C418 
$F81BFBF9 
$C749C5B4 
J6C974BC4 
$189AFAF7 
SC44C4CCA 
$2BEB4BC5 
S15FS5CD4 
S1AFA599S 
S1AFAF5E4 
S3CB6944C 
SC46AAA17 
$F719BBFB 
JF8B42CAB 
$992AFA5A 
$05B41BFB 
IF5952CA8 
S1AFB6CE7 
IB41BBB18 
SB814C4F7 
SF91BFBFR 
S9447F41B 
SFAF9D72C 
SIB5B4F474 
S1BB97BF8 
SB418BABB 
SFBF8B438 
SD62BDBEC 
$48C6B418 
SF81B9949 
$CB7BF7C4 
J2BEB7999 
S49C6B43C 
SB43AE74C 
SC6B41AFA 
S2BEB1SFS 
S1BFBFAFA 
S9438ES1B 
SFB9544C8 
JF54CCB6C 
SE8A414AS 
(IAA5BF9F4 
I1C9SA4F4 
I19E91BFB 
SF8B4B419 
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S72 


0OO006CA BBF7 


F64C 


DC.L SBBF7F64C 




S73 


0OO006CE C41A 


FB27 


DC.L $C41AFA27 




574 


000006D2 A695 


67F6 


DC.L SB69S67F6 




S7S 


0OO006D6 F51B 


FBF9 


DC.L SF51BFBF9 




576 


000006DA C637 


E42C 


DC.L IC637E42C 




S77 


OOO0O6DE BBDB 


EB29 


DC.L SBBDBEA29 




S78 


000006E2 B808 


E726 


DC.L IB8D8E726 




579 


000006E6 B5D5 


E45B 


DC.L JBS05E4SB 




580 


000006EA 9795 


F576 


DC.L S9795F576 




581 


000006EE 76F4 


7BFA 


DC.L S76F47BFA 




582 


000006F2 9429 


E51B 


DC.L S9429E51B 




S83 


000006F6 FB18 


F83B 


OC.L SFB18F83B 




584 


00OO06FA B5C4 


R3C 


DC.L SB5C4F43C 




585 


000006FE B41A 


CBF9 


DC.L SB41AFAF9 




586 


00000702 F9D7 


2BDB 


DC.L $F9072BDB 




587 


00000706 D51S 


=51B 


DC.L SDS1SF51B 




588 


0OO0070H FBF5 


9528 


DC.L SFBF59528 




589 


0000070E F82B 


EB19 


DC.L SF82BEB19 




590 


00000712 F9F7 


C4C4 


OC.L SF9F7C4C4 




591 


00000716 2BA7 


6BE6 


DC.L S2BA76BE6 




592 


0000071A C42B 


A594 


DC.L SC42BB594 




593 


0000071E 4BC4 


D4F6 


DC.L S4BC4D4F6 




594 


00000722 F72B 


A4C4 


DC.L SF72BA4C4 




595 


00000726 F77S 


959B 


DC.L SF77S959B 




596 


0000072A FBF5 


199B 


DC.L SFBF5199B 




597 


0000072E FBF7 


C4B4 


DC.L SFBF7C4B4 




598 


00000732 1ABH 


7AF9 


DC.L $1ABA7AF9 




599 


00000736 B494 


399B 


DC.L S8494399B 




600 


0000073A 3CDA 


2C98 


DC.L I3CDH2C9B 




601 


0000073E 9RA9 


B9CA 


DC.L J9AB9B9CH 




602 


00000742 CBBC 


AC1C 


DC.L JCBBCAC1C 




603 


00000746 C9FC 


49C4 


DC.L SC9FC49C4 




604 


0000074A 68A8 


26E6 


DC.L S68A826E6 




605 










606 


0000 


074E 


kata_pointer EQU * 




807 










608 


0000074E 0001 




OC.U 1 




609 


00000750 OOOA 




DC.U 10 




610 


00000752 OOOD 




DC.U 13 




611 


00000754 0010 




DC.U 16 




612 


00000756 0012 




DC.U 18 




613 


00000758 0017 




DC.U 23 




614 


0000075A OOIE 




DC.U 30 




615 


0000075C 0025 




DC.U 37 




616 


00O0075E 0029 




DC.U 41 




617 


00000760 0030 




DC.U 48 




618 


00000762 0036 




DC.U 54 




619 


00000764 003C 




DC.U 60 




620 


00000766 0042 




DC.U 66 




621 


00000768 0047 




DC.U 71 




622 


0OO0076A 0O4D 




DC.U 77 




623 


0OO0076C 0054 




DC.U 84 




624 


0000076E 0056 




DC.U 86 




625 


00000770 005D 




DC.U 93 




626 


000007^2 0061 




DC.U 97 




627 


000007''4 0069 




DC.U 105 




628 


00000776 006F 




DC.U 111 
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629 


00000778 0075 




DC.U 117 




630 


0000077B 007C 




DC.U 124 




631 


0000077C 0082 




DC.U 130 




632 


0000077E 0087 




DC.U 135 




633 


00000780 008F 




DC.U 143 




634 


00000782 0093 




DC.U 147 




635 


00000784 009A 




DC.U 154 




636 


00000786 00A2 




DC.U 162 




637 


00000788 0OA8 




DC.U 168 




638 


0OO0078A 0OB1 




DC.U 177 




639 


0000078C 0OB6 




DC.U 182 




640 


0000078E OOBE 




DC.U 190 




641 


00000790 00C6 




DC.U 198 




642 


00000792 OOCD 




DC.U 205 




643 


00000794 0004 




DC.U 212 




644 


00000796 0008 




DC.U 216 




645 


00000798 OOOD 




DC.U 221 




646 


0000079A 0OE1 




DC.U 225 




647 


0000079C 0OE8 




DC.U 232 




648 


0000079E OOFO 




DC.U 240 




649 


O0O007AO 0OF3 




DC.U 243 




650 


000007A2 0OF9 




DC.U 249 




651 


000007A4 OOFF 




DC.U 255 




652 


000007A6 0104 




DC.U 260 




653 


000007A8 0108 




DC.U 264 




654 


000007BA 0112 




DC.U 274 




655 


000007AC 0118 




DC.U 280 




656 


000007RE 0124 




DC.U 292 




657 


000007BO 012B 




DC.U 299 




658 


000007B2 0130 




DC.U 304 




659 


000007B4 0138 




DC.U 312 




660 


000007B6 013F 




DC.U 319 




661 


000007B8 0144 




DC.U 324 




662 


000007BA 014A 




DC.U 330 




663 


0000078C 0151 




DC.U 337 




664 


000007BE 0156 




DC.U 342 




665 


000007CO 01SE 




OC.U 350 




666 


000007C2 0162 




DC.U 354 




667 


000007C4 0167 




DC.U 359 




668 


0OO007C6 016D 




DC.U 365 




669 


0OO007C8 0173 




DC.U 371 




670 


000007CA 0177 




DC.U 375 




671 


000007CC 0180 




DC.U 384 




672 


000007CE 0189 




OC.U 393 




673 










674 






END 




PASS 1 


ERRORS: 








PASS 2 


ERRORS: 






1-385 



1-386 



SYSDEF 



Description 

SYSDEF provides the symbol table for SYSTEM_P. 



Usage 

SYSDEF is accessed by the loader. 



Notes 

(This file was generated programmatically!) 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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PASS 1 


COMPLETE. 


ERRORS: 








1 

2 

3 
4 
5 


OOOOOOOO 








rorg 












def sy 


sdeftable 




0000 


0000 


sysdeft 


able equ 


t 


6 


OOOOOOOO 


0000 


0000 




del 





7 


00000004 


00 






dc.b 





8 


00000006 


0000 


0023 




del 


defaddn 


9 


OOOOOOOA 


0000 


0724 




del 


endd-def addr 


10 


OOOOOOOE 


01 






dc.b 


1 


11 


00000O10 


0000 


0000 




del 





12 


00000014 


OB 






deb 


11,'SYSDEFTABIE 


12 


00000015 


53 










12 


00000016 


59 










12 


00000017 


53 










12 


ooooooie 


44 










12 


00000019 


45 










12 


OOOOOOIR 


46 










12 


0O0O0O1B 


54 










12 


0000001C 


41 










12 


OOOOOOID 


42 










12 


OOOOOOIE 


4C 










12 


000O0O1F 


45 










12 


00000020 


20 










12 


00000021 


20 










12 


00000022 


20 










12 


00000023 


20 










12 


00000024 


20 










13 


00000025 


00 




X 


dc.b 


0,1 


13 


00000026 


01 










14 














15 
16 
17 




0000 


1206 


GVR 


equ 


$1206 




0000 


0028 


def addr 


equ * 




18 














19 










include 


SYSTBBLE 


20 








REFR 


ALPHALIST 


21 


00000028 


09 




DC.B 


9, 'ALPHALIST' 


21 


00000029 


41 










21 


0000002B 


4C 










21 


0000002B 


50 










21 


OO00OO2C 


48 










21 


OO0OOO2D 


41 










21 


0000002E 


4C 










21 


OO0O0O2F 


49 










21 


00000030 


53 










21 


00000031 


54 










22 


00000032 


1205 




DC.U 


GVR 




23 


00000034 


0000 


0000 


OC.L 


ALPHALIST 


24 








REFR 


ASM ASM 


2S 


00000038 


07 




DC.B 


7,'ffsn 


_fisrr 


25 


00000039 


41 










25 


0000003A 


53 










25 


000OOO3B 


4D 










25 


0000003C 


5F 










25 


0O0OOO3D 


41 










25 


0000003E 


53 










25 


O00OOO3F 


4D 











module descriptor: 
link = NIL 
patchmod = false 
address of DEF table 
def size 

resolved = 1 rue 
startaddress 

' progname 



abs, sint, value extend, 6 bytes 
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DC.U GVR 

DC.L ASM_ASM 

REFR ASM ASSIGN 

DC.B lO^ASM ASSIGN' 



*** File name: SYSDEF «»* 



26 


00000040 


1206 


27 


00000042 


0000 0000 


28 






29 


00000046 


OA 


29 


00000047 


41 


29 


00000048 


53 


29 


00000049 


4D 


29 


O0000O4A 


5F 


29 


0000004B 


41 


29 


OO000O4C 


53 


29 


OO0O0O4D 


53 


29 


OO000O4E 


49 


29 


O0O00O4F 


47 


29 


00000050 


4E 


30 


00000052 


1206 


31 


00000054 


0000 0000 


32 






33 


00000058 


OD 


33 


00000059 


41 


33 


OOOOOOSA 


S3 


33 


0000005B 


4D 


33 


OOOOOOSC 


5F 


33 


00000O5D 


43 


33 


OOOOOOSE 


41 


33 


O0000O5F 


43 


33 


00000060 


48 


33 


00000061 


45 


33 


00000062 


SF 


33 


00000063 


4F 


33 


00000064 


46 


33 


00000065 


46 


34 


00000066 


1206 


35 


00000068 


0000 0000 


36 






37 


0000006C 


OC 


37 


00O00O6D 


41 


37 


0000006E 


53 


37 


0000006F 


4D 


37 


00000070 


5F 


37 


00000071 


43 


37 


00000072 


41 


37 


00000073 


43 


37 


00000074 


4 6 


37 


00000075 


45 


37 


00000076 


5F 


37 


00000077 


4F 


37 


00000078 


4E 


38 


0000007H 


1206 


39 


OOO00O7C 


0000 0000 


40 






41 


00000080 


OD 


41 


00000081 


41 


41 


00000082 


53 


41 


00000083 


4D 


41 


00000084 


5F 


4! 


00000085 


43 


41 


OOC00086 


49 



DC.U GVR 

DC.L ASMJ1SSIGN 

REFR ASM CACHE OFF 

DC.B 13, T ASM CffCHE OFF' 



DC.U GVR 

OC.L ASM CACHE OFF 

REFR ASM CACHE ON 

DC.B 12, T ASM CffCHE ON' 



DC.U GVR 

DC.L HSM_CACHE ON 

REFR ASM CI SWITCH 

DC.B 13, T ASFI CI SWITCH' 
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41 


000000:37 


5F 










41 


00000038 


S3 










41 


00000039 


57 










41 


OOOOOOSfi 


49 










41 


0000008B 


54 










41 


00O0008C 


43 










41 


00000030 


48 










42 


0000008E 


1206 




DC.U 


GVR 




43 


00000030 


0000 


0000 


DC.L 


ASM CI SWITCH 




44 








REFR 


RSM CPVriSG 




45 


00000094 


OR 




OC.B 


10, """RSM CPYMSG' 




4S 


00000095 


41 






- 




45 


00000096 


53 










45 


00000097 


40 










45 


00000098 


5F 










45 


00000099 


43 










45 


0000009R 


50 










45 


0000009B 


59 










45 


0000009C 


4D 










45 


0000009D 


53 










45 


0000009E 


47 










46 


oooooono 


1206 




DC.U 


GVR 




47 


O0O00OH2 


0000 


oooo 


DC.L 


nsn cpymsg 




48 








REFR 


RSM DIFFERENCE 




49 


000000H6 


OE 




OC.B 


14, T ASM_DIFFERENCE' 




49 


000000R7 


41 










49 


0OO00OA8 


53 










49 


O0O00OA9 


4D 










49 


OOOOOOAR 


5F 










49 


OOOOOOAB 


44 










49 


OOOOOORC 


49 










49 


OOOOOOHD 


46 










49 


OOOOOOAE 


46 










49 


OOOOOORF 


45 










49 


OOOOOOBO 


52 










49 


000000B1 


45 










49 


OOO0OOB2 


4E 










49 


O0OO0OB3 


43 










49 


000000B4 


45 










SO 


O0OO0OB6 


1206 




DC.U 


GVR 




51 


000000B8 


0000 


0000 


DC.L 


RSM DIFFERENCE 




52 








REFR 


ASM DIV 




S3 


OOOOOOBC 


07 




DC.B 


7, 'PfSM_DIV 




53 


OOOOOOBD 


41 










53 


OOOOOOBE 


53 










S3 


OOOOOOBF 


4D 










S3 


OOOOOOCO 


5F 










53 


000000C1 


44 










53 


OOOOO0C2 


49 










53 


OOO00OC3 


56 










54 


000000X4 


1206 




DC.U 


GVR 




55 


000000C6 


0000 


oooo 


OC.L 


ASM DIV 




56 








REFR 


RSM EQUAL 




57 


OOOOOOCA 


09 




OC.B 


9, 'RSM EQUAL' 




57 


OOOOOOCB 


41 










57 


oooooocc 


S3 










57 


OOOOOOCD 


4D 
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S7 


OOOOOOCE 


SF 










57 


OOOOOOKF 


45 










57 


OOOOOODO 


51 










57 


00O00OD1 


55 










57 


00000002 


41 










57 


00000003 


4C 










58 


00000004 


1206 




DC.U 


GVR 




59 


00000006 


0000 


OOOO 


DC.L 


ASM EQUAL 




60 








REFR 


RSM ERRMSG 




61 


OOOOOOOA 


OR 




DC.B 


10, T RSM_ERRMSG' 




61 


OOOOOODB 


41 










61 


OOOOOOCC 


53 










61 


OOOOOODO 


40 










61 


OOOCOOOE 


5F 










61 


00-QOOOF 


45 










61 


OOCOOOEO 


52 










61 


OOO00OE1 


52 










61 


OOO0OOE2 


4D 










61 


00O00OE3 


53 










61 


OOO00OE4 


47 










62 


OOO00OE6 


1206 




DC.U 


GVR 




63 


0O000OE8 


0000 


OOOO 


DC.L 


RSM ERRMSG 




64 








REFR 


ASM FRSTMOVE 




65 


OOOOOOEC 


oc 




OC.B 


12, T ASM_FASTM0VE' 




65 


OOOOOOED 


41 










65 


OOOOOOEE 


53 










65 


OOOOOOEF 


4D 










65 


OOOOOOFO 


SF 










65 


O0000OF1 


46 










65 


O00000F2 


41 










6S 


O00000F3 


53 










65 


OO00OOF4 


54 










65 


O00000F5 


4D 










65 


O0O0OOF6 


4F 










65 


O0OOOOF7 


56 










6S 


O00000F8 


45 










66 


OOOOOOFA 


1206 




DC.U 


GVR 




67 


OOOOOOFC 


0000 


OOOO 


DC.L 


RSM FRSTMOVE 




68 








REFR 


ASM FINOROMS 




69 


OOO001OO 


oc 




DC.B 


12, T RSM_FINDR0MS' 




69 


oooooicn 


41 










69 


00000102 


S3 










69 


00000103 


4D 










69 


00000104 


5F 










69 


00000105 


46 










69 


00000106 


49 










69 


00000107 


4E 










69 


00000108 


44 










69 


00000109 


5 2 










69 


0000010P. 


4F 










69 


0000010B 


4D 










69 


O000010C 


S3 










70 


0000010E 


1206 




DC.U 


GVR 




71 


00000110 


0000 


OOOO 


DC.L 


ASM FINDROMS 




72 








REFR 


ASM FLPYINIT 




73 


00000114 


OC 




OC.B 


12, T RSn FLPYINIT' 




73 


00000115 


41 
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73 


00000116 


52 










73 


00000117 


if! 










73 


00000118 


5I : 










73 


00000119 


46 










73 


000001 IB 


42 










73 


0000011B 


2 










73 


OO00011C 


2 2 










73 


OOOOOUD 


4:i 










73 


0000011E 


4 2. 










73 


OOOOOHF 


4'1 










73 


00000120 


64 










74 


00000122 


1206 




DC.U 


GVR 




75 


00000124 


0000 


0000 


OC.L 


ASM FLPVINIT 




76 








PEF-R 


BSM FLPYMREBD 




77 


00000128 


Ou 




DC.B 


13, T BSt1_FLPYMREA0' 




77 


00000129 


41 










77 


000001 2fi 


•:■} 










77 


0000012B 


in 










77 


0000012C 


5F 










77 


0000012D 


46 










77 


OO00012E 


4C 










77 


0000012F 


50 










77 


00000130 


59 










77 


00000131 


4D 










77 


00000132 


52 










77 


00000133 


4 5 










77 


00000134 


41 










77 


00000135 


44 










78 


00000136 


1206 




DC.U 


GVR 




79 


00000138 


0000 


0000 


OC.L 


BSM FLPYMREBD 




80 








REFR 


BSM FLPYMURITE 




81 


0000013C 


OE 




DC.B 


14, T RSM_FLPYMURITE' 




81 


0000013D 


41 










81 


000001 3E 


53 










81 


0000013F 


4D 










81 


00000140 


5F 










81 


00000141 


46 










81 


00000142 


4C 










81 


00000143 


SO 










81 


00000144 


59 










81 


0000014S 


40 










81 


00000146 


57 










81 


00000147 


52 










81 


00000148 


49 










81 


00000149 


54 










81 


0000014P! 


45 










82 


0000014C 


1206 




DC.U 


GVR 




83 


0000014E 


0000 


0000 


DC.L 


FlSM FLPYWRITE 




84 








REFR 


BSM FLPYREBD 




85 


00000152 


oc 




DC.B 


12, T P,SM_FLPYREBD' 




85 


00000153 


41 










85 


00000154 


53 










85 


00000155 


4D 










85 


000001S6 


5F 










85 


00000157 


46 










85 


00000158 


4C 










85 


00000159 


50 
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85 


0000015B 


59 










85 


000001SB 


52 










85 


0000015C 


45 










85 


0000015D 


41 










85 


0000015E 


44 










86 


00000160 


1206 




DC.U 


GVR 




87 


00000162 


0000 


0000 


DC.L 


ASM FLPYREBD 




88 








REFR 


BSn FLPY URT 




89 


00000166 


oc 




DC.B 


12, T BSM_FLPYJJRT' 




89 


00000167 


41 










89 


00000168 


52 










89 


00000169 


4D 










89 


0000016B 


5F 










89 


0000016B 


46 










89 


0000016C 


.{(.' 










89 


0000016D 


50 










89 


0000016E 


59 










89 


0000016F 


5F 










89 


00000170 


57 










89 


00000171 


52 










89 


00000172 


54 










90 


00000174 


120,6 




DC.U 


GVR 




91 


00000176 


0000 


0000 


DC.L 


BSM FLPY URT 




92 








REFR 


BSM F PUR" ON 




93 


0000017A 


oc 




DC.B 


12, T RST1_F_PUR_0N' 




93 


0000017B 


41 










93 


0000017C 


53 










93 


0000017D 


4D 










93 


0000017E 


SF 










93 


0000017F 


46 










93 


00000180 


5F 










93 


00000181 


60 










93 


00000182 


57 










93 


00000183 


52 










93 


00000184 


SF 










93 


00000185 


4F 










93 


00000186 


4E 










94 


00000188 


1226 




DC.U 


GVR 




95 


OO0O018B 


oooo 


0000 


OC.L 


BSM F PUR ON 




96 








REF5 


BSM IN" 




97 


0000018E 


06 




DC.B 


6, 'SSIIJN' 




97 


0000018F 


41 










97 


00000190 


5., 










97 


00000191 


4D 










97 


00000192 


5F 










97 


00000193 


4 9 










97 


00000194 


4E 










98 


00000196 


1206 




DC.U 


GVR 




99 


00000198 


0000 


oooo 


DC.L 


RSM IN 




100 








REFR 


RSM INCLUSION 




101 


0000019C 


CD 




DC.B 


13, T BSM INCLUSION' 




101 


0000019D 


41 










101 


0000019E 


S3 










101 


0000019F 


4C 










101 


oooooino 


SF 










101 


oooooini 


4 3 










101 


000001fl2 


42 
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101 


000001A3 43 






101 


00000134 4C 






101 


00000135 55 






101 


00000136 53 






101 


OOO0O1A7 49 






101 


000001A8 4F 






101 


000001A9 4E 






102 


000001AA 1206 


oc.u 


GVR 


103 


000001AC 0000 0000 


OC.L 


ASM INCLUSION 


104 




REFR 


ASM INTERSECT 


105 


000001B0 OD 


OC.B 


13, T ASM INTERSECT 


105 


000001B1 41 




— 


105 


000001B2 53 






10S 


000001B3 4D 






105 


000001B4 5F 






105 


000001B5 49 






105 


000001B6 4E 






105 


000001B7 54 






105 


00O001B8 45 






105 


00O001B9 52 






105 


0OO001BA 53 






105 


000001BB 45 






105 


0OO001BC 43 






105 


000001BD 54 






106 


000001BE 1206 


DC.U 


GVR 


107 


000001CO 0000 OOOO 


DC.L 


ASM INTERSECT 


108 




REFR 


ASM MEMAVAIL 


109 


000001C4 OC 


OC.B 


12, T ASM_MEMAVAIL' 


109 


000001CS 41 






109 


000001C6 53 






109 


000001C7 4D 






109 


000001C8 5F 






109 


000001C9 4D 






109 


000001CA 45 






109 


000001CB 4D 






109 


000001CC 41 






109 


000001CD 56 






109 


000001CE 41 






109 


000001CF 49 






109 


000001DO 4C 






110 


000001D2 1206 


DC.U 


GVR 


111 


0000011)4 0000 0000 


DC.L 


ASM MEMAVAIL 


112 




REFR 


ASM MOD 


113 


0000011)8 07 


DC.B 


7,'A"SMJ10D' 


113 


00000109 41 






113 


000001DA 53 






113 


000001DB 40 






113 


000001DC 5F 






113 


OOOOOIOD 4D 






113 


000001DE 4F 






113 


OOOOOltIF 44 






114 


000001E0 1206 


DC.U 


GVR 


115 


000001E2 OOOO OOOO 


DC.L 


ASM MOD 


116 




REFR 


ASM MOVEL 


117 


000001E:6 09 


DC.B 


9, 'ffSM MOVEL' 


117 


000001E:7 41 






117 


000001E:8 53 
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DC.U GVR 

DC.L ASM_MOVEL 

REFR ASM MOVELEFT 

DC.B 12, T ASM MOVELEFT' 
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117 


000001E9 


4D 


117 


000001EA 


5F 


117 


000001E8 


4D 


117 


000001EC 


4F 


117 


000001ED 


56 


117 


OOO001EE 


45 


117 


000001EF 


4C 


118 


000001F0 


1206 


119 


000001F2 


OOOO OOOO 


120 






121 


000001 F6 


OC 


121 


0OO001F7 


41 


121 


000001F8 


53 


121 


000001F9 


4D 


121 


000001FA 


5F 


121 


000001FB 


4D 


121 


000001FC 


4F 


121 


000001FD 


56 


121 


000001 FE 


45 


121 


000001FF 


4C 


121 


0OO002CO 


45 


121 


00000201 


46 


121 


00000202 


54 


122 


00000204 


1206 


123 


00000206 


OOOO OOOO 


124 






12S 


0000020A 


09 


12S 


0000020B 


41 


12S 


0000020C 


53 


125 


00O0020D 


4D 


125 


0000020E 


5F 


125 


0000020F 4D 


125 


00000210 


4F 


125 


00000211 


56 


125 


00000212 


45 


125 


00000213 


52 


126 


00000214 


1206 


127 


00000216 


OOOO OOOO 


128 






129 


0000021A 


OD 


129 


00000218 


41 


129 


0000021C 


53 


129 


0000021D 


4D 


129 


0000021E 


SF 


129 


0000021 F 


4D 


129 


00000220 


4F 


129 


00000221 


56 


129 


00000222 


45 


129 


00000223 


52 


129 


00000224 


49 


129 


00000225 


47 


129 


00000226 


48 


129 


00000227 


54 


130 


00000228 


1206 


131 


0000022A 


OOOO OOOO 


132 






133 


0000022E 


07 



DC.U GVR 

DC.L ASM MOVELEFT 

REFR ASM MOVER 

DC.B 9,'ffSM MOVER' 



DC.U GVR 

DC.L ASM_MOVER 

REFR ASM MOVERIGHT 

DC.B 13, T ASMJ10VERIGHT' 



DC.U GVR 

DC.L ASMJ10VERIGHT 

REFR ASM MAY 

DC.B 7, 'HSM MPY' 
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■33 


0000022F 


41 






!33 


00000230 


53 






133 


00000231 


40 






133 


00000232 


5F 






133 


00000233 


40 






133 


00000234 


SO 






133 


00000235 


59 






134 


00000236 


1206 


DC.U 


GVR 


135 


00000238 


0000 0000 


DC.L 


ASM MPY 


136 






REFR 


ASM NEOUAL 


137 


0000023C 


Ofi 


DC.B 


10, T ASM_NEQUAL' 


137 


0000023D 


41 






137 


0000023E 


S3 






137 


0000023F 


40 






137 


00000240 


5F 






137 


00000241 


4E 






137 


00000242 


45 






137 


00000243 


51 






137 


00000244 


55 






137 


00000245 


41 






137 


00000246 


4C 






138 


00000248 


1206 


DC.U 


GVR 


139 


0000024FI 


0000 OOOO 


DC.L 


ASM NEQUAL 


140 






REFR 


BSM _ NEU8YTES 


141 


0000024E 


OC 


DC.B 


12, T BSM_NEU8YTES 


141 


0000024F 


41 






141 


00000250 


63 






141 


000002S1 


40 






141 


00000252 


5F 






141 


000002S3 


4E 






141 


00000254 


45 






141 


00000255 


57 






141 


00000256 


42 






141 


000002S7 


59 






141 


00000258 


54 






141 


00000259 


45 






141 


0000025A 


53 






142 


000002SC 


1206 


DC.U 


GVR 


143 


0000025E 


0000 0000 


DC.L 


BSM NEUBYTES 


144 






REFR 


BSM NEUUORDS 


145 


00000262 


OC 


DC.B 


12, T BSM_NEUU0RDS 


145 


00000263 


41 






145 


00000264 


53 






145 


00000265 


4D 






145 


00000266 


5F 






145 


00000267 


4E 






145 


00000268 


45 






145 


00000269 


57 






145 


0000026A 


57 






145 


0000026B 


4F 






145 


0000026C 


52 






145 


0000026D 


44 






145 


0000026E 


53 






146 


00000270 


1206 


DC.U 


GVR 


147 


00000272 


0000 0000 


OC.L 


BSM NEUUORQS 


148 






REFR 


ASM~POS 


149 


00000276 


07 


DC.B 


7,'HSM POS' 
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149 


00000277 


41 






149 


00000278 


53 






149 


00000279 


40 






149 


0000027A 


SF 






149 


00000278 


SO 






149 


0000027C 


4F 






149 


0000027D 


S3 






150 


0000027E 


1206 


DC.U 


GVR 


151 


00000280 


0000 0000 


DC.L 


BSM POS 


152 






REFR 


ASM POUIERUP 


153 


00000284 


OB 


DC.B 


11, T ASM_P0UERUP 


153 


00000285 


41 






153 


00000286 


S3 






153 


00000287 


4D 






153 


00000288 


SF 






153 


00000289 


SC 






153 


0000028A 


4F 






153 


0000028B 


57 






153 


0000028C 


45 






163 


0000028D 


52 






153 


0000028E 


55 






153 


0000028F 


50 






154 


00000290 


1206 


DC.U 


GVR 


1S5 


00000292 


0000 0000 


DC.L 


BSM POUERUP 


156 






REFR 


BSM RMOVEL 


157 


00000296 


OA 


DC.B 


10, T ASM_RM0VEL' 


157 


00000297 


41 






157 


00000298 


53 






157 


00000299 


40 






157 


0000029A 


SF 






157 


0000029B 


52 






157 


0000029C 


4D 






157 


0000029D 


4F 






157 


0000029E 


56 






157 


0000029F 


45 






157 


000002BO 


4C 






158 


000002A2 


1206 


DC.U 


GVR 


159 


000002R4 


0000 OOOO 


DC.L 


BSM RMOVEL 


160 






REFR 


BSM RMOVER 


161 


000002B8 


OA 


DC.B 


10, T ASM_RM0VER' 


161 


000002B9 


41 






161 


000002BA 


S3 






161 


O000O2BB 


40 






161 


000002BC 


5F 






161 


000002RD 


52 






161 


000002AE 


40 






161 


000002BF 


4F 






161 


000002BO 


56 






161 


000002B1 


4S 






161 


00000262 


52 






162 


000002B4 


1206 


DC.U 


GVR 


163 


000002B6 


OOOO OOOO 


DC.L 


BSM RMOVER 


164 






REFR 


ASM UNION 


165 


000002BA 


03 


DC.B 


9, 'A"SM UNION' 


165 


000002BB 


41 






165 


000002BC 


5 3 






165 


000002BD 


4D 
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16S 


000002BE 


SF 






16S 


000002BF 


55 






165 


000002CO 


4E 






165 


000002C1 


49 






165 


000002C2 


4F 






165 


000002C:3 


4E 






166 


000002C4 


1206 


DC.U 


GVR 


167 


000002C:6 


0000 cooo 


DC.L 


ASM UNION 


168 






REFR 


ASM USERPROGRRM 


169 


ooooo2c:h 


OF 


DC.B 


lS^ASnjJSERPROGRRrr 


169 


000002CB 


41 






169 


000002CC 


53 






169 


000002CD 


4D 






169 


000002CE 


5F 






169 


000002CF 


55 






169 


00O002DO 


53 






169 


000002D1 


45 






169 


000002P2 


52 






169 


000002D3 


50 






169 


00O002D4 


52 






169 


00000205 


4F 






169 


000002D6 


47 






169 


000002D7 


52 






169 


OOO0O2B8 


41 






169 


000002B9 


4D 






170 


000002C1A 


1206 


OC.UI 


GVR 


171 


000002DC 


0000 COOO 


OC.L 


ASM USERPROGRRH 


172 






REFR 


BOOTDAIiriODULE 


173 


000002EO 


OD 


OC.B 


13,'BOOTDRMMODULE' 


173 


000002E1 


42 






173 


000002E2 


4F 






173 


000002E3 


4F 






173 


000002E4 


54 






173 


000002ES 


44 






173 


000002E6 


41 






173 


000002E7 


40 






173 


000002E8 


4D 






173 


000002E9 


4F 






173 


000002ER 


44 






173 


00OO02EB 


55 






173 


000002EC 


4C 






173 


000002EO 


45 






174 


000002EE 


1206 


DC.U 


GVR 


17S 


0OOO02FO 


0000 0000 


DC.L 


BOOTDAMMODULE 


176 






REFR 


BOOTDAMMODULE BOOTDRM 


177 


0OOO02F4 


IS 


DC.B 


21,'BOOTDAMMOD'ULE BOOTDRM 


177 


00OO02FS 


42 






177 


0OOO02F6 


4F 






177 


000002F7 


4F 






177 


000002F8 


54 






177 


000002F9 


44 






177 


000002FA 


41 






177 


000002FB 


40 






177 


000002FC 


4D 






177 


000002FD 


4F 






177 


0OOO02FE 


44 






177 


000002FF 


55 
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177 


00000300 


4C 




177 


00000301 


45 




177 


00000302 


SF 




177 


00000303 


42 




177 


00000304 


4F 




177 


0OO003OS 


4F 




177 


00000306 


54 




177 


00000307 


44 




177 


00000308 


41 




177 


00000309 


40 




178 


0000030R 


1206 


DC.U 


179 


0OO003OC 


0000 0000 


DC.L 


180 






REFR 


181 


00000310 


IB 


DC.B 


181 


00000311 


42 




181 


00000312 


4F 




181 


00000313 


4F 




181 


00000314 


54 




181 


00000315 


44 




181 


00000316 


41 




181 


00000317 


40 




181 


00000318 


40 




181 


00000319 


4F 




181 


0000031R 


44 




181 


0000031B 


S5 




181 


0000031C 


4C 




181 


0000031D 


45 




181 


0000031E 


SF 




181 


0000031 F 


42 




181 


00000320 


4F 




181 


00000321 


4F 




181 


00000322 


54 




181 


00000323 


44 




181 


00000324 


41 




181 


00000325 


4D 




181 


00000326 


4D 




181 


00000327 


4F 




181 


00000328 


44 




181 


00000329 


55 




181 


0000032R 


4C 




181 


0000032B 


45 




182 


0000032C 


1206 


DC.U 


183 


0000032E 


0000 0000 


DC.L 


184 






REFR 


185 


00000332 


16 


DC.B 


185 


00000333 


42 




185 


00000334 


4F 




185 


0000033S 


4F 




185 


00000336 


54 




185 


00000337 


44 




185 


00000338 


41 




185 


00000339 


40 




185 


0000033R 


4D 




185 


0000033B 


4F 




18S 


0000033C 


44 




185 


0000033D 


55 




185 


0000033E 


4C 





GVR 

BOOTDRMMOOULE BOOTDRM 

BOOTDRMnODULE BOOTDAMMODULE 

27, 'BOOTDAMMODULE BOOTOAMMODULE' 



BOOTDRt1l100ULE_BOOTDRMnODULE 
BOOTDflnilODULE 800TN0DE 
22,'B00TDAMr10D"ULE BOOTNOOE' 
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185 


0000033F 45 




185 


00000340 FF 




185 


00000341 42 




185 


00000342 4F 




185 


00000343 4F 




185 


00000344 54 




185 


00000345 4E 




185 


00000346 4F 




185 


00000347 14 




185 


00000348 45 




186 


0000034H 1206 


DC.U 


187 


0000034C 0000 0000 


DC. 1. 


188 




REFR 


189 


00000350 14 


DC.B 


189 


00000351 42 




189 


00000352 4F 




189 


00000353 4F 




189 


00000354 54 




189 


0000035S 44 




189 


00000356 41 




189 


00000357 4D 




189 


00000358 4D 




189 


00000359 4F 




189 


0000035H 44 




189 


O000035B 55 




189 


0000035C 40 




189 


0000035D 45 




189 


O000035E 6F 




189 


0000035F 42 




189 


00000360 4F 




189 


00000361 4F 




189 


00000362 54 




189 


00000363 54 




189 


00000364 4D 




190 


00000366 1206 


DC.U 


191 


00000368 0000 0000 


DC.L 


192 




REFR 


193 


0000036C 19 


DC.B 


193 


C000036D 42 




193 


0000036E 4F 




193 


0000036F 4F 




193 


00000370 54 




193 


00000371 44 




193 


00000372 41 




193 


00000373 4D 




193 


00000374 40 




193 


00000375 4F 




193 


00000376 44 




193 


00000377 55 




193 


00000378 4C 




193 


00000379 45 




193 


0000037H 5F 




193 


0000037B 49 




193 


0000037C 4E 




193 


0000037D 49 




193 


0000037E 54 




193 


0000037F 42 
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GVR 

BOOTQnt1MODULE_BO0TN0DE 
BOOTDAHMOCUlE bcottm 
20, 'BOOTDAITIOrJULE_BOOTTn' 



GVR 

BO0TDfil1MODULE_BO0TTM 

BOOTDBMMODULE INITBOOTDAM 

25, 'BOOTDRIinoriULE_INITBOOTDfiM' 
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DC .J GVR 

DC.L B00TDf)MM0DULE_INITB0OTDAM 

REFR BOOTDAMMOOULE SRMNOOE 

DC.B 21,'B0OTDRMI10rjULE SRMNODE' 
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193 


00000380 


4F 


193 


00000381 


4F 


193 


00000382 


64 


193 


00000383 


44 


193 


00000384 


41 


193 


00000385 


40 


194 


00000386 


1206 


195 


00000388 


0000 0000 


196 






197 


0000038C 


15 


197 


0000038D 


42 


197 


0000038E 


4F 


197 


0000038F 


4F 


197 


00000390 


54 


197 


00000391 


44 


197 


00000392 


41 


197 


00000393 


4D 


197 


00000394 


4D 


197 


0000039S 


4F 


197 


00000396 


44 


197 


00000397 


55 


197 


00000398 


4C 


197 


00000399 


45 


197 


OO00039R 


■■/■: 


197 


0000039B 


53 


197 


0000039C 


52 


197 


0000039D 


4D 


197 


0000039E 


4E 


197 


0000039F 


4F 


197 


000003AO 


44 


197 


000003A1 


45 


198 


000003A2 


120$ 


199 


000003A4 


0000 0000 


200 






201 


000003R8 


13 


201 


000003A9 


42 


201 


000003RF1 


4F 


201 


000003AB 


4F 


201 


OO0O03AC 


54 


201 


000003AD 


44 


201 


000003AE 


41 


201 


000003AF 


4D 


201 


000003BO 


40 


201 


OO00O3B1 


4F 


201 


OO0O03B2 


44 


201 


000003B3 


55 


201 


000003B4 


4C 


201 


000003B5 


45 


201 


000003B6 


5F 


201 


000003B7 


SF 


201 


000003B8 


42 


201 


000003B9 


41 


201 


000003BR 


53 


201 


000003BB 


45 


202 


000003BC 


1206 


203 


000003BE 


0000 0000 


204 







DC.U GVR 

DC.L BOOTDAMMOOULE SRMNOOE 

REFR BOOTDAMMOOULE BASE 

DC.B 19, 'BOOTDflMMODTTLE BRSE' 



DC.U GVR 

DC.L BOOTDAMMOOULE BASE 

REFR BOOT FINDFUE 
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205 


000003C2 


OD 


205 


000003C3 


42 


2 OS 


000003C4 


4F 


20S 


000003CS 


4F 


205 


000003C6 


54 


205 


000003C7 


5F 


2 OS 


000003C8 


46 


205 


000003C9 


49 


205 


0000030P. 


4E 


205 


000003CB 


44 


205 


000003CC 


46 


205 


000003CD 


49 


205 


0OO003CE 


4C 


205 


000003CF 


45 


206 


0000031)0 


1206 


207 


00000302 


0000 0000 


208 






209 


0000031)6 


oc 


209 


0000031)7 


42 


209 


00000308 


4F 


209 


00000309 


4F 


209 


0000030B 


54 


209 


0000030B 


5F 


209 


0000030C 


4C 


209 


0000030D 


49 


209 


0000030E 


46 


209 


000003DF 


48 


209 


000003FO 


45 


209 


000003K 1 


41 


209 


000003K2 


44 


210 


000003E4 


1206 


211 


0000031:6 


0000 OOOO 


212 






213 


0000031! P. 


OC 


213 


000003EB 


42 


213 


000003EC 


4F 


213 


000003ED 


4F 


213 


000003EE 


54 


213 


000003EF 


5F 


213 


000003F0 


4D 


213 


000003F1 


46 


213 


000003F2 


43 


213 


000003F3 


4C 


213 


000003F4 


4F 


213 


000003F5 


53 


213 


000003F6 


45 


214 


000003F8 


1206 


215 


000003FP) 


0000 0000 


216 






217 


000003FE 


OB 


217 


000003FF 


42 


217 


00000400 


4F 


217 


00000401 


4F 


217 


00000402 


54 


217 


00000403 


5F 


217 


00000404 


4D 


217 


00000405 


46 



DC.U GVR 

DC. I BOOT FINDFILE 

REFR BOOT LIFHEAD 

DC.B 12,'B"O0T LIFHEAD' 



DC.UI GVR 

DC.L BOOT LIFHEAD 

REFR BOOT MFCLOSE 

DC.B 12,'B"00T_MFCL0SE' 



DC.U GVR 

DC.L BOOT MFCLOSE 

REFR BOOT MFOPEN 

DC.B 11,'B"00T MFOPEN' 



PBGE 
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217 


00000406 4F 






217 


00000407 SO 






217 


00000408 45 






217 


00000409 4E 






218 


0000040B 1206 


DC.U 


GVR 


219 


O0O0040C 0000 OOOO 


OC.L 


BOOT MFOPEN 


220 




REFR 


BOOT MINIT 


221 


00000410 OH 


DC.B 


lO/EOOTJIINIT' 


221 


000004! 1 42 






221 


00000412 4F 






221 


00000413 4F 






221 


00000414 54 






221 


00000415 5F 






221 


00000416 4D 






221 


00000417 49 






221 


00000418 4E 






221 


00000419 49 






221 


0000041 H 54 






222 


0000041 C 1206 


DC.U 


GVR 


223 


0000041 E OOOO OOOO 


DC.L 


BOOT MINIT 


224 




REFR 


BOOT MREHD 


225 


00000422 OB 


DC.B 


10,'SOOTJIREflD' 


225 


00000423 42 






225 


00000424 4F 






225 


00000425 4F 






225 


00000426 54 






225 


00000427 5F 






225 


00000428 4D 






225 


00000429 52 






225 


0000042R 45 






225 


0000042B 41 






225 


0000042C 44 






226 


0000042E 1206 


DC.U 


GVR 


227 


00000430 OOOO OOOO 


DC.L 


BOOT MRERD 


228 




REFR 


EVALGVR 


229 


00000434 07 


DC.B 


7, 'EVRLGVR' 


229 


00000435 45 






229 


000O0436 56 






229 


00000437 41 






229 


0000043 8 4C 






229 


0000043 9 47 






229 


00O0043B 56 






229 


0000043B 52 






230 


0000043 C 1206 


DC.U 


GVR 


231 


0000043E OOOO OOOO 


DC.L 


EVALGVR 


232 




REFR 


FS FURITESTRINT 


233 


00000442 OF 


DC.B 


15, 'FS FURITESTRINT 


233 


00000443 46 






233 


00000444 53 






233 


0000044 5 5F 






233 


00000446 46 






233 


00000447 57 






233 


00000448 52 






233 


00000449 49 






233 


0000044B 54 






233 


0000044B 45 






233 


0000044C 53 
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DC.U GVR 

DC.L FS FURITESTRINT 

REFR GJJOLLAR 

DC.B 8, 'G DOLLAR' 



File name: SVSDEF 



233 


0000044D 


54 


233 


0000044E 


52 


233 


C000044F 


49 


233 


00000450 


4E 


233 


00000451 


54 


334 


00000452 


1206 


235 


C0000454 


0000 0000 


236 






237 


00000458 


08 


237 


00000459 


47 


237 


0000045A 


5F 


237 


0000045B 


44 


237 


0000045C 


4F 


237 


0000045D 


4C 


237 


0000045E 


4C 


237 


0000045F 


41 


237 


00000460 


52 


238 


00000462 


1206 


239 


00000464 


0000 0000 


240 






241 


00000468 


08 


241 


00000469 


49 


241 


0000046P! 


4E 


241 


0000046B 


49 


241 


0000046C 


54 


241 


0000046D 


4C 


241 


0000046E 


4F 


241 


0000046F 


41 


241 


00000470 


44 


24 2 


00000472 


1206 


24 3 


00000474 


0000 0000 


244 






245 


00000478 


11 


245 


00000479 


49 


24 5 


0000047A 


4 5 


245 


0000047B 


4 3 


24 5 


0000047C 


54 


245 


00000470 


4C 


24 5 


0000047E 


4F 


24 5 


0000047F 


41 


245 


00000480 


44 


245 


00000481 


5F 


245 


00000482 


49 


245 


00000483 


4E 


245 


00000484 


4 3 


245 


0000048S 


34 


245 


00000486 


4C 


245 


00000487 


4F 


245 


00000488 


41 


245 


00000489 


44 


246 


0000048H 


1206 


247 


0000048C 


0000 0000 


248 






249 


00000490 


12 


249 


00000491 


49 


249 


00000492 


4E 


249 


00000493 


49 



DC.U GVR 

DC.L G DOLLAR 

REFR IRITLOAD 

DC.B 8,'INITLOPD' 



DC.U GVR 

DC.L INITLOAD 

REFR INITLOAD INITLOfiD 

DC.B 17,'INITrofiD INITLOHD' 



DC.U GVR 

DC.L INITLOfiD INITLOfiD 

REFR INITLOfiD SYSPREFIX 

DC.B 18, 'INITEOAD SYSPREFIX' 
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24 9 


00000494 


54 






24 9 


00000495 


4C 






24 9 


00000496 


4F 






249 


00000497 


41 






249 


00000498 


44 






249 


00000499 


5F 






249 


00000490 


53 






249 


0000049B 


53 






24 9 


0000049C 


5 3 






24 9 


0000049D 


50 






24 9 


0000049E 


52 






24 9 


0000049F 


45 






249 


000004 SO 


46 






249 


000004A1 


4 J 






249 


000004 fl2 


58 






250 


000004 f!4 


1206 


DC.U 


GVR 


251 


000004 fl6 


0000 0000 


DC.L 


INITLOAD SYSPREFIX 


252 






REFR 


INITLOFID BASE 


253 


000004AA 


OF 


DC.B 


14, 'INITETOD BASE' 


25 3 


000004AB 


4 9 






253 


O000O4AC 


4E 






253 


000004AD 


49 






253 


OO0004AE 


54 






253 


000004AF 


40 






253 


000004BO 


4F 






253 


000004B1 


41 






253 


0O0O04B2 


44 






253 


OO0OO4B3 


5F 






253 


00000464 


5F 






253 


000004B5 


42 






253 


000004B6 


4; 






253 


000004B7 


53 






253 


00000488 


45 






254 


000004BA 


1206 


DC.U 


GVR 


255 


000004BC 


0000 0000 


DC.L 


INITLOfiD BASE 


256 






REFR 


LOADER 


257 


000004CO 


06 


DC.B 


6, 'LOADER' 


257 


000004C1 


4C 






257 


000004C2 


4F 






257 


000004C3 


41 






257 


000004C4 


44 






257 


000004C5 


4 5 






257 


000004C6 


52 






258 


000004C8 


1206 


DC.U 


GVR 


259 


000004CB 


0000 0000 


DC.L 


LOADER 


260 






REFR 


LOADER CHECKREV 


261 


000004CE 


OF 


DC.B 


15,'LOffDER CHECKREV 


261 


000004CF 


4C 






261 


000004DO 


41- 






261 


000004D1 


41 






261 


00000402 


44 






261 


000004D3 


4 5 






261 


OO0004D4 


52 






261 


00000405 


5F 






261 


000004D6 


43 






261 


000004D7 


48 






261 


00000408 


4 5 
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GVR 

LOAOER_CHE«REV 
LOADER CLOSEFILES 
17,'L0A"DER_CL0SEFILES' 



File name: SYSOEF ** 



261 


000004D9 43 




261 


000004DR 4B 




261 


000004DB 52 




261 


000004DC 45 




261 


0000040D 56 




262 


000004DE 1206 


DC.U 


263 


000004EO 0000 0000 


DC.L 


264 




REFR 


265 


000004E4 11 


DC.B 


265 


000004E5 4C 




265 


000004E6 4F 




265 


0OO004E7 41 




265 


000004E8 44 




265 


000004E9 45 




265 


000004EA 52 




265 


0OO004EB 5F 




265 


000004EC 43 




265 


000004ED 4C 




265 


000004EE 4F 




265 


000004EF 53 




265 


00O004FO 45 




265 


000004F1 46 




265 


000004F2 49 




265 


O00004F3 4C 




265 


000004F4 45 




265 


000004F5 S3 




266 


000004F6 1206 


DC.U 


267 


000004F8 OOOO 0000 


DC.L 


268 




REFR 


269 


000004FC 10 


DC.B 


269 


000004F3 4C 




269 


000004FE 4F 




269 


000004FF 41 




269 


00000500 44 




269 


00000501 45 




269 


00000502 52 




269 


00000S03 5F 




269 


00000504 43 




269 


00000505 4F 




269 


00000506 55 




269 


00000507 4E 




269 


00000508 54 




269 


00O00S09 43 




269 


0000050A 4F 




269 


00000508 44 




269 


0000050C 45 




270 


0000050E 1206 


DC.U 


271 


00000510 0000 0000 


DC.L 


272 




REFR 


273 


00000514 OF 


DC.B 


273 


0000051S 4C 




273 


00000516 4F 




273 


00000S17 41 




273 


OOO0OS13 44 




273 


00000519 45 




273 


000005 lfl 52 




273 


0000051B 5F 





GVR 

LOflOER_CLOSEFILES 
LOAOER COUNTCOOE 
16,'LOffDER COUNTCOOE' 



GVR 

LOADER_COUNTC0DE 

LOADER GETBYTES 

15, 'LOffDER GETBYTES' 
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273 


000005 1C 


47 






273 


0000061D 


45 






273 


0000051 E 


54 






273 


00000S1F 


42 






273 


00000520 


59 






273 


00000521 


54 






273 


00000522 


45 






273 


00000S23 


53 






274 


00000524 


1206 


DC.U 


GVR 


275 


00000526 


0000 0000 


DC.L 


LOADER GETBYTES 


276 






REFR 


LOADER INITLOADER 


277 


0000052H 


11 


DC.B 


17,'LOA"OER_INITLOA0ER 


277 


0OO00S2B 


4C 






277 


00000K2C 


4F 






277 


00000S2D 


41 






277 


0000052E 


44 






277 


0000052 F 


45 






277 


00000530 


52 






277 


00O00S31 


5F 






277 


00O00K32 


49 






277 


00000633 


4E 






277 


0OO0OS34 


49 






277 


O0O0O53S 


54 






277 


00000536 


4C 






277 


00000537 


4F 






277 


00000538 


41 






277 


00000539 


44 






277 


0000053A 


45 






277 


OOO0OB3B 


52 






278 


OOO0OS3C 


1206 


DC.U 


GVR 


279 


0000053E 


0000 0000 


DC.L 


LOADER INITLOADER 


280 






REFR 


LOADER'LOAOER 


281 


00000542 


OD 


DC.B 


13,'LOffDERJ.OADER' 


281 


00000643 


4C 






281 


00000544 


4F 






281 


00000545 


41 






281 


00000546 


44 






281 


00000647 


45 






281 


00000548 


52 






281 


00000549 


5F 






281 


0000054A 


4C 






281 


0000064B 


4F 






281 


0000054C 


41 






281 


0000064D 


44 






281 


0000054E 


45 






281 


OOO0OS4F 


52 






282 


00000650 


1206 


DC.U 


GVR 


283 


00000652 


0000 OOOO 


DC.L 


LOADER LOADER 


284 






REFR 


LOADER LOADINFO 


285 


000005S6 


OF 


DC.B 


15,'LOfTDER LOADINFO' 


285 


00000557 


4C 






285 


00000658 


4F 






285 


00000559 


41 






285 


00O0065A 


44 






285 


0000065B 


45 






285 


0000055C 


52 






285 


000006SD 


5F 
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26/84 21 :03 


21 AS 


3EF1BLY OF SVSDEF.TEX 


285 


OO000S5E 


4C 






285 


0000055F 


4F 






ESS 


00000560 


41 






28S 


00000561 


44 






285 


00000S62 


4 9 






285 


00000563 


4E 






285 


OO000S64 


46 






285 


00000565 


4F 






286 


00000566 


1206 


OC.UI 


GVR 


287 


00000568 


0000 0000 


DC.L 


LOADER LOADINFO 


588 






REFR 


LOADER LOHDQ 


289 


0000056C 


oc 


DC.B 


12, 'LOA"DER_LOADQ' 


289 


0000056D 


4C 






289 


0000056E 


4F 






289 


0000056F 


41 






£89 


00000570 


44 






283 


00000571 


45 






283 


00000572 


: I 






289 


00000573 


5F 






239 


00000574 


4C 






283 


00000575 


4F 






289 


00000576 


41 






289 


00000577 


44 






289 


0000057S 


51 






290 


0000057A 


1216 


DC.U 


GVR 


291 


0000057C 


0000 0000 


DC.L 


LOUDER LOflDQ 


292 






REFR 


LOADER LOADTEXT 


293 


00000580 


OF 


OC.B 


15,'L0PTDER_L0ADTEXT 


293 


00000581 


4C 






293 


00000582 


4F 






293 


00000583 


41 






293 


00000584 


44 






293 


00000585 


45 






293 


00000586 


52 






293 


00000587 


5F 






293 


00000588 


4C 






293 


00000589 


4F 






293 


OO000S8A 


41 






293 


0000058B 


44 






293 


0000058C 


54 






293 


0000058D 


45 






293 


0000058E 


58 






293 


0000058F 


54 






294 


00000590 


1206 


DC.U 


GVR 


295 


00000592 


0000 0000 


DC.L 


LOADER LOADTEXT 


296 






REFR 


LOADER MPRKUSER 


297 


00000596 


OF 


DC.B 


15,'LOHDER markuser 


297 


00000597 


4C 






297 


00000598 


4F 






267 


00000599 


41 






297 


0000059A 


44 






297 


0000059B 


45 






297 


0000059C 


5 2 






297 


00000590 


5F 






297 


0000059E 


4D 






297 


0000059F 


41 






297 


000005AO 


52 
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GVR 

LOADER_MARKUSER 
LOADER MATCHFILE 
IS, 'LOADER MATCHFILE' 
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297 


000005A1 


4B 




297 


000005A2 


55 




297 


000Q05A3 


53 




297 


000005A4 


45 




297 


000005A5 


52 




298 


000005A6 


1206 


DC.U 


299 


000005A8 


0000 0000 


DC.L 


3C0 






REFR 


301 


000005AC 


10 


DC.B 


301 


OOOOOSAD 


4C 




301 


0O0005AE 


4F 




301 


000005AF 


41 




301 


000005BO 


44 




301 


000005B1 


4 5 




301 


000005B2 


52 




301 


000005B3 


5F 




301 


00000584 


4 3 




301 


000005B5 


41 




301 


000005B6 


54 




301 


000005B7 


43 




301 


000005B8 


48 




301 


000005B9 


46 




301 


OOOOOSBA 


49 




301 


OOOOOSBB 


4C 




301 


000005BC 


45 




302 


O00005BE 


1206 


DC.U 


503 


OOOOOSCO 


0000 0000 


DC.L 


304 






REFR 


30S 


000005C4 


OF 


DC.B 


305 


000005C5 


4C 




305 


000005C6 


4F 




305 


000005C7 


41 




305 


000005C8 


44 




305 


00000SC9 


45 




305 


000005CA 


52 




305 


000005CB 


5F 




305 


000005CC 


40 




305 


000005CD 


4F 




305 


OOOOOSCE 


56 




305 


000005CF 


45 




305 


000005D0 


44 




305 


000005D1 


45 




305 


0O000SD2 


46 




305 


00000503 


S3 




306 


00000504 


1206 


DC.U 


307 


000005D6 


0000 0000 


DC.L 


308 






REFR 


3C9 


000005DA 


10 


DC.B 


309 


000005DB 


4C 




3C9 


000005DC 


4F 




309 


0000050D 


41 




309 


000005DE 


44 




30 9 


000005DF 


45 




309 


000005E0 


52 




309 


000005E1 


5F 




309 


O00005E2 


4F 




3C9 


000005E3 


50 





GVR 

LOADER MATCHFILE 
LOADER MOVEDEFS 
15,'L0fl"0ER MOVEDEFS' 



GVR 

LOADER MOVEDEFS 

LOADER OPENLINKF 

16, 'LOF?DER_OPENLINKF' 
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309 
309 
309 
309 
309 
309 
309 
310 
311 
312 
313 
313 
313 
313 
313 
313 
313 
313 
313 
313 
313 
313 
313 
313 
313 
313 
313 
313 
313 
314 
315 
316 
317 
317 
317 
317 
317 
317 
317 
317 
317 
317 
317 
317 
317 
317 
317 
318 
319 
320 
321 
321 
321 
321 
321 
321 
321 



000005E4 4S 
000005E5 4E 
000005E6 4C 
000005E7 49 
000005E8 4E 
000005E9 4B 
000005EA 46 
000005EC 1206 
000005EE 0000 0000 



00000SF2 
00000SF3 
000005F4 
000005F5 
000005F6 
00000SF7 
000005F8 
000005F9 
000005FA 
OOOOOSFB 
000005FC 
000005FD 
000005FE 
000005FC 
00000600 
00000601 
00000602 
00000603 
00000604 
00000606 
00000608 

0000060C 
0000060D 
0000060E 
0000060F 
00000610 
00000611 
00000612 
00000613 
00000614 
0000061S 
00000616 
00000617 
00000618 
00000619 
0000061A 
0000061C 
0000061E 



12 

4C 

4F 

41 

44 

45 

52 

5F 

52 

45 

4C 

45 

41 

53 

45 

55 

53 

45 

52 

1206 

0000 0000 

OE 

4C 

4F 

41 

44 

45 

52 

5F 

SA 

45 

52 

4F 

4D 

45 

4D 

1206 

0000 0000 



OC.U GVR 

OC.L LOADER_OPENLINKF 

REFR LOADER RELEASEUSER 

DC.B 18, 'LOADER RELEASEUSER' 



DC.U GVR 

DC. L LOADER RELEASEUSER 

REFR LOADER ZEROMEM 

DC.B 14,'LOffDER ZEROMEM' 



00000622 OC 

00000623 4C 

00000624 4F 

00000625 41 

00000626 44 

00000627 45 

00000628 52 



DC.U GVR 

DC.L LOADER ZEROMEM 

REFR LOADER BASE 

DC.B 12,'LOATJER BASE' 
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321 


00000629 


5F 






321 


0000062H 


5F 






321 


0000062B 


42 






321 


0OO0062C 


41 






321 


00000620 


53 






321 


0000062E 


45 






322 


00000630 


1206 


DC.U 


GVR 


323 


00000632 


0000 0000 


DC.L 


LOADER BASE 


324 






REFR 


MS8KTYPE" 


325 


00000636 


08 


DC.B 


8,'M68KTYPE' 


325 


00000637 


40 






325 


00000638 


36 






325 


00000639 


38 






325 


0000063A 


4B 






325 


0000063B 


54 






325 


0000063C 


59 






325 


0000063C 


SO 






325 


0000063E 


4 5 






326 


0000064C 


1206 


DC.U 


GVR 


327 


00000642 


0000 0000 


DC.L 


M68KTYPE 


326 






REFR 


MATCHDEFEXT 


329 


00000646 


OB 


DC.B 


11,'MATCHDEFEXT 


329 


00000647 


4D 






329 


00000648 


41 






329 


00000649 


54 






329 


0000064A 


43 






329 


0000064E 


48 






329 


0000064C 


44 






329 


00000640 


45 






329 


0000064E 


46 






329 


0000064F 


45 






329 


00000650 


58 






329 


00000651 


54 






330 


00000652 


1206 


DC.U 


GVR 


331 


00000654 


0000 0000 


DC.L 


MATCHDEFEXT 


332 






REFR 


MINI 


333 


0000065S 


04 


DC.B 


4, 'MINI' 


333 


00000659 


4D 






333 


000006SA 


49 






333 


0000065B 


4E 






333 


0000065C 


49 






334 


0000065E 


1206 


DC.U 


GVR 


335 


00000660 


0000 0000 


DC.L 


MINI 


336 






REFR 


MINI IORESC 


337 


00000664 


OB 


DC.B 


H,'f!lNI_IORESC 


337 


00000665 


4D 






337 


00000666 


49 






337 


00000667 


4E 






337 


00000668 


49 






337 


00000669 


5F 






337 


0000066A 


49 






337 


0000066B 


4F 






337 


0000066C 


52 






33? 


000006SD 


45 






33? 


0000066E 


53 






337 


0000066 F 


43 






338 


00000670 


1206 


DC.U 


GVR 



1-399 
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339 
340 
34 1 
34 1 
341 
341 
341 
34 1 
341 
341 
34 1 
341 
341 
341 
342 
34 3 
344 
345 
345 
345 
345 
345 
345 
345 
345 
345 
345 
34 6 
34 7 
34 6 
34 9 
34 9 
34 9 
34 9 
34 9 

34 9 
349 
349 
3.19 
349 
349 
349 
350 
351 
352 
353 
353 
353 
353 

35 3 
353 
353 
353 
35 3 
353 
353 
354 



00000672 0000 0000 

00000676 OB 

00000677 4D 

00000678 49 

00000679 4E 
0000067A 49 
0000067B 5F 
0000067C 49 
0000067D 4F 
0000067E 52 
0000067F 56 

00000680 41 

00000681 4C 

00000682 1206 
00000684 0000 0000 

00000688 09 

00000689 40 
0000068R 49 
0000068B 4E 
0000068C 49 
0000068D 5F 
0000068E 4D 
0000068F 49 

00000690 4E 

00000691 49 

00000692 1206 
00000694 0000 0000 

00000698 OB 

00000699 4D 
0000069A 49 
0000069B 4E 
0000069C 49 
0000069D 5F 
0000069E 4D 
0000069F 49 
000006AO 4E 
000006fll 49 
000006A2 49 

00000693 4F 
000006A4 1206 
000006A6 O000 0000 

0000069F1 09 
0000069B 4D 
000006BC 49 
000006BD 4E 
OOOOOSAE 49 
000006AF 5F 
000006BO 5F 
OO0006B1 42 
0O00O6B2 41 
000006B3 53 
OO00O6B4 45 
OO00O6B6 1206 



DC.L MINI_IORESC 
REFR MINI IORVAL 
DC.B 11 , 'FiINI_IORVAL' 



DC.U GVR 

DC.L MINI_IORVBL 

REFR MINI MINI 

DC.B 9,'nTNI MINI' 



DC.U GVR 

DC.L MINI MINI 

REFR MINI MINIIO 

DC.B 11, 'fllNI MINIIO' 



DC.U GVR 

DC.L MINIJ1INII0 

REFR MINI BASE 

DC.B 10,'MTNI BASE' 
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355 


000006B8 0000 0000 


DC.L 


MINI BASE 


356 




REFR 


MSYSTTAGS 


357 


000006BC 09 


DC.B 


9, 'MSYSFLAGS' 


357 


000006BO 4D 






357 


000006BE 53 






357 


000006BF 59 






357 


000006CO 53 






357 


000006C1 46 






3S7 


000006C2 4C 






357 


000006C3 41 






357 


000006C4 47 






357 


000006CS S3 






358 


000006C6 1206 


DC.U 


GVR 


359 


000006C8 0000 0000 


DC.L 


MSYSFLAGS 


360 




REFR 


RELOCATE 


361 


0O00O6CC 08 


DC.B 


8, 'RELOCATE' 


361 


000006CD 52 






361 


000006CE 45 






361 


000006CF 4C 






361 


000006DO 4F 






361 


OO0OO6D1 43 






361 


000006D2 41 






361 


000006D3 54 






361 


000006D4 46 






362 


000006D6 1206 


DC.U 


GVR 


363 


000006D8 0000 0000 


DC.L 


RELOCATE 


364 




REFR 


STACKFUDGE 


365 


000006DC 09 


DC.B 


10, 'STACKFUDGE' 


365 


000006DD 53 






365 


0000060E 54 






365 


0000060F 41 






365 


000006EO 43 






365 


000006E1 4B 






365 


000006E2 46 






365 


000006E3 55 






365 


000006E4 44 






36S 


0O0006ES 47 






365 


000006E6 45 






366 


000006E8 1206 


DC.U 


GVR 


367 


000006EA 0000 0000 


DC.L 


STACKFUDGE 


368 




REFR 


SYSGLOBFILS 


369 


000006EE 09 


DC.B 


10, 'SYSGLOBALS' 


369 


000006EF 53 






369 


000006FO 59 






369 


000006F1 S3 






369 


000006F2 47 






369 


000006F3 4C 






369 


000006F4 4F 






369 


000006FS 42 






369 


000006F6 41 






369 


000006F7 4C 






369 


000006F8 53 






370 


OO0006FA 1206 


DC.U 


GVR 


371 


000006FC 0000 0000 


DC.L 


SYSGLOBALS 


372 




REFR 


SYSGLOBALS FSIDC 


373 


00000700 10 


DC.B 


16, 'SYSGLOBALS FSIDC 


373 


00000701 S3 
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373 


00000702 


59 




373 


00000703 


5 3 




373 


00000704 


47 




373 


00000705 


4C 




373 


00000706 


4F 




373 


00000707 


42 




373 


00000706 


41 




373 


00000709 


4C 




373 


0000070A 


53 




373 


0000070B 


5F 




373 


0000070C 


46 




373 


00000700 


53 




373 


0000070E 


49 




373 


0000070F 


44 




373 


00000710 


43 




374 


00000712 


1206 


DC.U 


37S 


00000714 


0000 0000 


DC.L 


376 






REFR 


377 


00000718 


15 


DCS 


377 


00000719 


53 




377 


0000071A 


59 




377 


0000071B 


53 




377 


0000071C 


4 7 




377 


0000071D 


4C 




377 


0000071E 


4F 




377 


0000071 F 


42 




377 


00000720 


41 




377 


00000721 


4C 




377 


00000722 


53 




377 


00000723 


5F 




377 


00000724 


53 




377 


00000725 


59 




377 


00000726 


53 




377 


00000727 


47 




377 


00000728 


4C 




377 


00000729 


4F 




377 


0000072A 


42 




377 


0000072B 


41 




377 


0000072C 


4C 




377 


0000072D 


53 




378 


0000072E 


1206 


DC.U 


379 


00000730 


0000 0000 


DC.L 


380 






REFR 


381 


00000734 


10 


DC.B 


381 


00000735 


53 




381 


00000736 


59 




381 


00000737 


53 




381 


00000738 


47 




381 


00000739 


4C 




381 


0000073A 


4F 




381 


0000073B 


42 




381 


0000073C 


41 




381 


0000073D 


4C 




381 


0000073E 


53 




381 


0000073F 


5F 




381 


00000740 


5F 




381 


00000741 


42 





SVR 

SYSGLOBALS FSIDC 
SYSGLOBBLS SYSGL0BP1LS 
21,'SYSGL0B"ALS SYSGLOBBLS' 



GVR 

SYSGLOBBLS SYSGLOBBLS 

SYSGLOBBLS BASE 

16, 'SYSGLOBflLS BASE' 
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381 


00000742 41 


381 


00000743 53 


381 


00000744 45 


382 


00000746 1206 DC.U GVR 


383 


00000748 0000 OOOO DC.L SYSGLOBALS 


384 




385 


0000 074C endcl equ * 


386 




387 


end 


PASS 1 


ERRORS: 


PASS 2 


ERRORS: 
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SYMBOL 


TYPE 


DEF 


VALUE 


ALPHAL1ST 


REL 


20 


00000002 


ASM ASM 


REL 


24 


00000005 


ASM ASSIGN 


REL 


28 


00000007 


ASM CRCHE OFF 


RF.. 


32 


OOOOOOOA 


ASM CRCHE ON 


RE.. 


36 


OOOOOOOE 


ASM CI SUTTCH 


REL 


40 


00000012 


ASM _ CPYMSG 


RE. 


44 


00000016 


ASM DIFFERENCE REl 


48 


00000019 


ASM DIV 


REL 


52 


0000001D 


ASM EQUAL 


REl 


56 


O0O0OO1F 


ASM ERRMSG 


REL 


60 


00000022 


ASM FASTMOVE 


RE. 


64 


00000025 


ASM FINOROMS 


RE. 


88 


00000029 


ASM FLPYINIT 


RE . 


72 


O000O02D 


ASM FLPYMREAO 


REl 


76 


00000031 


ASM FLPYMWRITE REL 


SO 


00000035 


ASM FLPYREAO 


REL 


84 


00000039 


ASM FLPY URT 


REl 


86 


0000003D 


ASM F FUR" ON 


REL 


92 


00000041 


ASM m 


REL 


96 


0000u045 


ASM INCLUSION 


REl 


100 


00000047 


ASM INTERSECT 


REl. 


104 


0000004B 


ASM MEMAVAIL 


PFl 


138 


0000004F 


ASM MOD 


REL 


112 


00000053 


ASM HOVEL 


REL 


116 


0000005S 


ASM MOVELEFT 


RF 


120 


O0OO00S8 


ASM MOVER 


REL 


124 


0000005C 


ASM MOVERIGHT 


RE. 


128 


0000005F 


ASM MPY 


REL 


132 


00000063 


ASM NEQUAL 


REL 


136 


O0O0OO6S 


ASM NEUBYTES 


REl 


140 


00000068 


ASM NEUUORDS 


RE. 


144 


0000006C 


ASM POS 


RE. 


148 


00000070 


ASM POUERUP 


REl 


152 


00000072 


ASM RflOVEL 


REl 


156 


00000075 


ASM RI-10VER 


REL 


160 


00000078 


ASM UNION 


REL 


164 


O000O07B 


ASM USERPROGRBtl REL 


168 


O0OOO07E 


BOOTDAMMODULE 


REL 


172 


00000082 


BOOTDAMMODULE 


BOOTDHM 


Rt'L 


176 00000086 


BOOTDAMMODULE 


BOOTDfiMMODULE REL 180 0000008C 


BOOTDAMMODULE 


BOOTNODE REL 


184 00000093 


BOOTDfiMMODULE 


BOOTTM REL 


188 00000099 


BOOTDAMMODULE 


INITBOOTDAM REL 


192 0000009F 


BOOTDAMMODULE 


SRMNODE 


REL 


196 OO000OA6 


BOOTDAMMODULE 


BASE REL 


?00 OOOOOOAC 


BOOT FINDFILE" 


REL 


204 


ooooooei 


BOOT LIFHEfiD 


REL 


208 


O0O0OOB5 


BOOT MFCLOSE 


REl 


212 


O0O0OOB9 


BOOT MFOPEN 


RE;. 


216 


OOOOOOBO 


BOOT MINIT 


REl 


220 


OOOOOOCO 
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boot mrebd rel 
eval5vr rel 
fs furitestrint rel 
g Collar rel 
iritload rel 
initload initload rel 
initlob:) sysprefix rel 
initload base rel 
loaoer rel 
loaoer_checkrev rel 
l0ader_gl0sefile5 pel 
loader countcode rel 
loaderjgetbytes rel 
loader_initloader rel 
loaoer_loader rel 
loader loadinfo rel 

LOADER LOADQ REl. 
LOADERJ.OBDTEXT REL 
LOADER MBRKUSER REL 
LOBDER~MBTCHFILE REL 
LOADER MOVEDEFS REL 
LOADER""OPENLINKF REL 
LOADER_RELEBSEUSER REL 
LOAOER ZEROMEM REL 
LOAOER BASE REL 
M68KTYPT REL 
MATCHDEFEXT REL 
MINI REL 

MINI_IORESC REL 
MINI IORVAL REL 
MINI~MINI REL 
MINI_MINIIO REL 
MINI BASE REL 
MSYSFTAGS REL 
RELOCATE REL 
STACKFUDGE REL 
SYSGLOBP.LS REL 
SYSGL08ALS_FSIDC REL 
SYSGL08FLS SYSGLOBALS R 
SYSGLOBPLS BASE REL 
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AO 
Al 

ft? 

S3 

A4 

PS 

P. 6 

A7 

CCR 

DO 

Dl 

02 

D3 



INTERNAL SYMBOLS 

TYPE 

ARFG 

BPEG 

HPEG 

HE' EG 

ARFG 

P.REG 

PR EG 

AREG 

STREG 

DREG 

DFEG 

DREG 

DREG 



224 


C0OOO0C3 


228 


000000C6 


232 


000000C8 


236 


oooooocc 


240 


OOOOOOCF 


244 


O0000OD2 


248 


0OOOOOD7 


252 


OOOOOODC 


256 


OOOOOOEO 


260 


O0O0O0E2 


264 


000000E6 


268 


OOOOOOEB 


272 


OOOOOOFO 


276 


00O0O0F4 


280 


O00OO0F9 


234 


OOOOOOFD 


288 


00000101 


292 


00000105 


2S6 


00000109 


300 


0C0OO1OD 


304 


00000112 


308 


00000116 


312 


000001 IB 


316 


00000120 


320 


00000124 


324 


00000128 


328 


C00C012B 


332 


C000012E 


336 


00000130 


340 


00000133 


344 


00000136 


348 


00000139 


352 


0000013C 


306 


0000013F 


360 


00000142 


364 


00000145 


368 


00000148 


372 


0000014B 




376 00000150 


380 


00000156 


LS 




EF 


EQU SYM 




































































VALUE 
00000000 
00000001 
00000002 
00000003 
00000004 
00000005 
00000006 
00000007 
00000005 

oooooooo 

00000001 
00000002 
00000003 
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OO00OOC4 
000000C5 
000000C6 
000000C7 
00000028 
00000008 
0000074C 
00001206 
00000009 
000000C7 
000000C6 
00000000 
00000007 
OOOOOOCfi 
0000002S 
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D4 


DREG 





D5 


DREG 





D6 


DREG 





07 


DREG 





DEFADDR 


REL 


17 


DFC 


STREG 





ENDD 


REL 


385 


GVR 


H8S 


15 


SFC 


STREG 





SP 


BREG 





SR 


STREG 





SYSDEFTS8LE 


REL 


5 


USP 


STREG 





VBR 


STREG 





X 


REL 


13 
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